二項分佈及泊松分佈(II)
程式編寫日期: 2008年1月26日
這個程式除了有二項分佈及泊松分佈(I)程式的功能外，還可以連續顯示每一項的概率(可以用作考試的中間步驟)及計算各項概率的總和。
注意: 紅色的 × 是乘號，nCr 是按 shift ÷，e^(是按shift ex
程式 (110 bytes)
ClrMemory: ?→A: ?→B: B => 1>B => B→Y: Ans => ?→B:
Lbl 0: Y => A nCr B × Y^( B )(1-Y)^(A-B→C:
Y=0 => A^( B ) ÷ B! ÷ e^(A→C: CM+: X=0 => ?→C:
C≧1 => C→X: 1+B→B: X≧B => Goto 0: C => X=0 => Goto 0: M
註: 程式若果想保留一些記憶用作儲存臨時數據，可將程式中"ClrMemory"改為"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)
返回 CASIO fx-50FH 及 fx-50F PLUS 程式集