Arithmetic-geometric mean: Difference between revisions
add gwbasic
(Arithmetic-geometric mean en BASIC256) |
(add gwbasic) |
||
Line 402:
0.8472130847939792
</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}}===
| |||