Навигация
Находим условные варианты
27063
знака
9
таблиц
17
изображений
2 Находим условные варианты.
, где
– «ложные нули» варианты 
. В качестве «ложного нуля» берем варианту в середине дискретного ряда.
– шаг варианты 
.
, где
– «ложные нули» варианты 
,
– шаг варианты 
.
3 Находим 
4 Рассчитываем вспомогательные величины.
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 |
По соответствующему уравнению регрессии оценить среднее количество вырабатываемых за смену изделий рабочим, имеющим стаж работы 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
Приложение Б
(обязательное)
Описание макроса задание №3Sub Задание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
Приложение В
(обязательное)
Описание макроса задание №4Sub Задание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
Приложение Г
(обязательное)
Описание макроса задание №5Sub Задание5()
Задание5 Макрос
Range("C105").Select
ActiveCell.FormulaR1C1 = "=R[-68]C[-1]"
Range("C106").Select
ActiveWindow.SmallScroll Down:=6
Range("C105").Select
Selection.AutoFill Destination:=Range("C105:H105"), Type:=xlFillDefault
Range("C105:H105").Select
ActiveWindow.SmallScroll Down:=6
Range("C114").Select
ActiveCell.FormulaR1C1 = "=R[-76]C[-1]"
Range("C114").Select
Selection.AutoFill Destination:=Range("C114:H114"), Type:=xlFillDefault
Range("C114:H114").Select
Range("A107").Select
ActiveCell.FormulaR1C1 = "=R[-70]C[9]"
Range("A108").Select
ActiveCell.FormulaR1C1 = "=R[-71]C[10]"
Range("A109").Select
ActiveCell.FormulaR1C1 = "=R[-72]C[11]"
Range("A110").Select
ActiveCell.FormulaR1C1 = "=R[-73]C[12]"
Range("A111").Select
ActiveCell.FormulaR1C1 = "=R[-74]C[13]"
Range("K107").Select
ActiveCell.FormulaR1C1 = "="
Range("K107").Select
ActiveCell.FormulaR1C1 = "=R[-69]C[-1]"
Range("K108").Select
ActiveCell.FormulaR1C1 = "=R[-70]C"
Range("K109").Select
ActiveCell.FormulaR1C1 = "=R[-71]C[1]"
Range("K110").Select
ActiveCell.FormulaR1C1 = "=R[-72]C[2]"
Range("K111").Select
ActiveCell.FormulaR1C1 = "=R[-73]C[3]"
Range("K112").Select
ActiveWindow.SmallScroll Down:=9
Range("C107").Select
ActiveCell.FormulaR1C1 = "=R[-91]C[2]"
Range("C108").Select
ActiveWindow.SmallScroll Down:=9
Range("C107").Select
Selection.AutoFill Destination:=Range("C107:H107"), Type:=xlFillDefault
Range("C107:H107").Select
Range("C108").Select
ActiveCell.FormulaR1C1 = "=R[-91]C[2]"
Range("C108").Select
Selection.AutoFill Destination:=Range("C108:H108"), Type:=xlFillDefault
Range("C108:H108").Select
Range("C109").Select
ActiveCell.FormulaR1C1 = "=R[-91]C[2]"
Range("C110").Select
ActiveWindow.SmallScroll Down:=6
Range("C109").Select
Selection.AutoFill Destination:=Range("C109:H109"), Type:=xlFillDefault
Range("C109:H109").Select
Range("C110").Select
ActiveCell.FormulaR1C1 = "=R[-91]C[2]"
Range("C111").Select
ActiveWindow.SmallScroll Down:=9
Range("C110").Select
Selection.AutoFill Destination:=Range("C110:H110"), Type:=xlFillDefault
Range("C110:H110").Select
Range("C111").Select
ActiveCell.FormulaR1C1 = "=R[-91]C[2]"
Range("C112").Select
ActiveWindow.SmallScroll Down:=6
Range("C111").Select
Selection.AutoFill Destination:=Range("C111:H111"), Type:=xlFillDefault
Range("C111:H111").Select
Range("C106").Select
ActiveCell.FormulaR1C1 = "=(R[-1]C-R118C11)/R116C11"
Range("C106").Select
Selection.AutoFill Destination:=Range("C106:H106"), Type:=xlFillDefault
Range("C106:H106").Select
Range("B107").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]-R119C11)/R117C11"
Range("B107").Select
Selection.AutoFill Destination:=Range("B107:B111"), Type:=xlFillDefault
Range("B107:B111").Select
Range("I107").Select
ActiveCell.FormulaR1C1 = _
"=R[-1]C[-6]*RC[-6]+R[-1]C[-5]*RC[-5]+R[-1]C[-4]*RC[-4]+R[-1]C[-3]*RC[-3]+R[-1]C[-2]*RC[-2]+R[-1]C[-1]*R[-1]C[-1]"
Range("I107").Select
ActiveCell.FormulaR1C1 = _
"=R[-1]C[-6]*RC[-6]+R[-1]C[-5]*RC[-5]+R[-1]C[-4]*RC[-4]+R[-1]C[-3]*RC[-3]+R[-1]C[-2]*RC[-2]+R[-1]C[-1]*RC[-1]"
Range("I107").Select
ActiveCell.FormulaR1C1 = _
"=R106C3*RC[-6]+R106C4*RC[-5]+R106C5*RC[-4]+R106C6*RC[-3]+R106C7*RC[-2]+R106C8*RC[-1]"
Range("I107").Select
Selection.AutoFill Destination:=Range("I107:I111"), Type:=xlFillDefault
Range("I107:I111").Select
Range("B107").Select
ActiveCell.FormulaR1C1 = ""
Range("C112").Select
ActiveCell.FormulaR1C1 = ""
Range("B108").Select
Selection.Copy
Range("B107").Select
ActiveSheet.Paste
Range("B109").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=(RC[-1]-R119C11)/R117C11"
Range("C112").Select
ActiveCell.FormulaR1C1 = _
"=R107C2*R[-5]C+R108C2*R[-4]C+R109C2*R[-3]C+R110C2*R[-2]C+R111C2*R[-1]C"
Range("C113").Select
ActiveWindow.SmallScroll Down:=-6
Range("C112").Select
Selection.AutoFill Destination:=Range("C112:H112"), Type:=xlFillDefault
Range("C112:H112").Select
Range("C113").Select
ActiveCell.FormulaR1C1 = "=R[-1]C*R[-7]C"
Range("C113").Select
Selection.AutoFill Destination:=Range("C113:H113"), Type:=xlFillDefault
Range("C113:H113").Select
Range("J107").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-8]"
Range("J107").Select
Selection.AutoFill Destination:=Range("J107:J111"), Type:=xlFillDefault
Range("J107:J111").Select
Range("J112").Select
Selection.FormulaR1C1 = "="
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
Range("J113").Select
Selection.FormulaR1C1 = "="
ActiveCell.FormulaR1C1 = "=SUM(RC[-7]:RC[-2])"
Range("C116").Select
ActiveCell.FormulaR1C1 = _
"=(R[-2]C*R[-10]C+R[-2]C[1]*R[-10]C[1]+R[-2]C[2]*R[-10]C[2]+R[-2]C[3]*R[-10]C[3]+R[-2]C[4]*R[-10]C[4]+R[-2]C[5]*R[-10]C[5])/R[-67]C[1]"
Range("C117").Select
ActiveWindow.SmallScroll Down:=9
Range("C117").Select
ActiveCell.FormulaR1C1 = _
"=(R[-10]C[8]*R[-10]C[-1]+R[-9]C[8]*R[-9]C[-1]+R[-8]C[8]*R[-8]C[-1]+R[-7]C[8]*R[-7]C[-1]+R[-6]C[8]*R[-6]C[-1])/R[-68]C[1]"
Range("C118").Select
ActiveWindow.SmallScroll Down:=6
ActiveCell.FormulaR1C1 = _
"=(R[-4]C*R106C3+R[-4]C[1]*R106C4+R[-4]C[2]*R106C5+R[-4]C[3]*R106C6+R[-4]C[4]*R106C7+R[-4]C[5]*R106C8)/R[-69]C[1]"
Range("C119").Select
ActiveWindow.SmallScroll Down:=6
Range("C118").Select
ActiveCell.FormulaR1C1 = _
"=(R[-4]C*R106C3^2+R[-4]C[1]*R106C4^2+R[-4]C[2]*R106C5^2+R[-4]C[3]*R106C6^2+R[-4]C[4]*R106C7^2+R[-4]C[5]*R106C8^2)/R[-69]C[1]"
Range("C119").Select
ActiveCell.FormulaR1C1 = _
"=(R[-12]C[8]*R[-12]C[-1]^2+R[-11]C[8]*R[-11]C[-1]^2+R[-10]C[8]*R[-10]C[-1]^2+R[-9]C[8]*R[-9]C[-1]^2+R[-8]C[8]*R[-8]C[-1]^2)/R[-70]C[1]"
Range("F116").Select
ActiveCell.FormulaR1C1 = "=SQRT(R[2]C[-3]-RC[-3]^2)"
Range("F117").Select
ActiveCell.FormulaR1C1 = "=коень(R[2]C[-3]-RC[-3]^2)"
Range("F117").Select
Columns("F:F").ColumnWidth = 11
Columns("F:F").ColumnWidth = 10.14
ActiveCell.FormulaR1C1 = "=SQRT(R[2]C[-3]-RC[-3]^2)"
Range("F118").Select
ActiveCell.FormulaR1C1 = "=R[-5]C[4]"
Range("F119").Select
ActiveCell.FormulaR1C1 = _
"=(R[-1]C-R[-70]C[-2]*R[-3]C[-3]*R[-2]C[-3])/(R[-70]C[-2]*R[-3]C*R[-2]C)"
Range("F120").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(R[-1]C>0.7,R[-1]C<1),""связь сильная"",IF(AND(R[-1]C>0.5,R[-1]C<0.7),""связь средняя"",""связь слабая""))"
Range("F121").Select
End Sub
Приложение Д
(обязательное)
Описание макроса задание №6Sub Задание6()
Range("J126").Select
ActiveCell.FormulaR1C1 = "=R[-7]C[-4]*корень"
Range("D49").Select
ActiveWindow.SmallScroll Down:=75
Range("J126").Select
ActiveCell.FormulaR1C1 = _
"=(R[-7]C[-4]*SQRT(R[-77]C[-6]-2))/коернь(1-R[-7]C[-4]^2)"
Range("J126").Select
Columns("J:J").ColumnWidth = 11.86
Columns("J:J").ColumnWidth = 13.86
Columns("J:J").ColumnWidth = 9.86
Columns("J:J").ColumnWidth = 8.43
ActiveCell.FormulaR1C1 = _
"=(R[-7]C[-4]*SQRT(R[-77]C[-6]-2))/коернь(1-(R[-7]C[-4]^2))"
Range("J126").Select
ActiveCell.FormulaR1C1 = _
"=(R[-7]C[-4]*SQRT(R[-77]C[-6]-2))/SQRT(1-(R[-7]C[-4]^2))"
Range("H124").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[2]C[2]>R[2]C[-1],""Связи между случайными величинами нет (нулевая гипотеза отвергается)"",""Связь между случайными величинами есть (нулевая гипотеза подтверждается)"")"
Range("H125").Select
End Sub
Приложение Е
(обязательное)
Описание макроса задание №7Sub Задание7()
Range("B141").Select
ActiveCell.FormulaR1C1 = _
"=R[-13]C[6]*(R[-85]C[9]/R[-84]C[9])*(R[1]C-R[-88]C[9])+R[-89]C[9]"
Range("D141").Select
ActiveCell.FormulaR1C1 = _
"=R128C8*(R57C11/R56C11)*(R[1]C-R52C11)+R53C11"
Range("C144").Select
ActiveCell.FormulaR1C1 = "=R128C8*(R57C11/R56C11)*(R[1]C-R52C11)+R53C11"
Range("C144").Select
Selection.AutoFill Destination:=Range("C144:D144"), Type:=xlFillDefault
Range("C144:D144").Select
Range("C147").Select
ActiveCell.FormulaR1C1 = "=R128C8*(R56C11/R57C11)*(R[1]C-R53C11)+R52C11"
Range("C147").Select
Selection.AutoFill Destination:=Range("C147:D147"), Type:=xlFillDefault
Range("C147:D147").Select
Range("C144").Select
End Sub
Приложение Ж
(обязательное)
Описание макроса задание №8Sub Задание8()
Range("D157").Select
ActiveCell.FormulaR1C1 = _
"=R[-29]C[4]*(R[-100]C[7]/R[-101]C[7])*(R[1]C-R[-105]C[7])-R[-104]C[7]"
Range("D157").Select
ActiveCell.FormulaR1C1 = _
"=R[-29]C[4]*(R[-100]C[7]/R[-101]C[7])*(R[1]C-R[-105]C[7])+R[-104]C[7]"
Range("D158").Select
End Sub
Приложение З
(обязательное)
Описание макроса задание №9Sub Задание9()
ActiveWindow.SmallScroll Down:=6
Range("C170").Select
ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-3]C)/R[-2]C"
Range("C171").Select
ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-4]C)/R[-3]C"
Range("C172").Select
ActiveWindow.SmallScroll Down:=3
Range("C178").Select
ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-3]C)/R[-2]C"
Range("C179").Select
ActiveCell.FormulaR1C1 = "=(R[-3]C[3]-R[-4]C)/R[-3]C"
Range("L170").Select
ActiveCell.FormulaR1C1 = "=(R[-2]C[-3]-R[-2]C[-1])*100"
Range("L178").Select
ActiveCell.FormulaR1C1 = "=(R[-2]C[-3]-R[-2]C[-1])*100"
Range("L179").Select
Range("E170").Select
ActiveCell.FormulaR1C1 = "=R[-2]C[-2]*6"
Range("E178").Select
ActiveCell.FormulaR1C1 = "=R[-2]C[-2]*6"
Range("E179").Select
End Sub
Похожие работы
... , в противном случае производятся дальнейшие исследования на предмет его соответствия целям организации. 3. Выбор комплекса маркетинга. Проведение анализа деятельности предприятия При определении направлений развития деятельности предприятия, связанного с выходом на новые рынки и удержание лидирующих позиций на существующем сегменте, последовательно проходят следующие этапе разработки и ...
... И ИНФОРМАТИКИ КАФЕДРА МАТЕМАТИЧЕСКОЙ СТАТИСТИКИ И ЭКОНОМЕТРИКИ Контрольная работа по курсу: “Многомерные статистические методы” напо темуе: “КоррелЯционно-регрессионный, факторный и компонентный анализы деятельности предприятии”студента группы ЗС-301 шифр 96005 Башиной Екатерины Сергеевны Москва 1998 год СОДЕРЖАНИЕ Экономическая постановка задачи ...
... себя специальные подразделения при линейных руководителях, которые помогают им выполнять задачи организации, что освобождает главного линейного руководителя от глубокого анализа проблем. АНАЛИЗ ФИНАНСОВО-ХОЗЯЙСТВЕННОЙ И ОРГАНИЗАЦИОННО-ПРАВОВОЙ ДЕЯТЕЛЬНОСТИ ПРЕДПРИЯТИЯ 2.1 Анализ технико-экономических показателей деятельности предприятия В работе каждого предприятия важным является анализ и ...
... Эти и другие показатели хозяйственно-финансовой деятельности предприятий общественного питания взаимосвязаны и непрерывно изменяются. Они выступают в качестве объекта экономического анализа. Для изучения деятельности предприятий общественного питания используются: - данные о численности обслуживаемого населения, производственных предприятий, о организаций и учреждений, находящихся в зоне ...
0 комментариев