Free Hosting

Free Web Hosting with PHP, MySQL, Apache, FTP and more.
Get your Free SubDOMAIN you.6te.net or you.eu5.org or...
Create your account NOW at http://www.freewebhostingarea.com.

Cheap Domains

Cheap Domains
starting at $2.99/year

check

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

程式編寫日期: 2005年11月16日

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

程式 (80 bytes)

Mem Clear: ?→A: ?→B: B => 1>B => B→D => ?→B:

?→C: Lbl 0: D => A nCr B × D^B (1-D)^(A-B M+:

D=0 => A^B ÷ B! ÷ eA M+: 1+B→B: C≧B => Goto 0: M

 

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

程式 (70 bytes)

Mem Clear: ?→A: ?→B: ?→C: ?→D:

Lbl 0: D => A nCr B × D^B (1-D)^(A-B M+:

D=0 => A^B ÷ B! eA M+: 1+B→B: C≧B => Goto 0: 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)

 

返回 fx-3650P及SC-185 程式集