Casio50 » fx-3x50P » Programs 程式集 » Special Functions 特殊函數 »

Riemann Zeta Function

本式求一正實數之 Riemann Zeta Function.

<COMP>
MemClear : ? → A : 1 → B :
Lbl 1 : B -1 ^ A ( - 1 ) ^ ( B – 1 M+ :
B + 1 → B : 12 ≥ B => Goto 1 :
4095 → C :
Lbl 2 : 16 -1 ³ B -1 ^ A C ( - 1 ) ^ ( B – 1 M+ :
B + 1 → B : C – 12 nCr ( B – 13 → C :
24 ≥ B => Goto 2 :
M ÷ ( 1 – 2 ^ ( 1 – A → M
112 Bytes

操作方法

一般操作 例子
求 ζ(x) 求 ζ(5)
啟動程式 Prog 1
輸入資料
x EXE
5 EXE
顯示答案
ζ
1.036927755

記憶體

A x
B 25
C 0
D ζ(x)
X  
Y
M

其他資料

Riemann Zeta Function 的定義:

Zeta(x) = sum(1/ k^x,k=1 to inf)

本式可準確至 11 個位.

1
Hosted by www.Geocities.ws