二項分佈及泊松分佈(II)
程式更新日期:2006年12月2日
這個程式除了有二項分佈及泊松分佈(I)程式的功能外，還可以連續顯示每一項的概率(可以用作考試的中間步驟)及計算各項概率的總和。
注意: 紅色的 × 是乘號，nCr 是按 shift ÷，e是按shift ex
程式 (106 bytes)
Mem Clear: ?→A: ?→B: B => 1>B => B→Y => ?→B:
Lbl 0: Y => A nCr B × Y^B (1-Y)^(A-B→C:
Y=0 => A^B ÷ B! eA→C: CM+: X=0 => ?→C:
C≧1 => C→X: 1+B→B: X≧B => Goto 0: C => X=0 => Goto 0: M
註: 程式若果想保留一些記憶用作儲存臨時數據，可將程式中"Mem clear"改為"MM-: Rec( 0, 0:"，而程式所使用的記憶為A，B，C，X，Y及M。
例題1: 若X ~ Bin(9,0.5)，求P(X=4)。
按 Prog 1 再按 9 EXE 0.5 EXE 4 EXE (顯示答案為0.24609)
程式執行完成後，請按AC中止程式。
例題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 ~ Bin(9,0.5)，求P(X=4)，P(X=5)，P(X=6)及P(4≦X≦6)。
按 Prog 1 再按 9 EXE 0.5 EXE 4 EXE (顯示P(X=4)為0.24609) EXE (顯示P(X=5)為0.24609)
EXE (顯示P(X=6)為0.16406) 0 EXE (0表示計算完結，顯示P(4≦X≦6)為0.65625)
例題4: 若X ~ Po(5)，求P(X=4)。
按 Prog 1 再按 5 EXE 4 EXE (顯示答案為0.17547)
程式執行完成後，請按AC中止程式。
例題5: 若X ~ Po(5)，求P(4≦X≦6)。
按 Prog 1 再按 5 EXE 4 EXE 6 EXE (顯示P(4≦X≦6)為0.49716)
例題6: 若X ~ Po(5)，求P(X=4)，P(X=5)，P(X=6)及P(4≦X≦6)。
按 Prog 1 再按 5 EXE 4 EXE (顯示P(X=4)為0.17547) EXE (顯示P(X=5)為0.17547)
EXE (顯示P(X=6)為0.14622) 0 EXE (0表示計算完結，顯示P(4≦X≦6)為0.49716)