Лабораторная работа: Моделирование датчиков случайных чисел с заданным законом распределения

m = m + Y(i)

List1.AddItem ("y(" + Str(i) + ")=" + Str(Y(i)))

End If

Next i

List1.AddItem ("кол. точек с вер-ю 0.7: p1=" + Str(p1))

List1.AddItem ("кол. точек с вер-ю 0.3: p2=" + Str(p2))

List1.AddItem ("ВЕРОЯТНОСТИ:")

List1.AddItem (" 0.4<=x<0.7 --- 0" + Str(p1 / n))

List1.AddItem (" 0.7<=x<=1 --- 0" + Str(p2 / n))

m = m / n

List1.AddItem ("мат ожидание = " + Str(m))

For i = 1 To n

d = d + (Y(i) - m) ^ 2

Next i

d = d / (n - 1)

b = Sqr(d)

List1.AddItem ("диссперсия = " + Str(d))

List1.AddItem ("сререднекв откл = " + Str(b))

'построение интегральной функции

Picture1.Scale (-2, 11)-(11, -2)

Picture1.Line (0, -2)-(0, 11)

Picture1.Line (-2, 0)-(11, 0)

Picture1.PSet (-1, 11)

Picture1.Print ("f(x)")

Picture1.PSet (10.5, -0.3)

Picture1.Print ("x")

Picture1.PSet (-0.7, 4)

Picture1.Print ("0.4")

Picture1.PSet (-0.7, 7)