二項分佈及泊松分佈(I)
程式是參考網友王者再臨編寫二項分佈程式，修改原有舊程式。
程式編寫日期: 2008年2月25日
注意: nCr 是按 shift ÷，e^( 是按shift ex
程式 (80 bytes)
ClrMemory: ?→A: ?→B: B => 1>B => B→D: Ans => ?→B:
B→C: ?→C: For B→B To C: D => A nCr B D^( B )(1-D)^(A-B M+:
D=0 => A^( B ) ÷ B! ÷ e^( A M+: Next: M
另一個更簡短的程式，但要注意輸入數據先後次序及方法有不同。
程式 (68 bytes)
ClrMemory: ?→A: ?→B: B→C: ?→C: ?→D:
For B→B To C: D => A nCr B D^( B ) (1-D)^(A-B M+:
D=0 => A^( B ) ÷ B! ÷ e^( A M+: Next: M
註: 若果想保留一些記憶用作儲存臨時數據，可將程式中"ClrMemory"改為"0→D: MM-:"，而使用的記憶為A，B，C，D及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)
返回 CASIO fx-50FH 及 fx-50F PLUS 程式集