Расчет коэффициента корреляции

Next i

zn1 = zn1 ^ (1 / 2)

 

For i = 1 To n

zn2 = zn2 + (CDbl(Worksheets(1).Cells(i + 1, 2).Value) - ysr) ^ 2

Next i

zn2 = zn2 ^ (1 / 2)

 

koeff = chisl / (zn1 * zn2)

Worksheets(1).Cells(2, 5).Value = koeff

TextBox8.Value = koeff

 

End Sub

 

Private Sub CommandButton4_Click()

Dim n As Integer

Dim znachim As Double

 

n = TextBox1.Value

 

znachim = CDbl((Cells(2, 5) * Sqr(Cells(1, 5) - 2)) / (Sqr(1 - (Cells(2, 5) ^ 2))))

 

Worksheets(1).Cells(3, 5).Value = znachim

TextBox9.Value = znachim

 

End Sub

 

При написании подпрограммы на командную кнопку для нахождения двух критических точек (tкр1 и tкр2) используется макрос:

 

Private Sub CommandButton7_Click()

   

    Range("E4").Select

    ActiveCell.FormulaR1C1 = "=TINV(0.05,R[-3]C-1)"

 

TextBox11.Value = Range("E4")

 

End Sub

 

Private Sub CommandButton6_Click()

 

Range("E5").Select

    ActiveCell.FormulaR1C1 = "=TINV(0.01,R[-4]C)"

 

TextBox10.Value = Range("E5")

 

End Sub

 

При написании подпрограммы на элемент управления OptionButton для проверки статистической значимости и критических точек (tкр1 и tкр2) используется следующая подпрограмма:

 

Private Sub OptionButton2_Click()

 

If OptionButton2 = True And Cells(3, 5).Value > Cells(4, 5).Value Then

MsgBox ("Нулевая гипотеза отклоняется  в пользу альтернативной о  том, что коэффициент корреляции  значимо отличается от нуля (Н1: r<>0), т. е. о наличии линейной  корреляционной зависимости между  Х и Y")

Else

MsgBox ("Нулевую гипотезу о том, что между Х и Y (Н0: r = 0), отсутствует  корреляционная связь, нельзя отклонить  на заданном уровне значимости a")

End If

End Sub

Private Sub OptionButton4_Click()

 

If OptionButton4 = True And Cells(3, 5).Value > Cells(5, 5).Value Then

MsgBox ("Нулевая гипотеза отклоняется  в пользу альтернативной о  том, что коэффициент корреляции  значимо отличается от нуля (Н1: r<>0), т. е. о наличии линейной  корреляционной зависимости между  Х и Y")

Else

MsgBox ("Нулевую гипотезу о том, что между Х и Y (Н0: r = 0), отсутствует  корреляционная связь, нельзя отклонить  на заданном уровне значимости a")

End If

End Sub

 

При написании подпрограммы на командную кнопку для нахождения доверительного интервала используется следующая подпрограмма:

 

Private Sub CommandButton8_Click()

Dim Sigm As Double

Dim DovInt1 As Double

Dim DovInt2 As Double

Dim a As Double

Dim b As Double

 

n = TextBox1.Value

 

If OptionButton2 = True And Cells(3, 5).Value > Cells(4, 5).Value Or OptionButton4 = True And Cells(3, 5).Value > Cells(5, 5).Value Then

Sigm = CDbl((((1 - Cells(2, 5)) ^ 2) / (n - 2)) ^ (1 / 2))

 

DovInt1 = Cells(2, 5).Value - Cells(3, 5).Value * Sigm

DovInt2 = Cells(2, 5).Value + Cells(3, 5).Value * Sigm

a = Int(DovInt1 * 100) / 100

b = Int(DovInt2 * 100) / 100

 

If a < -1 Then

a = -1

End If

 

If b > 1 Then

b = 1

End If

 

MsgBox (a & " <= ro <= " & b), , ("Доверительный интервал")

End If

End Sub

 

К кнопке управления (CommandButton2 – «Очистить»), находящаяся на листе Excel, привязана следующие подпрограмма:

Private Sub CommandButton2_Click()

n = Worksheets(1).Cells(1, 5).Value

For i = 1 To n

Worksheets(1).Cells(i + 1, 1).Value = ""

Worksheets(1).Cells(i + 1, 2).Value = ""

Next i

Worksheets(1).Cells(1, 5).Value = ""

Worksheets(1).Cells(2, 5).Value = ""

Worksheets(1).Cells(3, 5).Value = ""

Worksheets(1).Cells(4, 5).Value = ""

Worksheets(1).Cells(5, 5).Value = ""

End Sub

 

 

5. РАЗРАБОТКА АЛГОРИТМОВ

 

 

Алгоритм программного модуля на языке VBA для вычисления и проверки статистической значимости коэффициента корреляции для двух выборок, извлеченных из различных генеральных совокупностей, распределенных по нормальному закону представлен на рисунке

Вычисления коэффициента корреляции.

 

 

 

 

 

 

 

 

 

 

 

 

 

Проверка статистической значимости коэффициента корреляции.

 

 

 

 

 

6. ТЕСТИРОВАНИЕ ПРОГРАММНОГО                ОБЕСПЕЧЕНИЯ

Для тестирования разработанного модуля на языке VBA вычисления и проверки статистической значимости коэффициента корреляции для двух выборок, извлеченных из различных генеральных совокупностей, распределенных по нормальному закону.

Для тестирования программы используется встроенная функция excel для вычисления коэффициента корреляции по двум выборкам (КОРРЕЛ(А2:А251;В2:В251))

 

Рисунок 5- Вычисление коэффициента корреляции встроенной функцией Excel

Для тестирования программы используется формула вычисления корреляции в excel используется формула (=(F2*КОРЕНЬ(E1-2))/(КОРЕНЬ(1-(F2^2))))

 

 

 

ЗАКЛЮЧЕНИЕ

 

 

В данной курсовой работе был разработан программный модуль на языке Visual Basic for Applications для вычисления и проверки статистической значимости коэффициента корреляции для двух выборок, извлеченных из различных генеральных совокупностей, распределенных по нормальному закону.

Результатом данной курсовой работы является изучение понятия корреляционной связи между двумя случайными величинами, вычисление и проверка статистической значимости коэффициента линейной корреляции.

 

 

СПИСОК ЛИТЕРАТУРЫ

1. Васильев А. VBA в Office 2000: Учебный курс/ А. Васильев, А. Андреев. – СПб: Питер, 2011. – 432с.
2. Ниворожкина, Л. П., Морозова3. А., Герасимова И. А., Житников И. В. Основы статистики с элементами теории вероятностей для экономистов: Руководство для решения задач. — Ростов н/Д: Феникс, 1999. — 320 с. — (Учебники «Феникса»).
3. Гмурман, В.Е. теория вероятности и математической статистике: Учебное пособие для студентов вузов.