返回列表 上一主題 發帖

[發問] 機率問題(EX:39個號碼,五個號碼都在1~19的機率)

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2015-11-4 20:10 | 顯示全部帖子
回復 1# PKKO
排列組合中  C(n,r)=n!/[r!*(n-r)!] ，!表示階層

五個號碼都出現在1~19，機率 = C(19,5)/C(39,5) = 0.020196
只有四個號碼出現在1~19，機率 =C(19,4)*C(20,1)/C(39,5) = 0.13464
只有三個號碼出現在1~19，機率 =C(19,3)*C(20,2)/C(39,5) = 0.31977
只有兩個號碼出現在1~19，機率 =C(19,2)*C(20,3)/C(39,5) = 0.33858
只有一個號碼出現在1~19，機率 =C(19,1)*C(20,4)/C(39,5) = 0.15989
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-11-5 11:04 | 顯示全部帖子
回復 3# PKKO
  1. 'n階層 , return double
  2. Function dblFactorial(n As Integer) As Double
  3.     dblFactorial = 1
  4.     For i = 1 To n
  5.         dblFactorial = dblFactorial * i
  6.     Next
  7. End Function

  9. '組合
  10. Function dblCombination(n As Integer, r As Integer) As Double
  11.     'By formula method:
  12.     dblCombination = dblFactorial(n) / (dblFactorial(r) * dblFactorial(n - r))
  13.    
  14. '    'Speedup method (less multiply computations , allowed larger n):
  15. '    dblCombination = 1
  16. '    For i = 1 To Application.Min(r, n - r)
  17. '        dblCombination = dblCombination * (n - i + 1)
  18. '    Next
  19. '    dblCombination = dblCombination / dblFactorial(Application.Min(r, n - r))
  20. End Function

  22. Sub Test()
  23.     MsgBox "五個號碼都出現在1~19，機率 = " & Format(dblCombination(19, 5) / dblCombination(39, 5), "0.000000")
  24. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題