Arithmetic-geometric mean: Difference between revisions
Arithmetic-geometric mean en BASIC256
(Arithmetic-geometric mean en True BASIC) |
(Arithmetic-geometric mean en BASIC256) |
||
Line 348:
<pre>
.8472131
</pre>
==={{header|BASIC256}}===
<lang BASIC256>print AGM(1, 1 / sqr(2))
end
function AGM(a, g)
Do
ta = (a + g) / 2
g = sqr(a * g)
x = a
a = ta
ta = x
until a = ta
return a
end function</lang>
{{out}}
<pre>
0.84721308479
</pre>
|