Arithmetic-geometric mean: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,289: / Line 1,289: @@
 =={{header|dc}}==
-<syntaxhighlight lang="dc">>> [125k ? sbsa [lalb +2/dsc lalb *vdsb lcsa - 0!=:]ds:xlap]sm
+<syntaxhighlight lang="dc">>>> 200 k ? sbsa [lalb +2/ lalb *vsb dsa lb - 0!=:]ds:xlap
->>> lmx
 ?> 1 1 2 v /</syntaxhighlight>
@@ Line 1,296: / Line 1,295: @@
 <pre>
 .8472130847939790866064991234821916364814459103269421850605793726597\
+34004834134759723200293994611229942122285625233410963097962665830871\
-3400483413475972320029399461122994212228562523341096309793
+05969971363598338425117632681428906038970676860161665004828118868
 </pre>
-You can change the precision (125 by default)
+You can change the precision (200 by default)
 =={{header|EchoLisp}}==