Almkvist-Giullera formula for pi: Difference between revisions
Content added Content deleted
(added RPL) |
m (→{{header|RPL}}: improved layout) |
||
Line 2,262: | Line 2,262: | ||
« → n |
« → n |
||
« 32 6 n * FACT * |
« 32 6 n * FACT * |
||
532 n SQ * 126 n * + 9 + * |
|||
3 / n FACT 6 ^ / |
|||
» » '<span style="color:blue">ALMKV</span>' STO |
» » '<span style="color:blue">ALMKV</span>' STO |
||
or like that: |
or like that: |
||
Line 2,283: | Line 2,283: | ||
« -105 CF <span style="color:grey">@ set exact mode</span> |
« -105 CF <span style="color:grey">@ set exact mode</span> |
||
« n <span style="color:blue">ALMKV</span> » 'n' 0 9 1 SEQ |
« n <span style="color:blue">ALMKV</span> » 'n' 0 9 1 SEQ |
||
-1 → j |
-1 → j |
||
« 0 "" |
« 0 "" |
||
'''DO''' SWAP 'j' INCR |
'''DO''' SWAP 'j' INCR <span style="color:blue">ALMKV</span> 10 6 j * 3 + ^ / + EVAL |
||
'''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 == |
'''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''' |
'''END''' |
||
"π" →TAG NIP j "iterations" →TAG |
"π" →TAG NIP j "iterations" →TAG |
||
» » '<span style="color:blue">TASK</span>' STO |
» » '<span style="color:blue">TASK</span>' STO |
||
{{out}} |
{{out}} |