Home
last modified time | relevance | path

Searched refs:snorm (Results 1 – 25 of 591) sorted by relevance

12345678910>>...24

/dports/science/py-scipy/scipy-1.7.1/scipy/linalg/src/id_dist/src/
H A Didd_snorm.f24 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 Didz_snorm.f85 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 Ds1305.c125 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 Ds1362.c156 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 Ds1367.c230 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 Ds1600.c114 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 Ds1601.c114 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 Ds1314.c138 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 Ds1830.c113 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 Ds6dplane.c111 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 Dsh1830.c115 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 Ds1329.c122 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 Ds1319.c134 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 Ds1515.c140 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 Ds1609.c169 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 Dfitreg2.c62 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 Dfitreg.c53 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 Dgennch.f44 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 Dgennf.f50 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 DROL_LinMore.hpp143 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 Dgennch.f44 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 Dgennf.f51 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 Dgennch.f44 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 Dintersection.c126 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 Ddtron.c110 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()

12345678910>>...24