作者Peruheru (还在想)
看板Programming
标题Re: [问题] 产生符合常态分布的乱数
时间Thu May 14 23:21:59 2009
※ 引述《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
1F：→ Peruheru:贴出来才发现着色乱七八糟XD 114.45.230.109 05/14 23:22
※ 编辑: Peruheru 来自: 114.45.230.109 (05/14 23:42)
2F：推 maxi326:应该不能用,因为算出来的是pdf(x) 59.120.52.124 05/20 12:35