第一類及第二類完全橢圓積分

程式可以計算第一類K(x)及第二類E(x)完全橢圓積分 (Complete Elliptic Integral of the First and Second Kind)。

程式編寫日期: 2007年4月14日

注意: 10^x是按shift log。

程式 (80 bytes，使用記憶A, B, X, Y及M)

?→X: √(1 - X→B: . 5X→M: Pol( 1, 0:

Lbl 0: . 5 (X - B→A: √XB→B: X - A→X:

2^YA²M+: log 10^x Ans => 1+ Y→Y => Goto 0:

π ÷ 2X→A◢ A - AM→B

例題: 計算 K(0.5)及E(0.5)的值。

按 Prog 1 再按 0.5 EXE (顯示1.854074677) EXE (顯示1.350643881)

所以K(0.5) = 1.854074677 及 E(0.5) = 1.350643881

註1: 程式計算完結後，按 RCL A及RCL B分別顯示K及E的值。

註2: 程式不能計算 K(1) 及 E(1)的情況，因為K(1)=∞，實際上E(1)=1。