Arithmetic-geometric mean: Difference between revisions
→{{header|Kotlin}}
Line 1,368:
# Using 256-bit float numbers:
agm(x, y) = 8.472130847939790866064991234821916364814459103269421850605793726597340048341323e-01</pre>
=={{header|Klingphix}}==
{{trans|Oforth}}
<lang Klingphix>include ..\Utilitys.tlhy
:agm [ over over + 2 / rot rot * sqrt ] [ over over tostr swap tostr # ] while drop ;
1 1 2 sqrt / agm
pstack
" " input</lang>
{{trans|F#}}
<lang Klingphix>include ..\Utilitys.tlhy
:agm %a %g %p !p !g !a
$p $a $g - abs > ( [$a] [.5 $a $g + * $a $g * sqrt $p agm] ) if ;
1 .5 sqrt 1e-15 agm
pstack
" " input</lang>
{{out}}
<pre>(0.847213)</pre>
=={{header|Kotlin}}==
| |||