Arithmetic-geometric mean: Difference between revisions
added Arturo
Drkameleon (talk | contribs) (added Arturo) |
|||
Line 339:
{{Out}}
<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}}==
|