二項分佈、泊松分佈及幾何分佈

(Binomial, Poisson and Geometric Distribution)

程式編寫日期: 2014年8月1日

注意: 紅色的 × 是乘號,nCr 是按 shift ÷,e^( 是按shift ex

程式 (86 bytes)

ClrMemory: ?→X: ?→Y: ?→A: A→B: ?→B:

For A→A To B: XY => X nCr A × Y^( A )(1-Y)^(X-A M+:

X=0 => Y^( A )÷ ( A! e^( Y M+: Y=0 => X(1 - X)^(A - 1M+:

Next: M

註: 程式若果想保留一些記憶用作儲存臨時數據,可將程式中"ClrMemory:"改為"MM-: Rec( 0, 0:",程式長度則變為91 bytes,而程式所使用的記憶為A,B,X,Y及M。

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

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

 

例題1: 若X ~ Bin(9,0.5),求P(X=4)。

按 Prog 1 再按 9 EXE 0.5 EXE 4 EXE 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)

 

例題3: 若X ~ Po(5),求P(X=4)。

按 Prog 1 再按 EXE (不輸入第一個數值表計算泊松分佈)

5 EXE 4 EXE EXE (不輸入最後的數值代表只計算一項,顯示答案為0.17547)

 

例題4: 若X ~ Po(5),求P(4≦X≦6)。

按 Prog 1 再按 EXE (不輸入第一個數值表計算泊松分佈)

5 EXE 4 EXE 6 EXE (顯示P(4≦X≦6)為0.49716)

 

例題5: 若 X ~Ge(0.5),求P(X=4)。

按 Prog 1 再按 0.5 EXE EXE (不輸入第二個數值表示計算幾何分佈)

4 EXE EXE (不輸入最後的數值代表只計算一項,顯示答案為0.0625)

 

例題6: 若X ~ Ge(5),求P(4≦X≦6)。

按 Prog 1 再按 0.5 EXE EXE (不輸入第二個數值表示計算幾何分佈)

4 EXE 6 EXE (顯示P(4≦X≦6)為0.109375)

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting