二項分佈及泊松分佈(I)
程式編寫日期: 2005年11月16日
注意: 紅色的 × 是乘號，nCr 是按 shift ÷，e是按shift ex
程式 (80 bytes)
Mem Clear: ?→A: ?→B: B => 1>B => B→D => ?→B:
?→C: Lbl 0: D => A nCr B × D^B (1-D)^(A-B M+:
D=0 => A^B ÷ B! ÷ eA M+: 1+B→B: C≧B => Goto 0: M
另一個更簡短的程式，但要注意輸入數據先後次序及方法有不同。
程式 (70 bytes)
Mem Clear: ?→A: ?→B: ?→C: ?→D:
Lbl 0: D => A nCr B × D^B (1-D)^(A-B M+:
D=0 => A^B ÷ B! eA M+: 1+B→B: C≧B => Goto 0: M
例題1: 若X ~ Bin(9,0.5)，求P(X=4)。
第一個程式的按法:
按 Prog 1 再按 9 EXE 0.5 EXE 4 EXE EXE (不輸入最後的數值代表只計算一項，顯示答案為0.24609)
第二個程式的按法:
按 Prog 1 再按 9 EXE 4 EXE EXE 0.5 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)
第二個程式的按法:
按 Prog 1 再按 9 EXE 4 EXE 6 EXE 0.5 EXE (顯示答案為0.65625)
例題3: 若X ~ Po(5)，求P(X=4)。
第一個程式的按法:
按 Prog 1 再按 5 EXE 4 EXE EXE (不輸入最後的數值代表只計算一項，顯示答案為0.17547)
第二個程式的按法:
按 Prog 1 再按 5 EXE 4 EXE EXE EXE(不輸入最後二個數值代表計算一項及計泊松分佈，顯示答案為0.17547)
例題4: 若X ~ Po(5)，求P(4≦X≦6)。
第一個程式的按法:
按 Prog 1 再按 5 EXE 4 EXE 6 EXE (顯示P(4≦X≦6)為0.49716)
第二個程式的按法:
按 Prog 1 再按 5 EXE 4 EXE 6 EXE EXE (不輸入最後數值代表計泊松分佈，顯示P(4≦X≦6)為0.49716)