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

, где

– выборочная средняя признаков x и y;

n – объем выборки;

– среднеквадратичное отклонение.

– вычисляется с помощью таблицы 7.

Для оценки силы линейной корреляционной связи служит выборочный коэффициент корреляции –

. Чем ближе

к единице, тем связь сильнее; чем ближе

к нулю, тем связь слабее. Если

– связь сильная,

– связь средняя,

– связь слабая.

Вывод: так как вычисленный коэффициент корреляции

что сила линейной корреляционной связи сильная.

Текст макроса представлен в приложении Г.

Задание №6

Проверить значимость коэффициента корреляции по критерию Стьюдента.

Проверка значимости коэффициента корреляции осуществляется по критерию Стьюдента. Данный коэффициент t сравнивается с табличным

. Если

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

связь между случайными величинами имеется – нулевая гипотеза отвергается.

Задание выполняется с помощь макроса, текст которого приведен в приложении Д.

Задание №7

Найти уравнение линейной регрессии y(x) и x(y). Построить облако рассеяния, центр распределения и прямые регрессии.

Рисунок 3– Облако рассеяния

Координаты точек, входящих в облако рассеяния:

А (22,9;24,2);В (19;30,5);С (7,34;40,1);D (16;19,3);

Е (3,75;18,6).

Таблица 8– Данные для построения прямой х(у)

х(у)	-11,6
у	0

Таблица 9– Данные для построения прямой у(х)

у(х)	19
х	0

Текст макроса приведен в приложение Е

Задание №8

По соответствующему уравнению регрессии оценить среднее количество вырабатываемых за смену изделий рабочим, имеющим стаж работы 15 лет.

Среднее количество вырабатываемых за смену изделий рабочим, имеющим стаж работы 15 лет равно 28.

Задание выполняется с помощью макроса, текст которого приведен в приложении Ж.

Задание №9

Считая, что возраст работающих подчинен нормальному закону распределения с параметрами (средний возраст – 40 лет, среднеквадратичное отклонение – 7 лет), определить интервал, содержащий практически всевозможные значения их возраста (поле рассеяния) и определить процент работающих мужчин и женщин пенсионного возраста.

Для мужчин:

лет

Процент работающих мужчин пенсионного возраста равен 1%

Для женщин:

лет

Процент женщин пенсионного возраста работающих на предприятии равен 10,1%.

Текст макроса приведен в приложении З.

Приложение А

(обязательное)

Описание макроса задания №2

Sub Задание2()

Range("C49").Select

ActiveCell.FormulaR1C1 = "=R[-9]C[6]/R[1]C[8]"

Range("C50").Select

ActiveCell.FormulaR1C1 = "=R[-10]C[7]/RC[8]"

Range("C51").Select

ActiveCell.FormulaR1C1 = "=R[-11]C[8]/R[-1]C[8]"

Range("C52").Select

ActiveCell.FormulaR1C1 = "=R[-12]C[9]/R[-2]C[8]"

Range("C53").Select

ActiveCell.FormulaR1C1 = "=R[-13]C[10]/R[-3]C[8]"

Range("C54").Select

ActiveCell.FormulaR1C1 = "=R[-14]C[11]/R[-4]C[8]"

Range("F49").Select

ActiveCell.FormulaR1C1 = "=R[-9]C[-4]/R[1]C[5]"

Range("F50").Select

ActiveCell.FormulaR1C1 = "=R[-10]C[-3]/RC[5]"

Range("F51").Select

ActiveCell.FormulaR1C1 = "=R[-11]C[-2]/R[-1]C[5]"

Range("F52").Select

ActiveCell.FormulaR1C1 = "=R[-12]C[-1]/R[-2]C[5]"

Range("F53").Select

ActiveCell.FormulaR1C1 = "=R[-13]C/R[-3]C[5]"

Range("K52").Select

ActiveCell.FormulaR1C1 = _

"=(R[-12]C[-2]*R[-13]C[-2]+R[-12]C[-1]*R[-13]C[-1]+R[-12]C*R[-13]C+R[-12]C[1]*R[-13]C[1]+R[-12]C[2]*R[-13]C[2]+R[-12]C[3]*R[-13]C[3])/R[-3]C"

Range("K53").Select

ActiveCell.FormulaR1C1 = _

"=(R[-13]C[-9]*R[-14]C[-9]+R[-13]C[-8]*R[-14]C[-8]+R[-13]C[-7]*R[-14]C[-7]+R[-13]C[-6]*R[-14]C[-6]+R[-13]C[-5]*R[-14]C[-5])/R[-4]C"

Range("K54").Select

ActiveCell.FormulaR1C1 = _

"=(R[-14]C[-2]*R[-15]C[-2]^2+R[-14]C[-1]*R[-15]C[-1]^2+R[-14]C*R[-15]C^2+R[-14]C[1]*R[-15]C[1]^2+R[-14]C[2]*R[-15]C[2]^2+R[-14]C[3]*R[-15]C[3]^2)/R[-5]C"

Range("K54").Select

ActiveCell.FormulaR1C1 = _

"=(R[-14]C[-2]*R[-15]C[-2]^2+R[-14]C[-1]*R[-15]C[-1]^2+R[-14]C*R[-15]C^2+R[-14]C[1]*R[-15]C[1]^2+R[-14]C[2]*R[-15]C[2]^2+R[-14]C[3]*R[-15]C[3]^2)/R[-5]C-R[-2]C^2"

Range("K55").Select

ActiveCell.FormulaR1C1 = _

"=(R[-15]C[-9]*R[-16]C[-9]^2+R[-15]C[-8]*R[-16]C[-8]^2+R[-15]C[-7]*R[-16]C[-7]^2+R[-15]C[-6]*R[-16]C[-6]^2+R[-15]C[-5]*R[-16]C[-5]^2)/R[-6]C-R[-2]C^2"

Range("K55").Select

ActiveCell.FormulaR1C1 = _

"=(R[-15]C[-9]*R[-16]C[-9]^2+R[-15]C[-8]*R[-16]C[-8]^2+R[-15]C[-7]*R[-16]C[-7]^2+R[-15]C[-6]*R[-16]C[-6]^2+R[-15]C[-5]*R[-16]C[-5]^2)/R[-6]C-R[-2]C^2"

Range("K55").Select

ActiveCell.FormulaR1C1 = _

"=(R[-15]C[-9]*R[-16]C[-9]^2+R[-15]C[-8]*R[-16]C[-8]^2+R[-15]C[-7]*R[-16]C[-7]^2+R[-15]C[-6]*R[-16]C[-6]^2+R[-15]C[-5]*R[-16]C[-5]^2)/R[-6]C-R[-2]C^2"

Range("K56").Select

ActiveCell.FormulaR1C1 = "=SQRT(R[-2]C)"

Range("K57").Select

ActiveCell.FormulaR1C1 = "=SQRT(R[-2]C)"

Range("K58").Select

ActiveWindow.SmallScroll Down:=6

ActiveCell.FormulaR1C1 = "=(R[-19]C+R[-19]C[1])/2"

Range("K59").Select

ActiveCell.FormulaR1C1 = "=R[-20]C[-7]"

Range("K60").Select

ActiveWindow.SmallScroll Down:=6

ActiveCell.FormulaR1C1 = "=R[-21]C[3]-R[-21]C[-2]"

Range("K61").Select

ActiveWindow.SmallScroll Down:=9

ActiveCell.FormulaR1C1 = "=R[-22]C[-5]-R[-22]C[-9]"

Range("K62").Select

ActiveWindow.SmallScroll Down:=9

ActiveCell.FormulaR1C1 = "=R[-6]C/R[-10]C*100"

Range("K63").Select

ActiveCell.FormulaR1C1 = "=R[-6]C/R[-10]C*100"

Range("K63").Select

ActiveCell.FormulaR1C1 = "=R[-6]C/R[-10]C*100"

Range("K64").Select

End Sub

ПриложениеБ

(обязательное)

Описание макроса задание №3

Sub Задание3()

' Range("G80").Select

ActiveCell.FormulaR1C1 = "=(R[1]C[-4]*R[-23]C[4])/(SQRT(R[-31]C[4]))"

Range("G81").Select

ActiveWindow.SmallScroll Down:=6

ActiveCell.FormulaR1C1 = "=R[-1]C/2"

Range("G83").Select

ActiveCell.FormulaR1C1 = "=R[-30]C[4]-R[-3]C"

Range("H83").Select

ActiveCell.FormulaR1C1 = "=R[-30]C[3]+R[-2]C[-1]"

Range("D85").Select

ActiveCell.FormulaR1C1 = "=R[-4]C[-1]^2*R[-28]C[7]^2/R[-4]C[3]^2"

Range("D86").Select

End Sub

ПриложениеВ

(обязательное)

Описание макроса задание №4

Sub Задание4()

Range("B96").Select

ActiveCell.FormulaR1C1 = "=R[-57]C"

Range("B97").Select

ActiveCell.FormulaR1C1 = "=R[-58]C[1]"

Range("B98").Select

ActiveCell.FormulaR1C1 = "=R[-59]C[2]"

Range("B99").Select

ActiveCell.FormulaR1C1 = "=R[-60]C[3]"

Range("B100").Select

ActiveCell.FormulaR1C1 = "=R[-61]C[4]"

Range("E96").Select

ActiveCell.FormulaR1C1 = "=R[-56]C[-3]"

Range("E97").Select

ActiveCell.FormulaR1C1 = "=R[-57]C[-2]"

Range("E98").Select

ActiveCell.FormulaR1C1 = "=R[-58]C[-1]"

Range("E99").Select

ActiveCell.FormulaR1C1 = "=R[-59]C"

Range("E100").Select

ActiveCell.FormulaR1C1 = "=R[-60]C[1]"

Range("C96").Select

ActiveCell.FormulaR1C1 = "=(RC[-1]-R53C11)/R57C11"

Range("C97").Select

ActiveWindow.SmallScroll Down:=9

Range("C96").Select

Selection.AutoFill Destination:=Range("C96:C100"), Type:=xlFillDefault

Range("C96:C100").Select

Range("F96").Select

ActiveCell.FormulaR1C1 = "=(R49C11*R102C7/R57C11)*RC[-2]"

Range("F96").Select

Selection.AutoFill Destination:=Range("F96:F100"), Type:=xlFillDefault

Range("F96:F100").Select

ActiveWindow.SmallScroll Down:=3

Range("G102").Select

ActiveCell.FormulaR1C1 = "=RC[-3]-3"

Range("G99:P99").Select

ActiveCell.FormulaR1C1 = _

"=IF(R[4]C[-4]<R[4]C,""Нулевая гипотеза принимается (Y распределен по нормальному закону)"",""Нулевая гипотеза отвергается (Y не распределен по нормальному закону)"")"

Range("C103").Select

ActiveCell.FormulaR1C1 = _

"=(R[-7]C[2]-R[-7]C[3])^2/R[-7]C[3]+(R[-6]C[2]-R[-6]C[3])^2/R[-6]C[3]+(R[-5]C[2]-R[-5]C[3])^2/R[-5]C[3]+(R[-4]C[2]-R[-4]C[3])^2/R[-4]C[3]+(R[-3]C[2]-R[-3]C[3])^2/R[-3]C[3]"

Range("C104").Select

ActiveWindow.SmallScroll Down:=-6

End Sub

Приложение Г

(обязательное)

Описание макроса задание №5

Sub Задание5()

Задание5 Макрос

Статистический анализ деятельности предприятия (стр. 3 из 4)

Задание №6

Задание №7

Текст макроса приведен в приложение Е

Задание №8

Задание №9

Приложение А

Описание макроса задания №2

ПриложениеБ

Описание макроса задание №3

ПриложениеВ

Описание макроса задание №4

Приложение Г

Описание макроса задание №5