Home
last modified time | relevance | path

Searched refs:spar1 (Results 1 – 25 of 32) sorted by relevance

12

/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/
H A Ds1787.c271 spar1 = qcrv -> ecoef;
272 spar2 = spar1 + 2*(qcrv->in)-2;
279 if (DEQUAL(spar1[0]+tdum1,sval1[0]+tdum1) || DEQUAL(spar1[0]+tdum1,sval1[1]+tdum1) ||
280 DEQUAL(spar1[1]+tdum2,sval2[0]+tdum2) || DEQUAL(spar1[1]+tdum2,sval2[1]+tdum2) )
292 if (spar1[0] == spar2[0] && spar1[1] == spar2[1]) kclose = 1;
297 if (DEQUAL(epar[0]+tdum1,spar1[0]+tdum1) && DEQUAL(epar[1]+tdum2,spar1[1]+tdum2) )
360 memcopy(gpar1,spar1,2,DOUBLE);
361 memcopy(gpar2,spar1,2,DOUBLE);
369 memcopy(gpar2,spar1,2,DOUBLE);
428 memcopy(gpar1,spar1,2,DOUBLE);
[all …]
H A Ds1912.c144 double *spar1 = SISL_NULL; /* Parametrization array of interpolation conditions. */ local
180 &spar1, &spar2, &kstat);
196 (* fknots) (spar1, knpt, kordr, kopen, &sknot, &kstat);
201 s1891 (spar1, scond, idim, knpt, kright, sder, kopen, sknot,
228 *gpar = spar1;
231 for (ki = 1; spar1[ki] < *cendpar; ki++)
233 if (spar1[ki - 1] < spar1[ki])
234 (*gpar)[(*jnbpar)++] = spar1[ki-1];
236 (*gpar)[(*jnbpar)++] = spar1[ki-1];
237 (*gpar)[(*jnbpar)++] = spar1[ki];
H A Ds1901.c145 double *spar1 = SISL_NULL; /* Parametrization array of interpolation conditions. */ local
177 &spar1, &spar2, &kstat);
193 (* fknots) (spar1, knpt, kordr, iopen, &sknot, &kstat);
198 s1891 (spar1, scond, idim, knpt, kright, sder, iopen, sknot,
237 *gpar = spar1;
240 for (ki = 1; spar1[ki] < *cendpar; ki++)
242 if (spar1[ki - 1] < spar1[ki])
243 (*gpar)[(*jnbpar)++] = spar1[ki];
245 (*gpar)[(*jnbpar)++] = spar1[ki];
H A Ds1955.c138 double *spar1 = SISL_NULL; /* Parameter-values in the parameter local
196 if ( (spar1 = newarray(k2, DOUBLE)) == SISL_NULL ) goto err101;
204 spar1[0] = *(qkreg1->et + qkreg1->ik - 1);
205 spar1[1] = *(qkreg1->et + qkreg1->in);
215 spar1[0] = *(qkreg1->et + qkreg1->ik - 1);
216 spar1[1] = *(qkreg1->et + qkreg1->in);
226 if ( (**wcurve = newIntcurve(k2,k1,k1,spar1,spar2,k4)) == SISL_NULL ) goto err101;
285 spar1 = spar2 = SISL_NULL;
286 if ( (spar1 = newarray(qcurve->ipoint, DOUBLE)) == SISL_NULL ) goto err101;
293 spar1[ki] = *(qcurve->epar1+2*ki);
[all …]
H A Ds9clipimp.c142 double spar1[2],spar2[2]; /* Local parameter values */ local
169 memcopy(spar1,epar1,2,DOUBLE);
180 s1305(spar1,spar2,euval,evval,&kbound,spar3,&kstat);
239 memcopy(spar1,gpar1,2,double);
267 if (spar1[0] == epar1[0] && spar1[1] == epar1[1])
273 memcopy(gpar1,spar1,2,double);
H A Ds1366.c169 double *spar1; /* Array (length km1) containing a parametrization in the local
213 spar1 = newarray(kmaxik1,DOUBLE);
214 if (spar1 == SISL_NULL) goto err101;
240 spar1[km1-1] = spar[0];
280 spar1 = increasearray(spar1,kmaxik1,DOUBLE);
281 if ( spar1 == SISL_NULL ) goto err101;
294 spar1[km1-1] = spar[0];
339 if ( spar1 == SISL_NULL ) goto err101;
402 s1347(spnt,stng1,stng2,scrss,km1,km2,idim,kpar,spar1,spar2,seps,lend,
430 if (spar1 != SISL_NULL) freearray(spar1);
H A Ds1237.c114 double *spar1 = SISL_NULL; /* Values of constant parameter curves local
128 if ((spar1 = newarray(inmb1,double)) == SISL_NULL) goto err101;
163 s1236(psurf->et1,psurf->in1,psurf->ik1,inmb1,spar1,&kstat);
171 s1437(psurf,spar1[ki],&qc,&kstat);
216 if (spar1 != SISL_NULL) freearray(spar1);
H A Ds1238.c128 double *spar1 = SISL_NULL; /* Values of constant parameter curves local
152 if ((spar1 = newarray(inmb1,double)) == SISL_NULL) goto err101;
198 s1236(psurf->et1,psurf->in1,psurf->ik1,inmb1,spar1,&kstat);
206 s1437(psurf,spar1[ki],&qc,&kstat);
211 s1239(qc,0,spar1[ki],pcurve,aepsco,aepscu,uc,kmax,&kcurve,&kstat);
274 if (spar1 != SISL_NULL) freearray(spar1);
H A Ds1608.c152 double *spar1=SISL_NULL; /* Pointer to parameter values */ local
172 s1953(pc1,ep11,idim,REL_COMP_RES,aepsge,&kpt1,&spar1,&kcrv1,&qic1,&kstat);
178 *ct11 = spar1[0];
288 if (spar1 != SISL_NULL) freearray(spar1);
H A Ds1880.c131 double *spar1,*spar2; /* Values of points belonging to an intersection local
165 spar1 = newarray(ipar1*kpoint,double);
167 if ((ipar1 > 0 && spar1 == SISL_NULL) ||
174 stpar1 = spar1;
199 *ucrv = newIntcurve(kj,ipar1,ipar2,spar1,spar2,ktype);
H A Ds1313.c537 memcopy(spar1,sgpar+2*(kstart-1),2,DOUBLE);
543 s1306(spnt1,spar1,eimpli,ideg,s3dinf,sp1inf,&kstat);
558 s9iterimp(s3dinf,spnt1,spar1,ps1,eimpli,ideg,tstep,
569 memcopy(spar1,sipar1,2,DOUBLE);
582 memcopy(stpar1,spar1,2,DOUBLE);
678 memcopy(spar1,stpar1,2,DOUBLE);
737 t1distgd = s9adsimp(spnt1,spar1,eimpli,ideg,
770 t2distgd = s9adsimp(spnt1,spar1,eimpli,ideg,
1013 s6diff(spar2,spar1,2,sdum1);
1221 s6diff(sipar1,spar1,2,sdum1);
[all …]
H A Dsh1794.c121 double spar1[2], spar2[2]; /* Parameter value of point on intersection local
200 spar1[kdir] = pt1->epar[idir];
227 sgn = (spar1[kdir]-tstart < tend-spar1[kdir]) ? 1 : -1;
270 for (ki=0, spar1[1-kdir]=tstart; ki<nsample; ++ki, spar1[1-kdir]+=tdel)
272 samplepar[ki] = spar1[1-kdir];
278 s1421(qs1, 2, spar1, &kleft1, &kleft2, sder1, snorm1, &kstat);
331 par1[1-kdir] = spar1[1-kdir];
332 par1[kdir] = spar1[kdir] + sgn*tpar;
453 tpar = spar1[kdir] + 0.5*sgn*(tmin + tmax);
H A Dsh1262.c162 double *spar1 = SISL_NULL; /* Startpoints of parameter intervals of local
189 if ((spar1 = newarray(kncurve,DOUBLE)) == SISL_NULL) goto err101;
200 spar1[ki] = tpar1 = *(qc->et + qc->ik - 1);
311 sh1262_s9blendder(sa,sb,4,kdim,krang,spar1[3*ki],spar2[3*ki],spar1[3*kj],
322 sh1262_s9hermit(ecoef+4*ki,4,spar1[3*ki],spar2[3*ki],1,&kstat);
325 sh1262_s9hermit(ecoef+kncond+4*ki,4,spar1[3*ki],spar2[3*ki],1,&kstat);
387 if (spar1 != SISL_NULL) freearray(spar1);
H A Ds1310.c616 memcopy(spar1,sgpar1+2*(kstart-1),2,DOUBLE);
663 memcopy(spar1,sipar1,2,DOUBLE);
678 memcopy(stpar1,spar1,2,DOUBLE);
794 memcopy(spar1,stpar1,2,DOUBLE);
894 t2distgd = s9adstep(spnt1,spar1,spnt2,spar2,
1166 s6diff(sipar1,spar1,2,sdum1);
1285 (DEQUAL(spar1[1]+tref2,sval2[1]+tref2) &&
1287 (DEQUAL(spar1[0]+tref1,sval1[0]+tref1) &&
1289 (DEQUAL(spar1[0]+tref1,sval1[1]+tref1) &&
1405 s6diff(sipar1,spar1,2,sdum1);
[all …]
H A Ds1609.c165 double *spar1=SISL_NULL; /* Pointer to parameter values */ local
192 s1953(pc1,eps1,idim,REL_COMP_RES,aepsge,&kpt1,&spar1,&kcrv1,&qic1,&kstat);
198 tpar1 = spar1[0];
428 if (spar1 != SISL_NULL) freearray(spar1);
H A Dhp_s1880.c140 double *spar1, *spar2; /* Values of points belonging to an intersection local
249 spar1 = newarray (ipar1 * kpoint, double);
251 if ((ipar1 > 0 && spar1 == SISL_NULL) ||
259 stpar1 = spar1;
341 *ucrv = newIntcurve (kj, ipar1, ipar2, spar1, spar2, ktype);
H A Dsh6spltgeo.c137 double spar1[2],spar2[2]; /* Paramater value in which to evaluate local
223 spar1[0] = (double)0.5*(ps1->et1[ps1->ik1-1] + ps1->et1[ps1->in1]);
224 spar1[1] = (double)0.5*(ps1->et2[ps1->ik2-1] + ps1->et2[ps1->in2]);
226 s1421(ps1,kder,spar1,&kleft1,&kleft2,sder1,snorm1,&kstat);
245 memcopy(sparc1, spar1, 2, DOUBLE);
250 sparc1[2] = sparc1[6] = spar1[0];
251 sparc1[5] = sparc1[9] = spar1[1];
H A Ds1788.c148 double *spar1=SISL_NULL; /* Pointer to allocated values for parameter values*/ local
205 if ((spar1=newarray(2,DOUBLE))==SISL_NULL) goto err101;
206 memcopy(spar1,epar,2,DOUBLE);
212 if((qintcr = newIntcurve(1,2,2,spar1,spar2,0)) == SISL_NULL) goto err101;
/dports/graphics/pgplot/pgplot/applications/plotpg/
H A Dplotpg.unix182 spar1 = 'SETC'
186 spar1 = 'LSIZE'
190 spar1 = 'IFONT'
222 spar1 = 'ND2'
237 spar1 = 'THETA'
241 spar1 = 'PHI'
250 spar1 = 'NX'
255 spar1 = 'NX'
263 spar1 = 'IPT'
326 spar1 = 'X'
[all …]
H A Dplotpg.vms198 spar1 = 'SETC'
202 spar1 = 'LSIZE'
206 spar1 = 'IFONT'
238 spar1 = 'ND2'
254 spar1 = 'THETA'
258 spar1 = 'PHI'
267 spar1 = 'NX'
272 spar1 = 'NX'
280 spar1 = 'IPT'
343 spar1 = 'X'
[all …]
/dports/math/octave-forge-ltfat/ltfat/inst/blockproc/
H A Dblockpanelget.m17 % par = BLOCKPANELGET(p,'spar1','spar2','spar3') gets current values
18 % of the parameters 'spar1', 'spar2' and 'spar3' from the GUI and
20 % [par1,par2,par3] = BLOCKPANELGET(p,'spar1','spar2','spar3') gets
21 % current values of the parameters 'spar1', 'spar2' and 'spar3'
/dports/math/R-cran-VGAM/VGAM/R/
H A Dcao.fit.q247 extra$spar1 <- temp9$spar1
250 names(extra$spar1) <- ynames
449 if (!is.Numeric(spar1) || any(spar1 < 0))
500 spar1 = spar1, nameattr
546 spar1 <- procVec(control$spar1, yn = yn , Default = control$SPAR1) functionVar
671 smopar <- c(spar1, spar2)
787 spar1 = spar1, nameattr
930 spar1 <- rep_len(control$spar1, NOS) # This is used functionVar
935 spar1 <- procVec(control$spar1, yn = yn , Default = control$SPAR1)
939 smopar <- c(spar1, spar2)
[all …]
/dports/math/R-cran-VGAM/VGAM/man/
H A Dcao.control.Rd23 spar1 = 0, spar2 = 0, ...)
243 ignored if \code{spar1} is assigned a positive value or values. Ditto
247 \item{spar1, spar2}{
253 0 (the default) for \code{spar1} means that \code{df1.nl} is used.
306 If \code{spar1 = 0} and \code{df1.nl = 0} then this represents fitting
372 %% df1.nl = 2.5, spar1 = 0, ...)
/dports/math/mpsolve/mpsolve-3.2.1/src/libmps/common/
H A Dcontext.c237 s->spar1 = mps_realloc (s->spar1, sizeof(mps_boolean) * (n + 2)); in mps_context_shrink()
278 s->spar1 = mps_realloc (s->spar1, sizeof(mps_boolean) * (n + 2)); in mps_context_expand()
/dports/math/mpsolve/mpsolve-3.2.1/src/libmps/system/
H A Ddata.c72 s->spar1 = mps_boolean_valloc (s->deg + 2); in mps_allocate_data()
275 free (s->spar1); in mps_free_data()

12