Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
(Added Quackery.) |
(Arithmetic-geometric mean en QBasic) |
||
| Line 331: | Line 331: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|BASIC}}=== |
|||
{{works with|QBasic}} |
|||
<lang qbasic>PRINT AGM(1, 1 / SQR(2)) |
|||
END |
|||
FUNCTION AGM (a, g) |
|||
DO |
|||
ta = (a + g) / 2 |
|||
g = SQR(a * g) |
|||
SWAP a, ta |
|||
LOOP UNTIL a = ta |
|||
AGM = a |
|||
END FUNCTION</lang> |
|||
{{out}} |
|||
<pre> |
|||
.8472131 |
|||
</pre> |
|||
==={{header|Commodore BASIC}}=== |
==={{header|Commodore BASIC}}=== |
||
<lang commodorebasic>10 A = 1 |
<lang commodorebasic>10 A = 1 |
||