Anonymous user
Arithmetic-geometric mean: Difference between revisions
→{{header|Racket}}: Added bigfloat version.
(Racket) |
(→{{header|Racket}}: Added bigfloat version.) |
||
Line 803:
=={{header|Racket}}==
This version uses Racket's normal numbers:
<lang racket>
#lang racket
Line 815 ⟶ 816:
<pre>
0.8472130847939792
</pre>
This alternative version uses arbitrary precision floats:
<lang racket>
#lang racket
(require math/bigfloat)
(bf-precision 200)
(bfagm 1.bf (bf/ (bfsqrt 2.bf)))
</lang>
Output:
<pre>
(bf #e0.84721308479397908660649912348219163648144591032694218506057918)
</pre>
| |||