Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
(Arithmetic-geometric mean en BASIC256) |
(add gwbasic) |
||
| Line 402: | Line 402: | ||
0.8472130847939792 |
0.8472130847939792 |
||
</pre> |
</pre> |
||
==={{header|GW-BASIC}}=== |
|||
<lang gwbasic>10 A = 1 |
|||
20 G = 1!/SQR(2!) |
|||
30 FOR I=1 TO 20 'twenty iterations is plenty |
|||
40 B = (A+G)/2 |
|||
50 G = SQR(A*G) |
|||
60 A = B |
|||
70 NEXT I |
|||
80 PRINT A</lang> |
|||
==={{header|IS-BASIC}}=== |
==={{header|IS-BASIC}}=== |
||