Arithmetic-geometric mean/Calculate Pi: Difference between revisions
Arithmetic-geometric mean/Calculate Pi (view source)
Revision as of 19:52, 15 May 2024
, 16 days ago→{{header|RPL}}: highlighted syntax
(Add Ada version) |
m (→{{header|RPL}}: highlighted syntax) |
||
Line 1,883:
+ SQ ROT 4 * /
SWAP DROP
≫ ≫
≪ { } 1 5 '''FOR''' d d <span style="color:blue">AGMPI</span> '''
≫
|
tn = 0.5 ^ 2 : pn = 1.0 : an = 1.0 : bn = sqrt(0.5)
while pn <= digits
| |||