Arithmetic-geometric mean: Difference between revisions
Arithmetic-geometric mean en True BASIC
(Arithmetic-geometric mean en QBasic) |
(Arithmetic-geometric mean en True BASIC) |
||
Line 392:
160 LET AGM=A
170 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}}==
|