Home
last modified time | relevance | path

Searched refs:kpar (Results 1 – 25 of 247) sorted by relevance

12345678910

/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/
H A Ds1903.c155 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 Ds1902.c176 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 Ds6idedg.c144 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 Ds1613.c174 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 Ds1605.c165 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 Ds1909.c119 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 Ds1911.c118 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 Ds1239.c254 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 Ds1236.c105 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 Ds1919.c114 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 Ds1792.c93 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 Dsh6idnwun.c113 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 Dpre_dummy.F33 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 Dpre_dummy.F33 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 Dargos_prep_dummy.F34 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 Dargos_prepare_dummy.F34 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 Dargos_prepare_dummy.F34 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 Dargos_prep_dummy.F34 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 Dtest_kPCA.R13 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 Dkernels.R629 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 Dkqr.R45 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 Dkmmd.R6 …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 D3dWarpDrive.c1000 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 Dmethods.R5 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 Dkernlab.R46 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))

12345678910