Розширення методу аналізу ієрархій
19

Висновок:  Починаючи з 600 випробувань дисперсія практично не змінюється. Тому для визначення площі фігури можна обмежитись 600 випробуваннями . Відносна похибка складає:

 

 

Відносна похибка складає  

ЛАБОРАТОРНА РОБОТА №2

ТЕМА РОБОТИ: згенерувати вибірку об'ємом 1000 чисел, яка має нормальний розподіл з заданими математичним сподіванням М та дисперсією D. Гіпотезу щодо нормального розподілу вибірки перевірити за критерієм Колмогорова.

 

Параметри розподілу

 

M

5

D

5

 

 

 

 

 

 

  1. Лістінг програми реалізації чисельних експериментів:

 

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)