Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (added Arturo) |
|||
| Line 339: | Line 339: | ||
{{Out}} |
{{Out}} |
||
<pre>0.847213084835</pre> |
<pre>0.847213084835</pre> |
||
=={{header|Arturo}}== |
|||
<syntaxhighlight lang="arturo">agm: function [a,g][ |
|||
delta: 1e-15 |
|||
[aNew, aOld, gOld]: @[0, a, g] |
|||
while [delta < abs aOld - gOld][ |
|||
aNew: 0.5 * aOld + gOld |
|||
gOld: sqrt aOld * gOld |
|||
aOld: aNew |
|||
] |
|||
return aOld |
|||
] |
|||
print agm 1.0 1.0/sqrt 2.0</lang> |
|||
{{out}} |
|||
<pre>0.8472130847939792</pre> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |
||