2026年8月2日日曜日

FX-502Pでライプニッツ級数で円周率ためす

 Σn=0~100  4*(-1)^n/(2n+1)  をFX502Pのプログラム機能で試してみた。

分子がM2 分母がM3  カウンタがM0 総和をM1とすると

MODE 2> P3 >Min 0 >  0 Min 1 > 4 Min 2 >1 Min 3 > LBL 0 >MR 2 ÷ MR 3 =  M+ 1 >2 M+ 3> MR 2 +/- Min 2 > INV DSZ >GOTO 0 > MR 1

MODE 1>1000 > P3で実行すると 3.140592187

FX-502Pが発売当時、大型計算機のFORTRANだと、自分の知識では倍精度とかもできなかったので、ディフォルトでは桁数が小さく、すぐ精度がおちてしまって、級数計算は無理だった。級数計算は、大型計算機より、むしろ、プログラム電卓が重宝しました。