Arithmetic-geometric mean: Difference between revisions

Content added Content deleted

Inline

@@ Line 415: / Line 415: @@
 <pre>
 .84721308479
+</pre>
+==={{header|BBC BASIC}}===
+{{works with|BBC BASIC for Windows}}
+<syntaxhighlight lang="bbcbasic">      *FLOAT 64
+      @% = &1010
+      PRINT FNagm(1, 1/SQR(2))
+      END
+      DEF FNagm(a,g)
+      LOCAL ta
+      REPEAT
+        ta = a
+        a = (a+g)/2
+        g = SQR(ta*g)
+      UNTIL a = ta
+      = a
+</syntaxhighlight>
+Produces this output:
+<pre>
+.8472130847939792
 </pre>
@@ Line 445: / Line 466: @@
 IF A<TA THEN 100
 RETURN</syntaxhighlight>
-==={{header|BBC BASIC}}===
-{{works with|BBC BASIC for Windows}}
-<syntaxhighlight lang="bbcbasic">      *FLOAT 64
-      @% = &1010
-      PRINT FNagm(1, 1/SQR(2))
-      END
-      DEF FNagm(a,g)
-      LOCAL ta
-      REPEAT
-        ta = a
-        a = (a+g)/2
-        g = SQR(ta*g)
-      UNTIL a = ta
-      = a
-</syntaxhighlight>
-Produces this output:
-<pre>
-.8472130847939792
-</pre>
 ==={{header|GW-BASIC}}===