泊松随机数

泊松随机数
2007-06-06 05:51 P.M.
泊松分布方程是由法国数学家泊松(1781-1840)发现并创立的，主要是描述小概率事件发生的概率，在体育比赛中广泛应用来预测比赛结果。

使用时只要在左边的方框中输入球队的历史平均入球(0.01-4球)，即可预测球队在本次比赛中可能出现的结果。

Piosson的概念
常用于描述单位时间、单位平面或单位空间中罕见“质点”总数的随机分布规律。

Piosson分布的条件
由于Piosson分布是二项分布的特例，所以，二项分布的三个条件也就是Piosson 分布的适用条件。

另外，单位时间、面积或容积、人群中观察事件的分布应该均匀，才符合Piosson 分布。

注二项分布的条件：1) 每次实验只有两类对立的结果；
(2) n次事件相互独立；
(3) 每次实验某类结果的发生的概率是一个常数。

程序源代码：
===================================================================== ==
程序名称：泊松随机数
语言：VB
完成时间：2007-03-26
===================================================================== ==
Private Sub Command1_Click()
On Error GoTo err
Dim r, r1, n As Single
r = 1
n = 0
a = Text1.Text
Form2.List1.AddItem ("N的初始值： " & n)
Do While r >= Exp(-a)
Form2.List1.AddItem ("R的初始值： " & r)
Form2.List1.AddItem ("Exp(-a)的值 " & Exp(-a))
n = n + 1
Form2.List1.AddItem ("N的累计值： " & r) Randomize
r1 = Rnd(X)
Form2.List1.AddItem ("随机数R1的值： " & r)
r = r * r1
Form2.List1.AddItem ("R的累计值： " & r)
Loop
Label2.Caption = n
Form2.List1.AddItem ("最终抽样值： " & n)
err:
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
Private Sub Command3_Click()
Form3.Show
End Sub。