/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/ |
H A D | s1903.c | 155 for (kpar = kk2, kstop = in -kk2; kpar < kstop; kpar++, ki++) 163 for (kpar = kk2, kstop = in -kk2 - 1; kpar < kstop; kpar++, ki++) 164 (*eknots)[ki] = (double) 0.5 *(epar[kpar] + epar[kpar + 1]); 192 for (ki = 0, kpar = in -ik + 1; ki < ik - 1; ki++, kpar++) 197 for (kpar = 0; kpar < kn; ki++, kpar++) 202 for (kpar = 1; ki < kstop; ki++, kpar++) 212 kpar -= in; 222 for (ki = 0, kpar = in -ik + 1; ki < ik - 1; ki++, kpar++) 227 for (kpar = 0; kpar < in; ki++, kpar++) 232 for (kpar = 0; ki < kstop; ki++, kpar++) [all …]
|
H A D | s1902.c | 176 kpar < kstop; kpar++, ki++) 198 kpar < kstop; kpar++, ki++) 199 (*eknots)[ki] = (double) 0.5 *(epar[kpar] + epar[kpar + 1]); 236 for (ki = 0, kpar = in -ik + ik / 2; ki < ik / 2; ki++, kpar++) 241 for (kpar = 0; kpar < kn; ki++, kpar++) 247 for (kpar = 1; ki < kstop; ki++, kpar++) 257 kpar = 1; 273 for (kpar = 0; kpar < in; ki++, kpar++) 274 (*eknots)[ki] = (double) 0.5 *(epar[kpar] + epar[kpar + 1]); 278 for (kpar = 0; ki < kstop; ki++, kpar++) [all …]
|
H A D | s6idedg.c | 144 kpar = 1; 168 kpar = 2; 176 sstart[kpar] = apar; 177 send[kpar] = apar; 181 sstart[kpar] = po2->c1->et[po2->c1->ik - 1]; 182 send[kpar] = po2->c1->et[po2->c1->in]; 189 sstart[kpar] = apar; 190 send[kpar] = apar; 195 send[kpar] = po2->s1->et1[po2->s1->in1]; 199 sstart[kpar+1] = apar; [all …]
|
H A D | s1613.c | 174 kpar = kncoef; 177 *jnbpnt = kpar; 211 kpar=0; 216 par[kpar] = tb; 217 kpar++; 324 par[kpar] = tb; 325 kpar++; 330 par[kpar] = spar[kk]; 331 par[kpar] = tb; 332 kpar++; [all …]
|
H A D | s1605.c | 165 kpar = kncoef; 168 *jnbpnt = kpar; 202 kpar=0; 218 if (kpar+1 > kmaxpar) 221 par[kpar] = ta; 222 kpar++; 287 if (kpar+kant >= kmaxpar) 294 par[kpar] = ta + (double)(kk+1)*th; 295 par[kpar] = tb; 296 kpar++; [all …]
|
H A D | s1909.c | 119 double kpar, npar; /* Used when calculating local 143 kpar = astpar; 145 for (count1 = 1, kpar = astpar; count1 < inpt; count1++) 149 kpar += s6dist (&econd[(count1 - 1) * idim], &econd[count1 * idim], idim); 150 (*epar1)[count1] = kpar; 160 npar = kpar + s6dist (&econd[(count1 - 1) * idim], 168 (*epar1)[count3] = kpar; 173 kpar = npar; 188 (*epar1)[inpt] = kpar + s6dist (&econd[count1 * idim],
|
H A D | s1911.c | 118 double kpar, npar; /* Used when calculating local 142 kpar = astpar; 144 for (count1 = 1, kpar = astpar; count1 < inpt; count1++) 148 kpar += sqrt (s6dist (&econd[(count1 - 1) * idim], 150 (*epar1)[count1] = kpar; 160 npar = kpar + sqrt (s6dist (&econd[(count1 - 1) * idim], 168 (*epar1)[count3] = kpar; 173 kpar = npar; 188 (*epar1)[inpt] = kpar + sqrt (s6dist (&econd[count1 * idim],
|
H A D | s1239.c | 254 linter[kpar] = kinter; spar[kpar++] = t1; 255 if (kpar == imax) goto err190; 256 linter[kpar] = kinter; spar[kpar++] = t2; 257 if (kpar == imax) goto err190; 337 spar[kpar++] = t1; 338 if (kpar == imax) goto err190; 358 spar[kpar++] = t1; 359 if (kpar == imax) goto err190; 366 s1239_s9sort(spar,linter,kpar); 371 while (ki < kpar-1) [all …]
|
H A D | s1236.c | 105 int kpar; /* Remaining number of parameter values to be set local 128 kpar = inpar - knbreak; 133 if (kpar < 0) 137 kpar = inpar - 2; 153 knumb = (int)(kpar*tdist/(tend-tlast)); 157 kpar -= knumb;
|
H A D | s1919.c | 114 double *kpar = SISL_NULL; /* Used when calculating parametrization. */ local 135 s1890 (et, ik, in, &kpar, &kder, &kstat); 167 s1221 (tcurve, 0, kpar[ki], &left, &kpc[ki * idim], &kstat); 184 s1221 (tcurve, 0, kpar[ki], &left, &kcc[ki * idim], &kstat); 201 s1221 (tcurve, 0, kpar[ki], &left, &kdc[ki * idim], &kstat); 220 s1221 (tcurve, 0, kpar[ki], &left, &kfc[ki * idim], &kstat); 290 s1891 (kpar, kdc, idim, in, 1, kder, 1, et, &epd, &knh, ik, 0, 0, &kstat); 334 if (kpar != SISL_NULL) 335 freearray (kpar);
|
H A D | s1792.c | 93 int kpar = (in + ik)/2; local 95 if (DNEQUAL(et[ik-1],et[kpar]) || DNEQUAL(et[in],et[kpar])) 96 return et[kpar];
|
H A D | sh6idnwun.c | 113 int kpar; /* Number of parameter directions in 1. object. */ local 128 kpar = po1->iobj + po2->iobj; 133 kpar = po1->iobj; 177 for (ki = 0; ki < kpar; ki++) 185 start[ki-kpar] = lpt1->epar[ki] * (1.0 - weight) + lpt2->epar[ki] * weight; 203 sh6ptobj(spoint,po2,aepsge,start,spar+kpar,&kstat);
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/prepar/ |
H A D | pre_dummy.F | 33 integer i,j,k,l,kpar 40 kpar=0 49 rbnd(j,1,i)=rbnd(kpar,1,i) 50 rbnd(j,2,i)=rbnd(kpar,2,i) 65 kpar=0 75 rang(j,1,i)=rang(kpar,1,i) 78 rang(j,3,i)=rang(kpar,3,i) 95 kpar=0 106 nfdih(j,i)=nfdih(kpar,i) 124 kpar=0 [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/prepar/ |
H A D | pre_dummy.F | 33 integer i,j,k,l,kpar 40 kpar=0 49 rbnd(j,1,i)=rbnd(kpar,1,i) 50 rbnd(j,2,i)=rbnd(kpar,2,i) 65 kpar=0 75 rang(j,1,i)=rang(kpar,1,i) 78 rang(j,3,i)=rang(kpar,3,i) 95 kpar=0 106 nfdih(j,i)=nfdih(kpar,i) 124 kpar=0 [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
H A D | argos_prep_dummy.F | 34 integer i,j,k,l,kpar local 41 kpar=0 50 rbnd(j,1,i)=rbnd(kpar,1,i) 51 rbnd(j,2,i)=rbnd(kpar,2,i) 66 kpar=0 76 rang(j,1,i)=rang(kpar,1,i) 79 rang(j,3,i)=rang(kpar,3,i) 96 kpar=0 107 nfdih(j,i)=nfdih(kpar,i) 125 kpar=0 [all …]
|
H A D | argos_prepare_dummy.F | 34 integer i,j,k,l,kpar 41 kpar=0 50 rbnd(j,1,i)=rbnd(kpar,1,i) 51 rbnd(j,2,i)=rbnd(kpar,2,i) 66 kpar=0 76 rang(j,1,i)=rang(kpar,1,i) 79 rang(j,3,i)=rang(kpar,3,i) 96 kpar=0 107 nfdih(j,i)=nfdih(kpar,i) 125 kpar=0 [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/ |
H A D | argos_prepare_dummy.F | 34 integer i,j,k,l,kpar 41 kpar=0 50 rbnd(j,1,i)=rbnd(kpar,1,i) 51 rbnd(j,2,i)=rbnd(kpar,2,i) 66 kpar=0 76 rang(j,1,i)=rang(kpar,1,i) 79 rang(j,3,i)=rang(kpar,3,i) 96 kpar=0 107 nfdih(j,i)=nfdih(kpar,i) 125 kpar=0 [all …]
|
H A D | argos_prep_dummy.F | 34 integer i,j,k,l,kpar 41 kpar=0 50 rbnd(j,1,i)=rbnd(kpar,1,i) 51 rbnd(j,2,i)=rbnd(kpar,2,i) 66 kpar=0 76 rang(j,1,i)=rang(kpar,1,i) 79 rang(j,3,i)=rang(kpar,3,i) 96 kpar=0 107 nfdih(j,i)=nfdih(kpar,i) 125 kpar=0 [all …]
|
/dports/math/R-cran-dimRed/dimRed/tests/testthat/ |
H A D | test_kPCA.R | 13 kpar = list(sigma = 0.1)) nameattr in list 16 kpar = list(sigma = 1)) nameattr in list 19 kpar = list(degree = 3)) nameattr in list 22 kpar = list()) nameattr in list 25 kpar = list(sigma = 1)) nameattr in list 28 kpar = list(sigma = 0.1)) nameattr in list 31 kpar = list(sigma = 0.1, nameattr in list 36 kpar = list(sigma = 1, nameattr in list 41 kpar = list()) nameattr in list 83 "kPCA", kernel = "splinedot", kpar = list())
|
/dports/science/R-cran-kernlab/kernlab/R/ |
H A D | kernels.R | 629 if (is.function(kpar)) 630 fun <- kpar 748 nu = kpar(kernel)$order 749 ni = kpar(kernel)$degree 928 …if (kpar(kernel)$type == "sequence" |kpar(kernel)$type == "string"|kpar(kernel)$type == "fullstrin… 932 …kernel <- stringdot(length = kpar(kernel)$length, type = kpar(kernel)$type, lambda = kpar(kernel)$… 1720 …if (kpar(kernel)$type == "sequence" |kpar(kernel)$type == "string"|kpar(kernel)$type == "fullstrin… 1723 …kernel <- stringdot(length = kpar(kernel)$length, type = kpar(kernel)$type, lambda = kpar(kernel)$… 2525 …kernel <- stringdot(length = kpar(kernel)$length, type = kpar(kernel)$type, lambda = kpar(kernel)$… 2529 …if (kpar(kernel)$type == "sequence" |kpar(kernel)$type == "string"|kpar(kernel)$type == "fullstrin… [all …]
|
H A D | kqr.R | 45 function (x, y, scaled = TRUE, tau = 0.5, C = 0.1, kernel = "rbfdot", kpar = "automatic", reduced =… argument 89 if(is.character(kpar)) 93 kpar <- list() list 98 …if (!is.list(kpar)&&is.character(kpar)&&(class(kernel)=="rbfkernel" || class(kernel) =="laplacedot… 99 kp <- match.arg(kpar,"automatic") 101 kpar <- list(sigma=mean(sigest(x,scaled=FALSE,frac=1)[c(1,3)])) 109 kernel <- do.call(kernel, kpar) 133 kpar(ret) <- kpar 182 function (x, y, tau = 0.5, C = 0.1, kernel = "strigdot", kpar = list(length=4, C=0.5), fit = TRUE, … argument 189 kernel <- do.call(kernel, kpar) [all …]
|
H A D | kmmd.R | 6 …function(x, y, kernel="rbfdot",kpar="automatic", alpha = 0.05, asymptotic = FALSE, replace = TRUE… argument 23 if(is.character(kpar)) 24 …ydot"|| kernel == "besseldot" || kernel== "anovadot"|| kernel=="splinedot") && kpar=="automatic" ) 27 kpar <- list() 32 if (!is.list(kpar)&&is.character(kpar)&&(kernel == "laplacedot"|| kernel=="rbfdot")){ 33 kp <- match.arg(kpar,"automatic") 35 kpar <- list(sigma=sigest(rbind(x,y),scaled=FALSE)[2]) 42 kernel <- do.call(kernel, kpar) 79 …function(x, y, kernel="stringdot",kpar=list(type="spectrum",length=4), alpha = 0.05, asymptotic = … argument 85 kernel <- do.call(kernel, kpar)
|
/dports/science/afni/afni-AFNI_21.3.16/src/ |
H A D | 3dWarpDrive.c | 1000 for( kpar=0 ; kpar < 12 ; kpar++ ) in main() 1066 for( kpar=12 ; kpar < 39 ; kpar++ ){ in main() 1073 for( kpar=0 ; kpar < 39 ; kpar++ ) in main() 1096 for( kpar=0 ; kpar < nparfix ; kpar++ ){ in main() 1299 for( kpar=0 ; kpar < abas.nparam ; kpar++ ) in main() 1356 for( kpar=0 ; kpar < abas.nparam ; kpar++ ) { in main() 1425 for( kpar=0 ; kpar < 12 ; kpar++ ) parvec[kpar] = 0.0 ; in main() 1463 for( kpar=0 ; kpar < 3 ; kpar++ ) parvec[kpar] = 0.0 ; in main() 1464 for( kpar=6 ; kpar < abas.nparam ; kpar++ ) parvec[kpar] = 0.0 ; in main() 1507 for( kpar=0 ; kpar < abas.nparam ; kpar++ ) in main() [all …]
|
/dports/math/R-cran-CVST/CVST/R/ |
H A D | methods.R | 5 kpar=params[setdiff(names(params), c("kernel", "nu", "C"))] functionVar 6 …return(ksvm(data$x, data$y, kernel=params$kernel, kpar=kpar, type="nu-svr", nu=params$nu, C=params… 20 kpar=params[setdiff(names(params), c("kernel", "nu"))] functionVar 21 …return(ksvm(data$x, data$y, kernel=params$kernel, kpar=kpar, type="nu-svc", nu=params$nu, scale=FA… 40 kpar = params[setdiff(names(params), c("kernel", "lambda", "tol", "maxiter"))] functionVar 41 kernel = do.call(params$kernel, kpar) 60 kpar = params[setdiff(names(params), c("kernel", "lambda"))] functionVar 61 kernel = do.call(params$kernel, kpar)
|
/dports/science/R-cran-kernlab/kernlab/inst/doc/ |
H A D | kernlab.R | 46 gene <- ksvm(Class~.,data=genetrain,kernel="rbfdot",kpar="automatic",C=60,cross=3,prob.model=TRUE) 74 rvmm <- rvm(x, y,kernel="rbfdot",kpar=list(sigma=0.1)) 92 ranked <- ranking(ran, 54, kernel = "rbfdot", kpar = list(sigma = 100), edgegraph = TRUE) 108 on <- inlearn(2,kernel="rbfdot",kpar=list(sigma=0.2),type="classification") 129 kpc <- kpca(~.,data=spam[train,-58],kernel="rbfdot",kpar=list(sigma=0.001),features=2) 138 f <- kfa(~.,data=promotergene,features=2,kernel="rbfdot",kpar=list(sigma=0.013))
|