Лабораторная работа: Исследование статистических характеристик случайной последовательности

p(1) = p1 / mg

p(2) = p2 / mg

For w = 0 To q - 1

list.AddItem ("p" & w & "=" & p(w))

Next w

For j = 0 To q - 1

xe = xe + ((1 / q) - p(j)) ^ 2

Next

xe = (1 / q) * xe

list.AddItem ("")

list.AddItem ("Критерий Пирсона=" & Round(xe, 12))

Dim mx, dx, kr, k As Double

mx = 0

For j = 1 To mg

mx = mx + CInt(yi(j))

Next

mx = mx / mg

list.AddItem ("")

list.AddItem ("Математическое ожидание=" & mx)

For j = 1 To mg

dx = (CInt(yi(i)) - mx) ^ 2

Next

dx = dx / (n - 1)

list.AddItem ("")

list.AddItem ("Дисперсия=" & dx)

list.AddItem ("")

list.AddItem ("Среднеквадратичное отклонение=" & Sqr(dx))

list.AddItem ("")

For i = 1 To q