/dports/science/py-scipy/scipy-1.7.1/scipy/linalg/src/id_dist/src/ |
H A D | idd_snorm.f | 24 1 matvec,p1,p2,p3,p4,its,snorm,v,u) 121 call idd_enorm(n,v,snorm) 123 if(snorm .gt. 0) then 126 v(k) = v(k)/snorm 131 snorm = sqrt(snorm) 272 real*8 snorm,p1t,p2t,p3t,p4t,p1t2,p2t2,p3t2,p4t2, local 310 4 its,snorm,w(iu),w(iu1),w(iu2), 384 call idd_enorm(n,v,snorm) 386 if(snorm .gt. 0) then 389 v(k) = v(k)/snorm [all …]
|
H A D | idz_snorm.f | 85 real*8 snorm,enorm local 123 call idz_enorm(n,v,snorm) 125 if(snorm .ne. 0) then 128 v(k) = v(k)/snorm 133 snorm = sqrt(snorm) 276 real*8 snorm local 337 real*8 snorm,enorm local 391 call idz_enorm(n,v,snorm) 393 if(snorm .gt. 0) then 396 v(k) = v(k)/snorm [all …]
|
/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/ |
H A D | s1305.c | 125 double snorm[2]; /* Normal vector */ local 160 snorm[0] = -(epar2[1] - epar1[1]); 161 snorm[1] = epar2[0] - epar1[0]; 163 (void)s6norm(snorm,2,snorm,&kstat); 168 simpli[0] = (eval1[0]-epar1[0])*snorm[0] + (eval2[0]-epar1[1])*snorm[1]; 169 simpli[1] = (eval1[0]-epar1[0])*snorm[0] + (eval2[1]-epar1[1])*snorm[1]; 170 simpli[2] = (eval1[1]-epar1[0])*snorm[0] + (eval2[1]-epar1[1])*snorm[1]; 171 simpli[3] = (eval1[1]-epar1[0])*snorm[0] + (eval2[0]-epar1[1])*snorm[1];
|
H A D | s1362.c | 156 double snorm[3]; /* Normal to tangent vector */ local 195 snorm[0] = -sder[3]; 196 snorm[1] = sder[2]; 210 s6crss(sder+idim,enorm,snorm); 219 tl = s6length(snorm,idim,&kstat); 225 eder[ki] = sder[ki] + aoffset*snorm[ki]/tl; 232 tpndpn = s6scpr(snorm,sdnorm,idim); 239 - snorm[ki]*tpndpn/tl3); 247 tpnddpn = s6scpr(snorm,sddnorm,idim); 256 - snorm[ki]*(tdpndpn+tpnddpn)/tl3 [all …]
|
H A D | s1367.c | 230 s6crss(sder+kdim,sder+3*kdim,snorm); 236 tnorm = s6length(snorm,kdim,&kstat); 259 s6degnorm(ps,2,epar,sder,utang,vtang,snorm,&kstat); 263 tnorm = s6length(snorm,kdim,&kstat); 266 eder[ki]=sder[ki]+aoffset*snorm[ki]/tnorm; 426 tnun = s6scpr(snorm,snoru,idim); 445 tnvn = s6scpr(snorm,snorv,idim); 468 tnuvn = s6scpr(snorm,snoruv,idim); 474 (tunvn/(tnorm*tnorm*tnorm))*snorm[ki]- 475 (tnuvn/(tnorm*tnorm*tnorm))*snorm[ki]+ [all …]
|
H A D | s1600.c | 114 double *snorm=SISL_NULL; /* Pointer to normalized normal */ local 157 snorm = newarray(idim,DOUBLE); 158 if (snorm == SISL_NULL) goto err101; 168 (void)s6norm(enorm,idim,snorm,&kstat); 183 tdist = s6scpr(svecpv,snorm,idim); 190 smirr[kvert] = scoef[kvert] - tdist*snorm[kid]; 232 if (snorm != SISL_NULL) freearray(snorm);
|
H A D | s1601.c | 114 double *snorm=SISL_NULL; /* Pointer to normalized normal */ local 154 snorm = newarray(idim,DOUBLE); 155 if (snorm == SISL_NULL) goto err101; 166 (void)s6norm(enorm,idim,snorm,&kstat); 182 tdist = s6scpr(svecpv,snorm,idim); 189 smirr[kvert] = scoef[kvert] - tdist*snorm[kid]; 235 if (snorm != SISL_NULL) freearray(snorm);
|
H A D | s1314.c | 138 double snorm[3]; /* Normalized version of normal vector */ local 146 (void)s6norm(enorm,idim,snorm,&kstat); 148 simpli[0] = snorm[0]; 149 simpli[1] = snorm[1]; 150 simpli[2] = snorm[2]; 151 simpli[3] = -s6scpr(epoint,snorm,idim);
|
H A D | s1830.c | 113 double *snorm = SISL_NULL; /* Main normal of surface. */ local 126 if ((snorm = newarray(kdim,double)) == SISL_NULL) goto err101; 151 s6crss(sdiag1,sdiag2,snorm); 155 s1834(ssurf,kn1*kn2,scurve,knc,kdim,stan,snorm,&kstat); 162 s1834(ssurf,kn1*kn2,scurve,knc,kdim,snorm,stan,&kstat); 202 if (snorm != SISL_NULL) freearray(snorm);
|
H A D | s6dplane.c | 111 double snorm[3]; /* Normal vector to the plane. */ local 128 s6crss(sdiff1,sdiff2,snorm); 129 (void)s6norm(snorm,idim,snorm,&kstat); 134 tdist = fabs(s6scpr(sdiff3,snorm,idim));
|
H A D | sh1830.c | 115 double *snorm = SISL_NULL; /* Main normal of surface. */ local 147 if ((snorm = newarray(kdim,double)) == SISL_NULL) goto err101; 172 s6crss(sdiag1,sdiag2,snorm); 176 sh1834(po1,po2,aepsge,kdim,stan,snorm,&kstat); 183 sh1834(po1,po2,aepsge,kdim,snorm,stan,&kstat); 229 if (snorm != SISL_NULL) freearray(snorm);
|
H A D | s1329.c | 122 double *snorm; /* Pointer used to traverse the normal enorm. */ local 180 for (s3=sc+idim,spoint=epoint,snorm=enorm; sc<s3; sc++,spoint++,snorm++) 184 *s1 += (*sc - (*s3)*(*spoint))*(*snorm); 191 for (s3=sc+idim,spoint=epoint,snorm=enorm; sc<s3; sc++,spoint++,snorm++) 194 *s1 += (*sc - *spoint)*(*snorm);
|
H A D | s1319.c | 134 double snorm[3]; /* Normalized version of normal vector */ local 142 (void)s6norm(eview,idim,snorm,&kstat); 144 simpli[0] = snorm[0]; 145 simpli[1] = snorm[1]; 146 simpli[2] = snorm[2];
|
H A D | s1515.c | 140 double snorm[3]; /* Normalized version of direction vector bvec */ local 149 (void) s6norm (bvec, idim, snorm, &kstat); 156 simpli[3] = snorm[0]; 157 simpli[4] = snorm[1]; 158 simpli[5] = snorm[2];
|
H A D | s1609.c | 169 double snorm[3]; /* Normal vector */ local 247 snorm[0] = -spnt1[3]; 248 snorm[1] = spnt1[2]; 250 tprod = s6scpr(snorm,sdiff,idim); 258 s6crss(sdiff,spnt1+idim,snorm); 259 tprod = s6scpr(snorm,enorm,idim); 273 snorm[0] = -spnt2[3]; 274 snorm[1] = spnt2[2]; 276 tprod = s6scpr(snorm,sdiff,idim); 284 s6crss(sdiff,spnt2+idim,snorm); [all …]
|
/dports/math/gsl/gsl-2.7/doc/examples/ |
H A D | fitreg2.c | 62 double chisq, rnorm, snorm; in main() local 71 gsl_multifit_linear_solve(0.0, X, y, c, &rnorm, &snorm, w); in main() 76 fprintf(stderr, "solution norm = %g\n", snorm); in main() 87 gsl_multifit_linear_solve(lambda_l, X, y, c_lcurve, &rnorm, &snorm, w); in main() 88 chisq = pow(rnorm, 2.0) + pow(lambda_l * snorm, 2.0); in main() 93 fprintf(stderr, "solution norm = %g\n", snorm); in main() 100 gsl_multifit_linear_solve(lambda_gcv, X, y, c_gcv, &rnorm, &snorm, w); in main() 101 chisq = pow(rnorm, 2.0) + pow(lambda_gcv * snorm, 2.0); in main() 106 fprintf(stderr, "solution norm = %g\n", snorm); in main()
|
H A D | fitreg.c | 53 double chisq, rnorm, snorm; in main() local 62 gsl_multifit_linear_solve(0.0, X, y, c, &rnorm, &snorm, w); in main() 69 fprintf(stderr, "solution norm = %g\n", snorm); in main() 80 gsl_multifit_linear_solve(lambda_l, X, y, c_lcurve, &rnorm, &snorm, w); in main() 81 chisq = pow(rnorm, 2.0) + pow(lambda_l * snorm, 2.0); in main() 88 fprintf(stderr, "solution norm = %g\n", snorm); in main() 95 gsl_multifit_linear_solve(lambda_gcv, X, y, c_gcv, &rnorm, &snorm, w); in main() 96 chisq = pow(rnorm, 2.0) + pow(lambda_gcv * snorm, 2.0); in main() 103 fprintf(stderr, "solution norm = %g\n", snorm); in main()
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/randlib/src/fortran/ |
H A D | gennch.f | 44 DOUBLE PRECISION sgamma,snorm 45 EXTERNAL sgamma,snorm 57 gennch = (snorm() + sqrt(xnonc))**2 61 20 gennch = 2.0*sgamma((df-1.0)/2.0) + (snorm() + sqrt(xnonc))**2
|
H A D | gennf.f | 50 DOUBLE PRECISION sgamma,snorm 51 EXTERNAL sgamma,snorm 61 xnum = (snorm() + sqrt(xnonc))**2 65 20 xnum = (2.0*sgamma((dfn-1.0)/2.0) + (snorm()+sqrt(xnonc))**2)/dfn
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/trilinos/packages/rol/src/step/trustregion/ |
H A D | ROL_LinMore.hpp | 143 Real &snorm, in run() argument 241 snorm = s.norm(); in run() 340 snorm = dgpstep(s,g,x,-alpha,model); in dcauchy() 341 if (snorm > del) { in dcauchy() 356 if (snorm <= del) { in dcauchy() 370 if (snorm <= del) { in dcauchy() 384 snorm = dgpstep(s,g,x,-alpha,model); in dcauchy() 386 return snorm; in dcauchy() 410 snorm = dgpstep(pwa,s,x,beta,model); in dprsrch() 424 snorm = dgpstep(pwa,s,x,beta,model); in dprsrch() [all …]
|
/dports/math/randlib/source/randlib.f/src/ |
H A D | gennch.f | 44 REAL sgamma,snorm 45 EXTERNAL sgamma,snorm 62 gennch = (snorm() + sqrt(xnonc))**2 66 20 gennch = 2.0*sgamma((df-1.0)/2.0) + (snorm() + sqrt(xnonc))**2
|
H A D | gennf.f | 51 REAL sgamma,snorm 52 EXTERNAL sgamma,snorm 71 xnum = (snorm() + sqrt(xnonc))**2 75 20 xnum = (2.0*sgamma((dfn-1.0)/2.0) + (snorm()+sqrt(xnonc))**2)/dfn
|
/dports/math/octave/octave-6.4.0/liboctave/external/ranlib/ |
H A D | gennch.f | 44 REAL sgamma,snorm local 45 EXTERNAL sgamma,snorm 62 gennch = (snorm() + sqrt(xnonc))**2 66 20 gennch = 2.0*sgamma((df-1.0)/2.0) + (snorm() + sqrt(xnonc))**2
|
/dports/graphics/graphviz/graphviz-2.44.1/lib/edgepaint/ |
H A D | intersection.c | 126 real rnorm = 0, snorm = 0, b, t, u; in intersection_angle() local 142 snorm += s[i]*s[i]; in intersection_angle() 144 snorm = sqrt(snorm); in intersection_angle() 146 line_dist_close = (line_segments_distance(p1, p2, q1, q2) <= close*MAX(rnorm, snorm)); in intersection_angle() 147 if (ABS(b) <= epsilon*snorm*rnorm){/* parallel */ in intersection_angle() 159 if (rnorm*snorm < MACHINEACC) return 0; in intersection_angle() 163 res = rs/(rnorm*snorm); in intersection_angle()
|
/dports/science/R-cran-kernlab/kernlab/src/ |
H A D | dtron.c | 110 double gnorm, gnorm0, delta, snorm; in dtron() local 163 snorm = F77_CALL(dnrm2)(&n, s, &inc); in dtron() 165 delta = mymin(delta, snorm); in dtron() 180 delta = mymin(mymax(alpha, sigma1)*snorm, sigma2*delta); in dtron() 186 delta = mymax(sigma1*delta, mymin(alpha*snorm, sigma2*delta)); in dtron() 193 delta = mymax(sigma1*delta, mymin(alpha*snorm, sigma3*delta)); in dtron() 198 delta = mymax(delta, mymin(alpha*snorm, sigma3*delta)); in dtron()
|