Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
Line 1,368: | Line 1,368: | ||
# Using 256-bit float numbers: |
# Using 256-bit float numbers: |
||
agm(x, y) = 8.472130847939790866064991234821916364814459103269421850605793726597340048341323e-01</pre> |
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}}== |
=={{header|Kotlin}}== |