| /dports/math/maxima/maxima-5.43.2/share/contrib/levin/ |
| H A D | rtest_levin.mac | 26 fpprec:16;
37 fpprec:30;
131 fpprec:16;
141 fpprec:10;
153 fpprec:60;
157 fpprec:16;
193 fpprec:100;
201 fpprec:10;
205 fpprec:100;
213 fpprec:10;
[all …]
|
| H A D | levin.mac | 128 block([fpprec:16], /* start lower precision block */
204 block([fpprec:16], /* start lower precision block */
297 return([result__[1],bfloat(sqrt(result__[2])*10^(-fpprec))])
301 an indefinite sum numerically with precision given by fpprec.
305 bflevin_u_sum(a__,index_var__,start__):=block([fpprec:fpprec,fpprec_save__,
321 fpprec_save__:fpprec,
350 actual_precision__:fpprec
363 precision= ",fpprec,"
374 fpprec:fpprec+precision_overshoot_high__-actual_precision__,
375 if fpprec> levin_options["max_precision"] then (
[all …]
|
| H A D | levin.dem | 18 fpprec:16$
27 fpprec:50$
32 fpprec:16$
|
| /dports/math/maxima/maxima-5.43.2/share/numeric/ |
| H A D | bffac.mac | 20 obfac(z,fpprec):=block([y:z-entier(z),x:entier(7*fpprec/3),m:0],
38 *bzeta(1-s,fpprec)
98 obzeta(s,fpprec):=if s > 0
108 *bzeta(1-s,fpprec)
129 *bzeta(1-s,fpprec)
132 bfpsi(n,z,fpprec):=if equal(n,0) then bfpsi0(z,fpprec)
135 bffac(z,fpprec):=if z < 0 then bfloat(%pi*z/sin(%pi*z))/bffac(-z,fpprec)
152 +log(10)*fpprec)
201 bfpsi0(z,fpprec):=if z < 0 then bfloat(%pi*cot(%pi*(-z)))+bfpsi0(1-z,fpprec)
231 block([fpprec: fpp],
[all …]
|
| H A D | decfp-core.lisp | 4 (declare-top (special *m fpprec $fpprec $float $bfloat $ratprint $ratepsilon $domain $m1pbranch
188 ((= fpprec (caddar x))
192 ((> fpprec (caddar x))
196 (setq x (bcons (list (fpshift (cadr x) (- fpprec (caddar x)))
202 (+ (caddr x) *m fpprec (- (caddar x))))))))
251 (fpprec machine-mantissa-precision)
629 (fpprec (+ fpprec extra-prec))
645 (let ((fpprec (- fpprec extra-prec)))
|
| /dports/math/maxima/maxima-5.43.2/src/ |
| H A D | float.lisp | 148 (let ((fpprec (+ 4 fpprec (integer-length exp)
906 (fpend (let ((fpprec (+ 8. fpprec)))
985 (fpend (let ((fpprec (+ 8. fpprec)))
1505 (let ((fpprec (+ fpprec 12)))
1557 (let ((fpprec (+ fpprec 10))
1720 (let ((fpprec (+ extrabits fpprec)))
1774 (fpend (let ((fpprec (+ 8. fpprec)))
1780 (fpend (let ((fpprec (+ 8. fpprec)))
1834 (let ((fpprec (max fpprec (+ fpprec (cadr x))))
2464 (fpprec (+ fpprec extra))
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/contrib/binsplit/ |
| H A D | binsplit.lisp | 40 (let* ((fpprec (+ fpprec 12)) ;; needs testing
60 (bcons (bs-carg1 re-z im-z fpprec)) )))
182 (let* ((fpprec (+ fpprec 12)) ;; needs testing
185 (multiple-value-bind (re im) (bs-exp-%i*x x fpprec)
256 (let ((fpprec (+ fpprec extra)))
268 (let* ((fpprec (+ fpprec 12)) ;; needs testing
278 (setq pos2 (- fpprec (+ pos1 e)))
283 res (fptimes* res (bs-exp-u/2^2^k u k fpprec))
334 (fpprec (+ fpprec extra))
350 (let* ((fpprec (+ fpprec 12)) ;; needs more testing
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/hypergeometric/ |
| H A D | rtest_nfloat.mac | 2 fpprec : 25,
37 close_p(nfloat(sin(6),[], 20), (block([fpprec : 20], bfloat(sin(6)))), 20);
40 close_p(nfloat(x*cos(x),[x= 6.7], 10), (block([fpprec : 10], bfloat(6.7b0 * cos(6.7b0)))), 10);
73 block([fpprec : 58], close_p(nfloat(acosh(x), [x = 28.07b0 + %i * 22/7], 42),
136 close_p(nfloat(atan2(x,y),[x=1.2b0, y = -8.1b0], 25),2.994514298201390738133141b0, fpprec-2);
151 block([fpprec : 25], close_p(nfloat('(product(sin(k*x),k,1,28)),[x = 0.1b0], 25),
172 (remvalue(start,time), remove(x,complex), reset(domain, fpprec, expand_hypergeometric, max_fpprec),
|
| H A D | rtest_hg.mac | 2 fpprec : 25,
155 (fpprec : 20, close_p(a,b, dig) := is(abs(a-b) < 10^-dig * abs(a)),0);
298 (fpprec : 20, hypergeometric([2,4],[7.1b0],5.6b0 + %i));
301 (fpprec : 20, hypergeometric([2,4],[7.1b0],5.6b0));
321 (remvalue(z), domain : complex, fpprec : 20, 0);
383 big floats, the value of rationalize depends on fpprec, so be sure to set fpprec
403 ''(nfloat(hgfred([100],[2],x),[x = 0.9b0], fpprec))$
428 block([fpprec : 25], hypergeometric([-1000],[2/3],-1181.0b0));
604 close_p(hypergeometric([-4, 38/5],[13/5],1.0b0), 3125/6279, fpprec-2);
634 +1.01996502902735430283851818152075979159011b0, fpprec-2);
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/stringproc/ |
| H A D | rtestprintf.mac | 29 printf(false, "~{~a ~s ~d ~f ~h ~}", makelist( sqrt(2), n,1,5) ), fpprec: 24$
90 makelist( sqrt(2), n,1,6) ), fpprec: 24;
214 fpprec:100;
222 fpprec:16;
234 (fpprec : 100, 0);
243 (reset (fpprec), 0);
267 /* changing fpprec should not change the printed result
270 (fpprec: 22,
275 fpprec: 42,
279 reset(fpprec),
|
| /dports/math/maxima/maxima-5.43.2/share/mnewton/ |
| H A D | rtest_mnewton.mac | 4 current_fpprec : fpprec,
5 fpprec : 16,
81 block([fpprec:100, newtonepsilon:bfloat(newtonepsilon)*1b-8,f:diff(acos(x^2+8.363+267)/(sqrt(x^2-4.…
89 block([fpprec:100,newtonepsilon:bfloat(10^(-fpprec/2)),f:diff(acos(x^2+8.363+267)/(sqrt(x^2-4.29*x+…
|
| /dports/math/maxima/maxima-5.43.2/tests/ |
| H A D | rtest16.mac | 178 fpprec:16;
357 (fpprec : 2,
365 (fpprec : 3,
373 (fpprec : 4,
381 (fpprec : 5,
389 (fpprec : 10,
397 (fpprec : 20,
405 (fpprec : 40,
777 fpprec:500;
921 (oldfpprec:fpprec, fpprec:5, done);
[all …]
|
| H A D | rtest_expintegral.mac | 334 /* Remember actual fpprec */
335 (oldfpprec:fpprec, fpprec:64, done);
523 /* restore fpprec */
524 (fpprec:oldfpprec, done);
531 /* Remember actual fpprec */
532 (oldfpprec:fpprec, fpprec:64, done);
584 /* restore fpprec */
585 (fpprec:oldfpprec, done);
645 (oldfpprec:fpprec, fpprec:64, done);
671 /* restore fpprec */
[all …]
|
| H A D | rtest_gamma.mac | 9 (oldfpprec:fpprec, fpprec:16, done);
47 fpprec:16;
170 fpprec:64;
184 fpprec:64;
508 fpprec:64;
775 fpprec:16;
1147 fpprec:32;
1234 fpprec:32;
1243 fpprec:64;
1260 fpprec:32;
[all …]
|
| H A D | rtest_lambert_w.mac | 65 (oldfpprec:fpprec,fpprec:80,done);
232 (fpprec:oldfpprec, kill(oldfpprec), done);
|
| /dports/math/maxima/maxima-5.43.2/share/finance/ |
| H A D | rtest_finance.mac | 13 (fpprec: 16, 'done);
80 (reset(fpprec), 'done);
|
| /dports/math/maxima/maxima-5.43.2/tests/wester_problems/ |
| H A D | test_numerical_analysis.mac | 25 oldprec: fpprec$
26 fpprec: 50$
30 fpprec: oldprec$
|
| /dports/math/maxima/maxima-5.43.2/doc/info/ |
| H A D | mnewton.texi | 28 Default value: @code{10.0^(-fpprec/2)}
88 (%i2) (fpprec : 25, newtonepsilon : bfloat(10^(-fpprec+5)))$
|
| H A D | DataTypes.texi | 53 global variable @mrefdot{fpprec}
191 @anchor{fpprec}
192 @defvr {Option variable} fpprec
195 @code{fpprec} is the number of significant digits for arithmetic on bigfloat
221 when @code{fpprintprec} has a value between 2 and @code{fpprec} (inclusive),
223 Otherwise, @code{fpprintprec} is 0, or greater than @code{fpprec},
224 and the number of digits printed is equal to @code{fpprec}.
534 @c fpprec : 5$
536 @c fpprec : 20$
553 (%i3) fpprec : 5$
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/cobyla/ |
| H A D | bf_fmin_cobyla.demo | 9 fpprec: 32$
29 fpprec: 32$
58 fpprec: 64$
|
| /dports/math/maxima/maxima-5.43.2/share/contrib/Eulix/ |
| H A D | Eulix_T3.mac | 15 if false then block([fpprec,alpha, beta, gamma, delta],
17 fpprec:30,
|
| H A D | Eulix_Step_TP.mac | 17 mynumer: if fpprec <= 16 then 'float else 'bfloat, declare(mynumer,evfun),
30 fpprec:40,
|
| /dports/math/maxima/maxima-5.43.2/share/orthopoly/ |
| H A D | rtest_pochhammer.mac | 46 (fpprec : 35,0);
107 (remvalue(f,g), reset(fpprec),0);
|
| /dports/math/maxima/maxima-5.43.2/share/linearalgebra/ |
| H A D | rtest_lu.mac | 68 (fpprec : 20,0);
74 (fpprec : 40,0);
|
| /dports/math/maxima/maxima-5.43.2/share/contrib/ |
| H A D | floatproperties.lisp | 17 (let ((r ($bfloat (div 1 (expt 2 fpprec)))))
|