二項分佈(I)

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

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

 

第一個程式 (54 bytes)

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

Lbl 0: A nCr C × B^C (1-B)^(A-C M+:

1+C→C: D≧C => Goto 0: M

 

第二個程式 (59 bytes,使用記憶為A, B, C, D及M)

M M-: 0→D: ?→A: ?→B: ?→C: ?→D:

Lbl 0: A nCr C × B^C (1-B)^(A-C M+:

1+C→C: D≧C => Goto 0: M

 

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

 

返回 fx-3650P及SC185 程式集

Free Web Hosting