Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed whitespace and comments.) |
|||
Line 2,725: | Line 2,725: | ||
-- ----------------------------------------- ------------------------------------------ ------------------------------------------ |
-- ----------------------------------------- ------------------------------------------ ------------------------------------------ |
||
6 0.847213084793979086606499123482191636480 0.8472130847939790866064991234821916364792 0.0000000000000000000000000000000000000008</pre> |
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}}== |
=={{header|Stata}}== |