Лабораторные работы / Программы / Код некоторых программ - 2003 / Статистика

Номер варианта	Уровень значимости	Значения измерений в серии
		X1	X2	X3	X4	X5	X6
18	0.05	6.83	7.02	6.71	6.17	6.99	6.83

Sub prog()

Dim a!(), kol_el!, sum!, sum_kv!, s_kv!, s!, max!, n_pod!, u_r!, u_t!, x!()

kol_el = Cells(1, 2)

ReDim a(kol_el), x(kol_el)

For i = 1 To kol_el

a(i) = Cells(2, i + 1)

Next i

While p < 1

sum = 0

For i = 1 To kol_el

sum = sum + a(i)

Next i

x_sr = sum / kol_el

sum_kv = 0

For i = 1 To kol_el

sum_kv = sum_kv + (a(i) - x_sr) ^ 2

Next i

s_kv = 0

s_kv = sum_kv / (kol_el - 1)

max = 0

For i = 1 To kol_el

s = Abs(a(i) - x_sr)

If s > max Then max = s: n_pod = i

Next i

u_r= max / Sqr(s_kv * (kol_el - 1) / kol_el)

u_t = Cells(kol_el + 3, 4)

If u_r < u_t Then Cells(15, 2) = x_sr - Cells(kol_el + 4, 3) * Sqr(s_kv / kol_el): Cells(15, 4) = x_sr + Cells(kol_el + 4, 3) * Sqr(s_kv / kol_el)

If u_r < u_t Then p = 1

If u_r > u_t Then a(n_pod) = a(kol_el)

If u_r > u_t Then: For i = 1 To kol_el: x(i) = a(i): Next i

If u_r > u_t Then kol_el = kol_el - 1: ReDim a(kol_el)

If u_r > u_t Then For i = 1 To kol_el: a(i) = x(i): Next i

Wend

End Sub