Anonymous user
Arithmetic-geometric mean: Difference between revisions
→{{header|SQL}}
m (→{{header|REXX}}: added/changed whitespace and comments.) |
|||
Line 2,725:
-- ----------------------------------------- ------------------------------------------ ------------------------------------------
6 0.847213084793979086606499123482191636480 0.8472130847939790866064991234821916364792 0.0000000000000000000000000000000000000008</pre>
=={{header|Standard ML}}==
<lang sml>
fun agm(a, g) = let
fun agm'(a, g, eps) =
if Real.abs(a-g) < eps then
a
else
agm'((a+g)/2.0, Math.sqrt(a*g), eps)
in agm'(a, g, 1e~15)
end;
</lang>
{{out}}
<pre>
=={{header|Stata}}==
| |||