Re: [問題] 產生符合常態分佈的亂數
※ 引述《maxi326 (新年是又冷又無聊)》之銘言：
: 沒有錯的話,一般亂數產生出來會符合平均分佈
: 如果要產生出來的亂數符合常態分佈,要怎樣產生?
: 例如產生一百萬個亂數後,他們要符合常態分佈
Private Sub Command1_Click()
Dim iv, ix, ir As Double
Dim PI As Double
PI = 3.141596
'f(x)= (1/(2*3.1415)^(1/2)) * e ^ (-(x^2)/2) 高斯公式
With Me 'textbox1代表x值
iv = ((Val(.Text1.Text) ^ 2) / 2) * (-1) '此為計算(-(x^2)/2)的值
ir = Exp(iv) '計算e ^ (-(x^2)/2)
ix = 1 / Round((2 * PI) ^ (1 / 2), 2) '計算(1/(2*3.1415)^(1/2)) 的值
.Text2.Text = CStr(ix * ir) 'textbox2代表y=f(x)值
End With
End Sub
這不曉得行不行...
一個打工的程式說要求要高斯亂數
我找到的東西是這個，因為我自己不不瞭解
只能找現成的來用
(話說結果沒用上)
資料來源是藍色小舖
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.45.230.109
→
05/14 23:22, , 1F
05/14 23:22, 1F
※ 編輯: Peruheru 來自: 114.45.230.109 (05/14 23:42)
推
05/20 12:35, , 2F
05/20 12:35, 2F
討論串 (同標題文章)