/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/ |
H A D | s1787.c | 271 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 D | s1912.c | 144 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 D | s1901.c | 145 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 D | s1955.c | 138 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 D | s9clipimp.c | 142 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 D | s1366.c | 169 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 D | s1237.c | 114 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 D | s1238.c | 128 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 D | s1608.c | 152 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 D | s1880.c | 131 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 D | s1313.c | 537 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 D | sh1794.c | 121 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 D | sh1262.c | 162 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 D | s1310.c | 616 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 D | s1609.c | 165 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 D | hp_s1880.c | 140 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 D | sh6spltgeo.c | 137 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 D | s1788.c | 148 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 D | plotpg.unix | 182 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 D | plotpg.vms | 198 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 D | blockpanelget.m | 17 % 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 D | cao.fit.q | 247 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 D | cao.control.Rd | 23 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 D | context.c | 237 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 D | data.c | 72 s->spar1 = mps_boolean_valloc (s->deg + 2); in mps_allocate_data() 275 free (s->spar1); in mps_free_data()
|