Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
(+ МК-61) |
m (Added Raven code for Arithmetic-geometric mean) |
||
| Line 835: | Line 835: | ||
(bf #e0.84721308479397908660649912348219163648144591032694218506057918) |
(bf #e0.84721308479397908660649912348219163648144591032694218506057918) |
||
</pre> |
</pre> |
||
=={{header|Raven}}== |
|||
<lang Raven>define agm use $a, $g, $errlim |
|||
# $errlim $g $a "%d %g %d\n" print |
|||
$a 1.0 + as $t |
|||
repeat $a 1.0 * $g - abs -15 exp10 $a * > while |
|||
$a $g + 2 / as $t |
|||
$a $g * sqrt as $g |
|||
$t as $a |
|||
$g $a $t "t: %g a: %g g: %g\n" print |
|||
$a |
|||
16 1 2 sqrt / 1 agm "agm: %.15g\n" print</lang> |
|||
{{out}} |
|||
<pre>t: 0.853553 a: 0.853553 g: 0.840896 |
|||
t: 0.847225 a: 0.847225 g: 0.847201 |
|||
t: 0.847213 a: 0.847213 g: 0.847213 |
|||
t: 0.847213 a: 0.847213 g: 0.847213 |
|||
agm: 0.847213084793979</pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |
||