Matematicheskie_metody / Мат. методы. 2 семестр(3 модуль) / sravnenie viborok

Sub sravnenie viborok()
Const n = 50, m = n
Dim x(1 To n) As Double, y(1 To m) As Double, i As Integer, mx As Double, my As Double, Dx As Double, Dy As Double
For i = 1 To n: x(i) = Worksheets(1).Cells(i, 1)
mx = mx + x(i) / n
Next i
For i = 1 To m
y(i) = Worksheets(1).Cells(i, 3)
my = my + y(i) / m
Next i
For i = 1 To n
Dx = Dx + (x(i) - mx) ^ 2
Next
For i = 1 To m
Dy = Dy + (y(i) - my) ^ 2
Next i
t = Abs(mx - my) * Sqr(m * n / (m + n)) / Sqr((Dx + Dy) / (m + n - 2))
Dx = Dx / (n - 1)
Dy = Dy / (n - 1)
If Dx > Dy Then F = Dx / Dy Else F = Dy / Dx
Debug.Print t; F; n + m - 2; Excel.WorksheetFunction.FInv(0.05, n - 1, m - 1); Excel.WorksheetFunction.TInv(0.05, n + m - 2)
End Sub