Revision as of 11:32, 17 March 2018 (view source) Davgot (talk \| contribs) No edit summary ← Older edit		Revision as of 20:02, 2 April 2018 (view source) Franck (talk \| contribs) m (→‎{{header\|Oforth}}) Newer edit →
Line 1,547: =={{header\|Oforth}}== <lang Oforth>: agm ~~while(2dup~~ ~~<>)~~\ [a ~~2dup~~b +-- ~~2 / tor * sqrt ] drop ;</lang>~~m while( 2dup <> ) [ 2dup + 2 / -rot * sqrt ] drop ;</lang> Usage :

Arithmetic-geometric mean (view source)