Arithmetic-geometric mean: Difference between revisions

Content added Content deleted

Inline

@@ Line 392: / Line 392: @@
 LET AGM=A
 END DEF</lang>
+==={{header|True BASIC}}===
+{{works with|QBasic}}
+<lang qbasic>FUNCTION AGM (a, g)
+    DO
+       LET ta = (a + g) / 2
+       LET g = SQR(a * g)
+       LET x = a
+       LET a = ta
+       LET ta = x
+    LOOP UNTIL a = ta
+    LET AGM = a
+END FUNCTION
+PRINT AGM(1, 1 / SQR(2))
+END</lang>
+{{out}}
+<pre>
+.84721308
+</pre>
 =={{header|bc}}==