二項分佈(I)

二項分佈(I)

程式是由網友王者再臨提供。

更新日期: 2014年8月1日

注意: _nC_r 是按 shift ÷

第一個程式 (51 bytes)

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

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

Next: M

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

MM-: ?→A: ?→B: ?→C: C→D: ?→D:

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

Next: M

程式三是由網友roviury提供。

第三個程式 (81 bytes，程式較長但計算項數很多時速度較快)

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

X _nC_r A × Y^(A)(1-Y)^(X-A→C: Y÷(1-Y→Y:

C→M: For A+1→A To B: CY÷A(X-A+1→C:

CM+: Next: M

註1: 第二個程式較第一個程式長1 byte，但可以保留一些記憶用作儲存數據。

註2: 如果是使用fx-50FH，上述三個程式中的乘號 ×可以省略不輸入，程式長度可節省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)