黎曼函數
程式編寫日期: 2008年2月29日
程式(90 bytes)
ClrMemory: ?→A: 1→C: 1→D:
For 1→B To 24: DB-1 ^(A)C (-1) ^(B - 1 M+:
B=12 => 4095→C: Ans => 163-1→D:
B>12 => C - 12 nCr (B - 12→C:
Next: M ÷ (1 - 2 ^(1 - A
註1: 若果想保留一些記憶用作儲存臨時數據，可將程式中"Mem clear"改為"MM-"，而程式長度增加 1 byte，所使用的記憶為A, B, C, D及M。
註2: 程式使用重複計算黎曼函數的數值，因此程式計算時間會較長。
例題: 計算黎曼函數ζ(3)的值。
按 Prog 1 再按 3 EXE (顯示答案為1.202056903)
註3: 有關黎曼函數(Riemann Zeta Function)，可以參閱以下網址的資料:
Riemann Zeta Function -- from Wolfram MathWord
Riemann Zeta Function -- Wikipedia