Статистичний аналіз діяльності підприємства

[ виправити ] текст може містити помилки, будь ласка перевіряйте перш ніж використовувати.

скачати

Пензенська ДЕРЖАВНИЙ УНІВЕРСИТЕТ
Кафедра ІнОУП
Курсова робота
«Статистичний аналіз діяльності підприємства»
з дисципліни: «Статистичні основи документаційного забезпечення»
Пояснювальна записка
ПГУ 2.032001.117 ПЗ
Виконала: ст-ка гр.06ВД2
Є.П. Смуригіна
Прийняв: асистент
Ю.Ю. Фіонова
2008

Введення

Завдання математичної статистики

Встановлення закономірностей, яким підпорядковані масові випадкові явища, засноване на вивченні методами теорії ймовірностей статистичних даних - результатів спостережень.
Перше завдання математичної статистики - вказати способи збору і групування статистичних відомостей, отриманих в результаті спостережень або в результаті спеціально поставлених експериментів.
Друге завдання математичної статистики - розробити методи аналізу статистичних даних в залежності від цілей дослідження. Сюди відносяться:
а) оцінка невідомої ймовірності події; оцінка невідомої функції розподілу; оцінка параметрів розподілу, вигляд якого відомий; оцінка залежності випадкової величини від однієї або декількох випадкових величин та ін;
б) перевірка статистичних гіпотез про вид невідомого розподілу або про величину параметрів розподілу, вигляд якого відомий.
Сучасна математична статистика розробляє способи визначення числа необхідних випробувань до початку дослідження (планування експерименту), у ході дослідження (послідовний аналіз) і вирішує багато інших завдань. Сучасну математичну статистику визначають як науку про прийняття рішень в умовах невизначеності.
Отже, завдання математичної статистики полягає в созаданіі методів збору та обробки статистичних даних для отримання наукових і практичних висновків.
Способи відбору
Принципово ці способи можна розділити на два види:
1 Відбір, що не вимагає розчленування генеральної сукупності на частини:
1.1 простий випадковий бесповторного відбір;
1.2 б) простий випадковий повторний відбір.
2 Відбір, при якому генеральна сукупність розбивається на частини:
2.1 типовий відбір;
2.2 механічний відбір;
2.3 серійний відбір.
Простим випадковим називають такий відбір, при якому об'єкти видаляють по одному з усієї генеральної сукупності. Здійснити простий відбір можна разлічнимн способами. Наприклад, для витягання п об'єктів з генеральної сукупності обсягу N надходять так: виписують номери від 1 до N на картках, які ретельно перемішують, і навмання виймають одну картку; об'єкт, що має однаковий номер з витягнутою карткою, піддають обстеженню; потім картка повертають у пачку і процес повторюють, тобто картки перемішують, навмання виймають одну з них і т. д. Так надходять п разів; в результаті отримують просту випадкову вибірку повторну обсягу п.
Якщо витягнуті картки не повертати в пачку, то вибірка є простою випадковою бесповторного.
При великому обсязі генеральної сукупності описаний процес виявляється дуже трудомістким. У цьому випадку користуються готовими таблицями «випадкових чисел», в яких числа розташовані у випадковому порядку. Для того, щоб відібрати, наприклад, 50 об'єктів з пронумерованої генеральної сукупності, відкривають будь-яку сторінку таблиці випадкових чисел і виписують під-ряд 50 чисел; у вибірку попадають ті об'єкти, номери яких співпадають з виписаними випадковими числами. Якби виявилося, що випадкове число таблиці перевищує число N, то таке випадкове число пропускають. При здійсненні бесповторного вибірки випадкові числа таблиці, що вже зустрічалися раніше, слід також пропустити.
Типовим називають відбір, при якому об'єкти відбираються не з усієї генеральної сукупності, а з кожної її «типової» частини. Наприклад, якщо деталі виготовляють на декількох верстатах, то відбір проводять не з усієї сукупності деталей, вироблених усіма верстатами, а з продукдіі кожного верстата окремо. Типовим відбором лользуются тоді, коли обстежуваний ознака помітно коливається в різних типових частинах генеральної сукупності. Наприклад, якщо продукція виготовляється на кількох машинах, серед яких є більш і менш зношені, то тут типи-ний відбір доцільний.
Механічним називають відбір, при якому генеральну сукупність «мехаяіческі» ділять на стільки груп, скільки об'єктів повинно увійти у вибірку, а з кожної | групи відбирають один об'єкт. Наприклад, якщо потрібно відібрати 20% виготовлених верстатом деталей, то відби-рають кожну п'яту деталь; якщо потрібно відібрати 5% деталей, то відбирають кожну двадцяту деталь, і т. д. Слід зазначити, що іноді механічний відбір може не забезпечити репрезентативності вибірки. Наприклад, якщо відбирають кожен двадцятий обтачиваемой валик, причому відразу ж лосле відбору проводять заміну різця, то відібраними виявляться всі валики, обточені затуплені-ними різцями. У такому випадку слід усунути збігатися деніе ритму відбору з ритмом заміни різця, для чого треба відбирати, скажімо, кожен десятий валик з двад-цаті обточених.
Серійним називають відбір, при якому об'єкти відбирають з генеральної сукупності не по одному, а «серіями», які піддаються суцільного обстеження. Наприклад, якщо вироби виготовляються великою групою станковавтоматов, то піддають суцільному обстеженню продукцію тільки декількох верстатів. Серійним відбором користуються тоді, коли обстежуваний ознака коливається в різних серіях незначитель-но.
Підкреслимо, що на практиці часто застосовується комбінований відбір, при якому поєднуються зазначені вище способи. Наприклад, нногда розбивають генеральну сукупність на серії однакового об'єму, потім простим випадковим відбором вибирають кілька серій і, нарешті, з кожної серії простим випадковим відбором витягають окремі об'єкти.

Вихідні дані

У результаті вибіркового контролю встановлено, що розподіл 100 робочих заводу за стажем їх роботи x (в роках) і вироблення виробів y одним з робітників за зміну (у штуках) такі:
Таблиця SEQ Таблиця \ * ARABIC 1 - Розподіл робітників за стажем
xy
0-2
2-4
4-6
6-8
8-10
10-12
17-19
2
4
1
1
-
-
19-21
1
6
8
1
-
-
21-23
-
2
7
6
2
1
23-25
-
-
3
18
16
2
25-27
-
2
3
-
6
8
На підставі цієї таблиці:

Завдання № 1

Побудувати інтервальний і дискретний варіаційні ряди для x та y.
Статистичним аналогом ряду розподілу називається варіаційний ряд, то є таблиця, у верхньому рядку якого вказують варіанти, а в нижній - або частоти, або відносні частоти.
Інтервальний варіаційний ряд.
Таблиця SEQ Таблиця \ * ARABIC 2 - Інтегральний варіаційний ряд за y

17-19
19-21
21-23
23-25
25-27

8
16
18
39
19
Дискретний варіаційний ряд.

Таблиця SEQ Таблиця \ * ARABIC 3 - Дискретний варіаційний ряд за y

18
20
22
24
26

8
16
18
39
19
Інтервальний варіаційний ряд.
Таблиця SEQ Таблиця \ * ARABIC 4 - Інтегральний варіаційний ряд по x

0-2
2-4
4-6
6-8
8-10
10-12

3
14
22
26
24
11
Дискретний варіаційний ряд.
Таблиця SEQ Таблиця \ * ARABIC 5 - Дискретний варіаційний ряд по x

1
3
5
7
9
11

3
14
22
26
24
11

Завдання № 2

Побудувати полігон розподілу і гістограму частот для x та y. Визначити середнє значення, дисперсію, середньоквадратичне відхилення, моду, середню варіанту, розмах варіювання, коефіцієнт варіації.
Побудуємо гістограму і полігон частот для y від 17 до 27.



Відносна частота потрапляння:


Малюнок SEQ Малюнок \ * ARABIC 1 - Гістограма і полігон частот для y







Побудуємо гістограму і полігон частот для x від 0 до 12.


Відносна частота потрапляння:



Малюнок SEQ Малюнок \ * ARABIC 2 - Гістограма і полігон частот для x





Завдання виконується за допомогою макросу, текст якого наведено у додатку А.

Завдання № 3

З надійністю визначити довірчий інтервал для y і необхідний обсяг вибірки для удвічі меншою граничної вибірки.
Довірчим інтервалом називається інтервал, який з надійністю покриває оцінюваний інтервал.
, Де
- Точність оцінки,
- Обсяг вибірки,
- Значення функції Лапласа

Визначаємо необхідний обсяг вибірки для удвічі меншою граничної помилки.

Завдання виконується за допомогою макросу, текст наведений у Додатку Б.

Завдання № 4

Припускаючи розподіл кількості вироблюваних за зміну виробів одним робітником - y нормальним, обчислити теоретичну частоту. Перевірити значимість розбіжності теоретичних та емпіричних частот за критерієм Пірсона на 1% рівня значимості і зробити висновок про узгодження з дослідними даними гіпотези, що кількість вироблюваних виробів за зміну (y) розподілено за нормальним законом.
Критерієм згоди називається критерій перевірки гіпотези про передбачуване законі невідомого розподілу. З цією метою будемо порівнювати емпіричні (спостережувані) і теоретичні значення. Припустимо, що у припущенні нормальному розподілі обчислені теоретичні частоти ( ). При рівні значущості потрібно перевірити нульову гіпотезу ( ): Генеральна сукупність розподілена нормально. В якості критерію перевірки нульової гіпотези приймаємо випадкову величину .

Ця величина випадкова, тому що в різних дослідах вона приймає різні заздалегідь невідомі значення.
Правило: для того щоб при заданому рівні значимості перевірити нульову гіпотезу, треба спочатку обчислити теоретичні частоти, а потім спостережувані значення критерію.


По таблиці критичних точок розподілу , За заданим рівнем значущості і числу ступенів свободи , Знайти критичну точку . Якщо - Немає підстав відкидати нульову гіпотезу, якщо
, То нульова гіпотеза відкидається.
Таблиця SEQ Таблиця \ * ARABIC 6 - Дані для перевірки розбіжності теоретичних та емпіричних частот





18
2,04
0,05
8
4,2
20
1,21
0,19
16
15,8
22
0,4
0,37
18
30,8
24
0,5
0,35
39
29,2
26
1,3
0,17
19
14,2




нульову гіпотезу приймаємо.
Висновок: поширюється за нормальним законом.
Текст макросу цього завдання представлений у додатку В.

Завдання № 5

Припускаючи, що між стажем роботи (x) і кількістю вироблюваних за зміну виробів (y) існує кореляційна залежність, визначити вибірковий коефіцієнт кореляції та проаналізувати ступінь сили і напрям зв'язку.
1 Записуємо і в таблицю.
Таблиця SEQ Таблиця \ * ARABIC 7 - Кореляційна залежність
x
y
1
3
5
7
9
11


u
v
-3
-2
-1
0
1
2
18
-2
2
4
1
1
-
-
-15
30
8
20
-1
1
6
8
1
-
-
-23
23
16
22
0
-
2
7
6
2
1
-7
0
18
24
1
-
-
3
18
16
2
17
17
39
26
2
-
2
3
-
6
8
15
30
19

-5
-10
-1
15
28
18
15
20
1
0
28
36
100

3
14
22
26
24
11

2 Знаходимо умовні варіанти.
, Де
- «Помилкові нулі» варіанти . У якості «помилкового нуля» беремо варіанту в середині дискретного ряду.
- Крок варіанти .

, Де
- «Помилкові нулі» варіанти ,
- Крок варіанти .


3 Знаходимо


4 Розраховуємо допоміжні величини.





5 Обчислюємо коефіцієнт кореляції.
, Де
- Вибіркова середня ознак x і y;
n - обсяг вибірки;
- Середньоквадратичне відхилення.

- Обчислюється за допомогою таблиці 7.

Для оцінки сили лінійної кореляційної зв'язку служить вибірковий коефіцієнт кореляції - . Чим ближче до одиниці, тим зв'язок сильніший; чим ближче до нуля, тим зв'язок слабкіше. Якщо - Зв'язок сильна, - Зв'язок середня, - Зв'язок слабка.
Висновок: так як обчислений коефіцієнт кореляції = що сила лінійної кореляційної зв'язку сильна.
Текст макросу представлений в додатку Г.

Завдання № 6

Перевірити значимість коефіцієнта кореляції за критерієм Стьюдента.
Перевірка значущості коефіцієнта кореляції здійснюється за критерієм Стьюдента. Даний коефіцієнт t порівнюється з табличним . Якщо , То коефіцієнт кореляції значущий, і таким чином зв'язок між випадковими величинами є.


зв'язок між випадковими величинами є - нульова гіпотеза відкидається.
Завдання виконується з допомогу макросу, текст якого наведено у додатку Д.

Завдання № 7

Знайти рівняння лінійної регресії y (x) і x (y). Побудувати хмара розсіювання, центр розподілу і прямі регресії.




Малюнок SEQ Малюнок \ * ARABIC 3 - Хмара розсіювання
Координати точок, що входять в хмару розсіяння:
А (22,9; 24,2); В (19; 30,5); З (7,34; 40,1); D (16; 19,3);
Е (3,75; 18,6).
Таблиця SEQ Таблиця \ * ARABIC 8 - Дані для побудови прямий х (у)
х (у)
-11,6
у
0
Таблиця SEQ Таблиця \ * ARABIC 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] CR [-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] CR [-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] CR [-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] CR [-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 Макрос
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] CR [-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

Додаток Д

(Обов'язковий)

Опис макросу завдання № 6

Sub Заданіе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

Додаток Е

(Обов'язковий)

Опис макросу завдання № 7

Sub Заданіе7 ()
Range ("B141"). Select
ActiveCell.FormulaR1C1 = _
"= R [-13] C [6] * (R [-85] C [9] / R [-84] C [9]) * (R [1] CR [-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

Додаток Ж

(Обов'язковий)

Опис макросу завдання № 8

Sub Заданіе8 ()
Range ("D157"). Select
ActiveCell.FormulaR1C1 = _
"= R [-29] C [4] * (R [-100] C [7] / R [-101] C [7]) * (R [1] CR [-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] CR [-105] C [7]) + R [-104] C [7] "
Range ("D158"). Select
End Sub

Додаток З

(Обов'язковий)

Опис макросу завдання № 9

Sub Заданіе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
Додати в блог або на сайт

Цей текст може містити помилки.

Міжнародні відносини та світова економіка | Курсова
143.8кб. | скачати


Схожі роботи:
Статистичний аналіз банківської діяльності в Росії
Економіко-статистичний аналіз діяльності СТОВ Степове
Статистичний аналіз прибутку і рентабельності підприємства ВАТ Пневматика
Статистичний аналіз впливу рекламної діяльності організації на рівень її продажів
Статистичний аналіз банківської діяльності Дослідження моделей оцінки кредитних ризиків
Статистичний аналіз діяльності комерційних банків (умовна вибірка показників по 20 банках)
Статистичний аналіз діяльності комерційних банків (умовна вибірка показників по 20 банках)
Аналіз витрат підприємства на охорону навколишнього середовища в системі фінансової діяльності підприємства
Аналіз фінансово-господарської діяльності підприємства 2 Аналіз структури
© Усі права захищені
написати до нас