Re: [問題] 產生符合常態分佈的亂數

[Peruheru (還在想)]

※ 引述《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
→ Peruheru:貼出來才發現著色亂七八糟XD
※ 編輯: Peruheru        來自: 114.45.230.109       (05/14 23:42)
推 maxi326:應該不能用,因為算出來的是pdf(x)