http://nalab.mind.meiji.ac.jp/~mk/syori2-2011/jouhousyori2-2011-06/node18.htmlで紹介した公式を比較してみるのも面白いです。
こういうのは実際に試してみて初めて分かることが多く、 挑戦できる腕力のある人は是非やってみることをお勧めします。
いくつかアドバイスをします。
REM piarctan2.bas --- ޡ쥴饤ץ˥åĵǦФ REM arctanεηϳؿǤ뤳Ȥˤ DECLARE EXTERNAL FUNCTION arctan INPUT x INPUT n LET s=arctan(x,n) PRINT "arctan(x)";s print "4";4*s PRINT USING "ФȤκ=-%.###^^^^^^":4*s-PI END EXTERNAL FUNCTION arctan(x,n) REM arctan x ε n ޤǷ LET f=-x*x LET t=x LET s=0 for j=1 to n LET a=t/(2*j-1) LET s=s+a LET t=f*t NEXT j LET arctan=s END FUNCTION |
交代級数に関する Leibniz の定理 |
数列
は単調減少 (
) で、
を満たすとき、級数
は収束する。第 部分和を とすると、
が成り立つ。 |
次に掲げる結果は、 100桁程度の精度を得るために、 級数の和を何項加える必要があるか概算し、 実際にそれを実行するとどれくらいので精度になるかを計算したものです。
大体どれくらいか… |
㡼 205 ޤDzä٤ãޤ 9.81E-101 ޥ 2 71 ޤDzä٤ãޤ 22 ޤDzä٤ãޤ 1.20E-101 Gauss 3 40 ޤDzä٤ãޤ 29 ޤDzä٤ãޤ 22 ޤDzä٤ãޤ 1.23E-102 Gauss 4 32 ޤDzä٤ãޤ 29 ޤDzä٤ãޤ 22 ޤDzä٤ãޤ 21 ޤDzä٤ãޤ 1.09E-103 Gauss 9 14 ޤDzä٤ãޤ 13 ޤDzä٤ãޤ 13 ޤDzä٤ãޤ 12 ޤDzä٤ãޤ 12 ޤDzä٤ãޤ 11 ޤDzä٤ãޤ 11 ޤDzä٤ãޤ 10 ޤDzä٤ãޤ 10 ޤDzä٤ãޤ 7.45E-106 ͺ4 30 ޤDzä٤ãޤ 29 ޤDzä٤ãޤ 22 ޤDzä٤ãޤ 11 ޤDzä٤ãޤ 7.29E-105 Stormer4 29 ޤDzä٤ãޤ 22 ޤDzä٤ãޤ 18 ޤDzä٤ãޤ 13 ޤDzä٤ãޤ 7.73E-104 |
この結果をどう分析すべきか… 書きたくてむずむずするけれど、 誰かにやって欲しいので書きません。
(一言だけ: Gauss は色々大理論を作った偉い人だけど、 こういう計算も大好きだったのが良く分かります。)