黎曼函數
程式編寫日期: 2007年3月29日
程式(96 bytes)
Mem clear: ?→A: 1→C: 1→D: Lbl 0:
1 + B→B: DB-1 ^ AC (-1) ^ (B - 1 M+:
B=12 => 4095→C => 163-1→D:
B>12 => C - 12 nCr (B - 12→C:
23≧B => Goto 0: 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