Висновок: Починаючи з 600 випробувань дисперсія практично не змінюється. Тому для визначення площі фігури можна обмежитись 600 випробуваннями . Відносна похибка складає:
Відносна похибка складає
ЛАБОРАТОРНА РОБОТА №2
ТЕМА РОБОТИ: згенерувати вибірку об'ємом 1000 чисел, яка має нормальний розподіл з заданими математичним сподіванням М та дисперсією D. Гіпотезу щодо нормального розподілу вибірки перевірити за критерієм Колмогорова.
Параметри розподілу |
|
M |
5 |
D |
5 |
- Лістінг програми реалізації чисельних експериментів:
Private Sub CommandButton1_Click()
kol = 40
S = 0
M = 5
D = 5
h = 6 * Sqr(D) / 20
Dim K(20)
Dim vyborka(1000)
For j = 1 To 1000
S = 0
For i = 1 To kol
S = S + Rnd()
Next
Ms = kol / 2
Ds = kol / 12
x = (S - Ms) / Sqr(Ds) * Sqr(D) + M
vyborka(j) = x
Next j
For i = 1 To 1000
For j = 1 To 20
If vyborka(i) >= M - 3 * Sqr(D) + h * (j - 1) And vyborka(i) < M - 3 * Sqr(D) + h * j Then K(j) = K(j) + 1
Next j
Next i
For i = 1 To 20
K(i) = K(i) / 1000
ActiveSheet.Cells(1)(i) = K(i)
Next i
Dim Fstat(20)
Fstat(1) = K(1)
ActiveSheet.Cells(5)(1) = Fstat(1)
For i = 2 To 20
Fstat(i) = Fstat(i - 1) + K(i)
ActiveSheet.Cells(5)(i) = Fstat(i)
Next i
Dim Koord(20)
For i = 1 To 20
Koord(i) = (M - 3 * Sqr(D)) + h * i
ActiveSheet.Cells(10)(i) = Koord(i)