Аналіз процесів функціонування систем
19

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

 

 

 

 

 

 

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

 

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

 

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

 

M

1

D

3

 

 

 

 

 

 

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

 

Private Sub CommandButton1_Click()

  kol = 40

  S = 0

  M = 1

  D = 3

  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)