Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 1,547: | Line 1,547: | ||
=={{header|Oforth}}== |
=={{header|Oforth}}== |
||
<lang Oforth>: agm |
<lang Oforth>: agm \ a b -- m |
||
while( 2dup <> ) [ 2dup + 2 / -rot * sqrt ] drop ;</lang> |
|||
Usage : |
Usage : |
||