Anonymous user
Arithmetic-geometric mean: Difference between revisions
→{{header|Ruby}}
m (→{{header|Pascal}}: typo correction) |
|||
Line 392:
<pre>0.84721308479397908660649912348219163648144591032694218506057937265973400483413475972320029399461122994212228562523341096309796266583087105969971363598338426</pre>
Adjusting the precision setting (at about line 9) will of course affect this. :-)
=={{header|Run BASIC}}==
<lang runbasic>print agm(1, 1/sqr(2))
print agm(1,1/2^.5)
print using("#.############################",agm(1, 1/sqr(2)))
function agm(agm,g)
while agm
an =(agm + g)/2
gn =sqr(agm*g)
if abs(agm-g) <= abs(an-gn) then exit while
agm = an
g = gn
wend
end function</lang>
=={{header|Scala}}==
| |||