/dports/math/scilab/scilab-6.1.1/scilab/modules/polynomials/src/fortran/ |
H A D | quadit.f | 28 real mp, omp, ee, relstp, t, zm 67 if (relstp.gt..01 .or. mp.lt.omp .or. tried) 72 if (relstp.lt.eta) relstp = eta 73 relstp = sqrt(relstp) 74 u = u - u*relstp 75 v = v + v*relstp 91 relstp = abs((vi-v)/vi)
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/cdflib/ |
H A D | dinvr.f | 67 DOUBLE PRECISION absstp,abstol,big,fbig,fsmall,relstp,reltol, local 140 step = max(absstp,relstp*abs(x)) 339 relstp = 0d0 367 relstp = zrelst
|
/dports/math/lidia/lidia-2.3.0+latte-patches-2014-10-04/src/base/polynomial/ |
H A D | jenkins_traub.cc | 479 bigfloat mp, ms, omp, relstp, r1, r2, tp; in vrshft() local 502 if (!(b || mp< omp || relstp >= 0.05)) { in vrshft() 506 tp = relstp; in vrshft() 508 if (relstp < eta) in vrshft() 531 relstp = abs(t/s); in vrshft() 1092 if (relstp < eta) in quadit() 1093 relstp = eta; in quadit() 1094 relstp = sqrt(relstp); in quadit() 1095 u -= u*relstp; in quadit() 1096 v += v*relstp; in quadit() [all …]
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/statistics/src/dcdflib/ |
H A D | dinvr.f | 69 DOUBLE PRECISION absstp,abstol,big,fbig,fsmall,relstp,reltol, local 148 step = max(absstp,relstp*abs(x)) 347 relstp = zrelst
|
/dports/science/simbody/simbody-Simbody-3.7/SimTKcommon/Polynomial/src/ |
H A D | rpoly.cpp | 400 T mp,omp,ee,relstp,t,zm; in quadit() local 473 if (relstp > 0.01 || mp < omp || tried) goto _50; in quadit() 478 if (relstp < eta) relstp = eta; in quadit() 479 relstp = sqrt(relstp); in quadit() 480 u = u - u*relstp; in quadit() 481 v = v + v*relstp; in quadit() 498 relstp = std::abs((vi-v)/vi); in quadit()
|
H A D | cpoly.cpp | 350 T mp, ms, omp, relstp, r1, r2, tp; in vrshft() local 375 if( !( b || mp < omp || relstp >= 0.05 ) ) in vrshft() 379 tp = relstp; in vrshft() 381 if( relstp < eta ) tp = eta; in vrshft() 408 relstp = cmod( tr, ti ) / cmod( sr, si ); in vrshft()
|
/dports/math/gap/gap-4.11.0/pkg/float-0.9.1/src/ |
H A D | cpoly.C | 202 xreal mp, ms, omp = 0.0, relstp = 0.0, tp; in vrshft() local 229 if(!(b || mp < omp || relstp >= 0.05)){ in vrshft() 233 tp = relstp; in vrshft() 235 if(relstp < xeta(P[0])) tp = xeta(P[0]); in vrshft() 260 relstp = xabs(t) / xabs(*s); in vrshft()
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/toms/ |
H A D | rpoly.c | 495 real relstp=0, omp=0; in quadit_() local 545 if (relstp > 0.01f || mp < omp || tried) { in quadit_() 551 if (relstp < global_1.eta) { in quadit_() 552 relstp = global_1.eta; in quadit_() 554 relstp = (float)sqrt(relstp); in quadit_() 555 global_1.u -= global_1.u * relstp; in quadit_() 556 global_1.v += global_1.v * relstp; in quadit_() 575 relstp = (real)abs((vi - global_1.v) / vi); in quadit_()
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/toms/ |
H A D | rpoly.c | 495 real relstp=0, omp=0; in quadit_() local 545 if (relstp > 0.01f || mp < omp || tried) { in quadit_() 551 if (relstp < global_1.eta) { in quadit_() 552 relstp = global_1.eta; in quadit_() 554 relstp = (float)sqrt(relstp); in quadit_() 555 global_1.u -= global_1.u * relstp; in quadit_() 556 global_1.v += global_1.v * relstp; in quadit_() 575 relstp = (real)abs((vi - global_1.v) / vi); in quadit_()
|
/dports/math/universal/universal-3.48/applications/roots/ |
H A D | rpoly_ak1.cpp | 565 double c, ee, mp, omp, relstp, t, u, ui, v, vi, zm; in QuadIT_ak1() local 569 relstp = 0.01; in QuadIT_ak1() 613 if ((relstp <= 0.01) && (mp >= omp) && (!triedFlag)){ in QuadIT_ak1() 617 relstp = ((relstp < DBL_EPSILON) ? sqrt(DBL_EPSILON) : sqrt(relstp)); in QuadIT_ak1() 619 u -= u*relstp; in QuadIT_ak1() 620 v += v*relstp; in QuadIT_ak1() 647 relstp = fabs((-v + vi)/vi); in QuadIT_ak1()
|
/dports/math/R-cran-forecast/forecast/src/ |
H A D | etspolyroot.c | 361 static double r1, r2, mp, ms, tp, relstp; in vrshft() local 387 if (!b && mp >= omp && relstp < .05) { in vrshft() 394 tp = relstp; in vrshft() 396 if (relstp < eta) in vrshft() 428 relstp = hypot(tr, ti) / hypot(sr, si); in vrshft()
|
/dports/math/maxima/maxima-5.43.2/src/ |
H A D | cpoly.lisp | 324 (t (setq tp relstp bool1 t) 679 (and (< relstp *are*) (setq relstp *are*)) 680 (setq relstp (sqrt relstp) 681 *u* (- *u* (* *u* relstp)) 682 *v* (+ *v* (* *v* relstp))) 1133 (relstp) 1157 (setq tp relstp 1159 (when (fpgreaterp *are* relstp) 1712 (relstp) 1736 (setq relstp *are*)) [all …]
|
/dports/math/PDL/PDL-2.019/Basic/Math/ |
H A D | cpoly.c | 447 double mp,ms,omp,relstp,r1,r2,tp; in vrshft() local 471 if (!b && mp>=omp && relstp < .05L) { in vrshft() 476 if (relstp < eta) in vrshft() 479 tp = relstp; in vrshft() 506 relstp = cmod(tr,ti)/cmod(sr,si); in vrshft()
|
/dports/math/R/R-4.1.2/src/main/ |
H A D | complex.c | 1223 static double r1, r2, mp, ms, tp, relstp; in vrshft() local 1249 if (!b && mp >= omp && relstp < .05) { in vrshft() 1256 tp = relstp; in vrshft() 1258 if (relstp < eta) in vrshft() 1290 relstp = hypot(tr, ti) / hypot(sr, si); in vrshft()
|
/dports/math/libRmath/R-4.1.1/src/main/ |
H A D | complex.c | 1223 static double r1, r2, mp, ms, tp, relstp; in vrshft() local 1249 if (!b && mp >= omp && relstp < .05) { in vrshft() 1256 tp = relstp; in vrshft() 1258 if (relstp < eta) in vrshft() 1290 relstp = hypot(tr, ti) / hypot(sr, si); in vrshft()
|
/dports/math/R/R-4.1.2/src/appl/ |
H A D | uncmin.c | 1921 double d, relgrd, relstp, rgx, rsx; in opt_stop() local 1949 relstp = fabs(xpls[i] - x[i]) / fmax2(fabs(xpls[i]), 1./sx[i]); in opt_stop() 1950 if(rsx < relstp) rsx = relstp; in opt_stop()
|
/dports/math/libRmath/R-4.1.1/src/appl/ |
H A D | uncmin.c | 1921 double d, relgrd, relstp, rgx, rsx; in opt_stop() local 1949 relstp = fabs(xpls[i] - x[i]) / fmax2(fabs(xpls[i]), 1./sx[i]); in opt_stop() 1950 if(rsx < relstp) rsx = relstp; in opt_stop()
|
/dports/math/p5-Math-CDF/Math-CDF-0.1/cdflib/ |
H A D | dcdflib.c | 6339 static double absstp,abstol,big,fbig,fsmall,relstp,reltol,small,step,stpmul,xhi, in E0000() local 6396 step = fifdmax1(absstp,relstp*fabs(*x)); in E0000() 6522 relstp = *zrelst; in E0000()
|
/dports/math/pecl-stats2/stats-2.0.3/ |
H A D | dcdflib.c | 6339 static double absstp,abstol,big,fbig,fsmall,relstp,reltol,small,step,stpmul,xhi, in E0000() local 6396 step = fifdmax1(absstp,relstp*fabs(*x)); in E0000() 6522 relstp = *zrelst; in E0000()
|
/dports/biology/vcflib/vcflib-1.0.2/src/ |
H A D | cdflib.cpp | 6859 static double big,fbig,fsmall,relstp,reltol,small,step,stpmul,xhi, in E0000() local 6919 step = fifdmax1(absstp,relstp*fabs(*x)); in E0000() 7039 relstp = *zrelst; in E0000()
|
/dports/biology/freebayes/freebayes-1.3.5/vcflib-temp/src/ |
H A D | cdflib.cpp | 6850 static double big,fbig,fsmall,relstp,reltol,small,step,stpmul,xhi, in E0000() local 6910 step = fifdmax1(absstp,relstp*fabs(*x)); in E0000() 7030 relstp = *zrelst; in E0000()
|
/dports/biology/freebayes/freebayes-1.3.5/vcflib/src/ |
H A D | cdflib.cpp | 6850 static double big,fbig,fsmall,relstp,reltol,small,step,stpmul,xhi, in E0000() local 6910 step = fifdmax1(absstp,relstp*fabs(*x)); in E0000() 7030 relstp = *zrelst; in E0000()
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/DDACE/src/Random/ |
H A D | dcdflib.c | 6020 static double absstp,abstol,big,fbig,fsmall,relstp,reltol,small,step,stpmul,xhi, in E0000() local 6077 step = fifdmax1(absstp,relstp*fabs(*x)); in E0000() 6203 relstp = *zrelst; in E0000()
|
/dports/biology/plink/plink-ng-79b2df8c/1.9/ |
H A D | dcdflib.c | 6017 static double absstp,abstol,big,fbig,fsmall,relstp,reltol,small,step,stpmul,xhi, in E0000() local 6074 step = fifdmax1(absstp,relstp*fabs(*x)); in E0000() 6199 relstp = *zrelst; in E0000()
|
/dports/biology/gcta/gcta_1.26.0_src/ |
H A D | dcdflib.cpp | 6019 static double absstp,abstol,big,fbig,fsmall,relstp,reltol,small,step,stpmul,xhi, in E0000() local 6076 step = fifdmax1(absstp,relstp*fabs(*x)); in E0000() 6202 relstp = *zrelst; in E0000()
|