二項分佈、泊松分佈及幾何分佈
(Binomial, Poisson and Geometric Distribution)
程式編寫日期: 2008年8月11日
注意: 紅色的 × 是乘號，nCr 是按 shift ÷，e是按shift ex
程式 (88 bytes)
Mem Clear: ?→X: ?→Y: ?→A: ?→B:
Lbl 0: XY => X nCr A × Y^A (1-Y)^(X-A M+:
X=0 => Y^A ÷ A! eY M+: Y=0 => X(1 - X)^(A - 1M+:
1+A→A: B≧A => Goto 0: M
註: 程式若果想保留一些記憶用作儲存臨時數據，可將程式中"Mem clear:"改為"MM-: Rec( 0, 0: 0→B:"，程式長度則變為98 bytes，而程式所使用的記憶為A，B，X，Y及M。
例題1: 若X ~ Bin(9,0.5)，求P(X=4)。
按 Prog 1 再按 9 EXE 0.5 EXE 4 EXE EXE (不輸入最後的數值代表只計算一項，顯示答案為0.24609)
例題2: 若X ~ Bin(9,0.5)，求P(4≦X≦6)。
按 Prog 1 再按 9 EXE 0.5 EXE 4 EXE 6 EXE (顯示答案為0.65625)
例題3: 若X ~ Po(5)，求P(X=4)。
按 Prog 1 再按 EXE (不輸入第一個數值表計算泊松分佈)
5 EXE 4 EXE EXE (不輸入最後的數值代表只計算一項，顯示答案為0.17547)
例題4: 若X ~ Po(5)，求P(4≦X≦6)。
按 Prog 1 再按 EXE (不輸入第一個數值表計算泊松分佈)
5 EXE 4 EXE 6 EXE (顯示P(4≦X≦6)為0.49716)
例題5: 若 X ~Ge(0.5)，求P(X=4)。
按 Prog 1 再按 0.5 EXE EXE (不輸入第二個數值表示計算幾何分佈)
4 EXE EXE (不輸入最後的數值代表只計算一項，顯示答案為0.0625)
例題6: 若X ~ Ge(5)，求P(4≦X≦6)。
按 Prog 1 再按 0.5 EXE EXE (不輸入第二個數值表示計算幾何分佈)
4 EXE 6 EXE (顯示P(4≦X≦6)為0.109375)