二項分佈及泊松分佈(I)

二項分佈及泊松分佈(I)

程式是參考網友王者再臨編寫二項分佈程式，修改原有舊程式。

更新日期: 2014年8月1日

注意: _nC_r 是按 shift ÷，e^( 是按shift e^x

程式 (81 bytes)

ClrMemory: ?→A: ?→B: B => 1>B => B→D: Ans => ?→B:

B→C: ?→C: For B→B To C: D => A _nC_r B × D^( B )(1-D)^(A-B M+:

D=0 => A^( B ) ÷ ( B! e^( A M+: Next: M

另一個更簡短的程式，但要注意輸入數據先後次序及方法有不同。

程式 (69 bytes)

ClrMemory: ?→A: ?→B: B→C: ?→C: ?→D:

For B→B To C: D => A _nC_r B × D^( B ) (1-D)^(A-B M+:

D=0 => A^( B ) ÷ ( B! e^( A M+: Next: M

註1: 若果想保留一些記憶用作儲存臨時數據，可將程式中"ClrMemory"改為"0→D: MM-:"，而使用的記憶為A，B，C，D及M。

註2: 如果是使用fx-50FH，上述兩個程式中的乘號 ×可以省略不輸入，程式長度可節省1 byte。

註3: 如果是使用fx-3650P II或fx-50FH II，上述兩個程式中的A^( B ) ÷ ( B! e^( A M+: 可以簡化為 A^( B ) ÷ B! e^( A M+: ，可節省1 byte。

例題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)