Almkvist-Giullera formula for pi: Difference between revisions
m
→{{header|RPL}}: improved layout
(added RPL) |
m (→{{header|RPL}}: improved layout) |
||
Line 2,262:
« → n
« 32 6 n * FACT *
» » '<span style="color:blue">ALMKV</span>' STO
or like that:
Line 2,283:
« -105 CF <span style="color:grey">@ set exact mode</span>
« n <span style="color:blue">ALMKV</span> » 'n' 0 9 1 SEQ
-1 → j
« 0 ""
'''DO''' SWAP 'j' INCR
'''UNTIL''' DUP FXND <span style="color:blue">ISQRT</span> SWAP <span style="color:blue">ISQRT</span> 70 <span style="color:blue">LDIVN</span> ROT OVER ==
'''END'''
"π" →TAG NIP j "iterations" →TAG
» » '<span style="color:blue">TASK</span>' STO
{{out}}
| |||