Материал: Контрольная работа по теме Базы данных в Excel 72 IV. Макросы в ms excel 78 Макросы для автоматизации работ 78

14. Поголовье свиней в хозяйствах всех категорий (на 1 января; голов)

	1996	1998	1999	2000	2001	2002	2003	2004	2005
г.Чебоксары	704	621	372	372	341	345	348	312	632
г.Алатырь	649	461	491	508	355	387	384	436	407
г.Канаш	1388	452	457	777	825	351	351	100	100
г.Новочебоксарск	312	291	243	253	307	109	242	317	200
г.Шумерля	759	441	470	458	319	279	293	290	289
Алатырский	13097	10218	9780	9576	6491	5476	5512	4637	3225
Аликовский	11388	8863	8842	9238	7211	7198	6916	5640	3858
Батыревский	22711	20229	20284	22197	18421	19176	21572	18678	14687
Вурнарский	17522	15369	13989	11963	8190	10657	11753	9981	12107
Ибресинский	12676	11501	12208	12131	9259	10518	10938	7264	6398
Канашский	31023	20161	26006	21934	14051	12383	12812	10598	5207
Козловский	18100	7725	5590	4310	2632	3621	3693	4426	3317
Комсомольский	18741	17803	16815	16641	13359	13979	14748	11783	7327
Красноармейский	17496	14533	14005	12601	7672	5771	6127	4869	3082
Красночетайский	7121	5666	5861	6691	4271	4639	4838	3649	2990
Марпосадский	9549	7931	7752	6189	4553	4443	4030	3010	4306
Моргаушский	32741	30779	31623	29493	22459	25069	27234	22072	16946
Порецкий	15233	13750	13209	11608	8957	9623	9229	7709	5966
Урмарский	10453	10239	10907	10136	5829	5881	6180	5346	4063
Цивильский	23631	19886	20491	19540	17010	17217	15630	9983	10142
Чебоксарский	15295	15837	15577	14482	11085	11330	12333	10637	11393
Шемуршинский	7517	8062	7917	7267	6078	6748	7386	7082	6165
Шумерлинский	10568	6757	5409	4191	3370	3278	3070	1782	975
Ядринский	15735	14642	15279	14602	11576	12977	13279	11462	9219
Яльчикский	25234	23033	23382	22595	21776	21867	22929	19497	13991
Янтиковский	11145	11473	11377	10931	9421	8685	9780	8025	7151

15. Поголовье коров в сельскохозяйственных организациях (на 1 января; голов)

	1996	1998	1999	2000	2001	2002	2003	2004	2005
Алатырский	5321	3754	3487	3233	2894	2627	2550	2317	1872
Аликовский	4111	3913	3797	3858	3725	3562	3279	3086	2686
Батыревский	4656	4005	3748	3649	3355	3055	3020	2650	1870
Вурнарский	5550	4915	4897	4465	3996	3864	3798	3459	2970
Ибресинский	2869	2694	2687	2636	2538	2317	2250	2035	1814
Канашский	6065	5039	4893	4475	3733	3618	3421	2901	2194
Козловский	2513	1840	1651	1456	1158	1101	976	822	645
Комсомольский	3339	3190	3075	2981	2904	2836	2768	2507	2267
Красноармейский	3309	3004	2890	2739	2422	2408	2408	2179	1690
Красночетайский	2916	2646	2593	2581	2510	2386	2363	2210	2010
Марпосадский	3040	2508	2235	1948	1811	1552	1258	977	836
Моргаушский	5260	5074	5075	5030	4987	4887	4802	4500	3871
Порецкий	3861	3163	2977	2719	2418	2316	2136	1761	1522
Урмарский	3027	2453	2798	2627	2201	2022	2022	1304	1012
Цивильский	4738	3731	3827	3477	3034	2940	2811	2564	2148
Чебоксарский	7230	6571	6485	5882	5381	5225	5019	4483	3801
Шемуршинский	2255	2179	2043	1869	1742	1569	1419	1207	909
Шумерлинский	2422	1898	1806	1819	1599	1411	1249	930	767
Ядринский	4578	4018	4167	3903	3631	3557	3535	3247	3010
Яльчикский	4270	3730	3742	3581	3545	3502	3503	3493	3079
Янтиковский	3029	2854	2837	2683	2511	2483	2441	2135	1861

Приложение 3Тексты макросовТекст макроса для кластерного анализаOptionExplicitConstn = 14 ' Количество объектовDimx(n) AsDouble ' Массивы координат (параметров)Dim y(n) As Double ' объектовDims(n, n) AsDouble ' Матрица расстояний между объектамиDimChain(3, n - 1) AsDouble 'Массив параметров цепочки расстояний' 1-ый параметр - расстояние' 2-ой параметр – номер первого объекта' 3-ий параметр – номер второго объектаDim Checked(n) As Boolean ' Массив выбранных объектовDim i, j, k As Integer 'Dim Imin As Integer 'Dim Jmin As Integer 'Dim MinS As Double 'Dim Xmin As Double ' Переменные,Dim Xmax As Double ' необходимые Dim Ymin As Double ' для нормированияDim Ymax As Double ' данныхPrivate Sub CommandButton1_Click()' Считывание данныхFor i = 1 To n: x(i) = Cells(i + 5, 3): NextFor i = 1 To n: y(i) = Cells(i + 5, 4): Next'' Нормирование данных'' Определение границ параметров объектовXmin = 1E+38: Xmax = -1E+38Ymin = 1E+38: Ymax = -1E+38For i = 1 To nIf x(i) < Xmin Then Xmin = x(i)If x(i) > Xmax Then Xmax = x(i)If y(i) < Ymin Then Ymin = x(i)If y(i) > Ymax Then Ymax = x(i)Next' Пересчет в нормированные значения (на диапазон 0..100)For i = 1 To nx(i) = 100 * (x(i) - Xmin) / (Xmax - Xmin)y(i) = 100 * (y(i) - Ymin) / (Ymax - Ymin)Next' Расчет матрицы расстояний между объектамиFor i = 1 To nFor j = 1 To ns(i, j) = Sqr((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2)NextNextFor i = 1 To n: Checked(i) = False: Next' Нахождение первой пары наиболее близких объектовk = 1MinS = 1E+38For i = 1 To n - 1For j = 2 To nIf s(i, j) < MinS And i <> j ThenMinS = s(i, j): Imin = i: Jmin = jEndIfNextNext'Цикл расчета массива цепочки расстоянийk = 1While k < n - 1k = k + 1MinS = 1E+38For i = 1 To n - 1For j = 2 To nIf (s(i, j) < MinS) And (i <> j) And _

(Checked(i) And Not Checked(j) Or _Not Checked(i) And Checked(j)) ThenMinS = s(i, j): Imin = i: Jmin = jEnd IfNextNext' Параметры очередной пары наиболее близких объектовChain(1, k) = MinSChain(2, k) = IminChain(3, k) = JminChecked(Imin) = True: Checked(Jmin) = TrueWend'Вывод цепочки расстояний на экранFor i = 1 To n - 1Cells(i + 10, 6) = Chain(1, i)Cells(i + 10, 7) = Chain(2, i)Cells(i + 10, 8) = Chain(3, i)NextEnd SubТекст макроса для решения систем дифференциальных уравненийOption ExplicitDim N(3) As DoubleDim F(3) As DoubleDim k1, k2, k3, k4, k5, k6 As DoubleDim T, tt, dt As DoubleDim i, k, h, nPeriod As IntegerSub Systema()F(1) = k1 * N(1) - k2 * N(1) * N(2)F(2) = -k3 * N(2) + k4 * N(1) * N(2)F(3) = 0End SubPrivate Sub CommandButton1_Click()For i = 1 To 3: N(i) = Cells(7 + i, 2): Nextk1 = Cells(16, 2): k2 = Cells(17, 2)k3 = Cells(18, 2): k4 = Cells(19, 2)k5 = Cells(20, 2): k6 = Cells(21, 2)T = Cells(12, 2)dt = Cells(13, 2)nPeriod = Int(T / 50 / dt)k = 8Cells(k, 4) = 0For i = 1 To 3: Cells(k, 4 + i) = N(i): Nexttt = 0: h = 0While tt < Th = h + 1tt = tt + dtCall SystemaFor i = 1 To 3: N(i) = N(i) + F(i) * dt: NextIf h = nPeriod Thenk = k + 1Cells(k, 4) = ttFor i = 1 To 3: Cells(k, 4 + i) = N(i): Nexth = 0End IfWendEnd SubТекст макроса для генерации временного рядаPrivate Sub CommandButton1_Click()Randomize TimerTip = Int(1 + 4 * Rnd(Timer))Cells(2, 12) = Tip: 'Tip = 4For i = 1 To 50If Tip = 1 Then y = 60 + 200 * i + 600 * Sin(i / 2) + (-300 + 600 * Rnd(Timer))If Tip = 2 Then y = 50 * Log(i) + 20 * Sin(i / 2) + (-10 + 20 * Rnd(Timer))If Tip = 3 Then y = 20 + 5 * 2 ^ (i / 10) + 20 * Sin(i / 2) + (-10 + 20 * Rnd(Timer))If Tip = 4 Then y = 50 + 300 * 2 ^ (-i / 5) + 30 * Sin(i / 2) + (-20 + 40 * Rnd(Timer))Cells(i + 4, 2) = iCells(i + 4, 3) = yNextEnd Sub

Приложение 4

Транспорт и связь

(данные по Чувашской республике [11])1. Во всех вариантах получить уравнение регрессии, адекватно описывающее представленные данные.2. Для расчетов не использовать данные за 2004 год.3. Данные за 2004 год использовать для сопоставления с результатами прогноза. 4. Для повышения точности расчетов значения годов заменить на их порядковые номера.Например, года:

1995

1997

1998

1999

2000

2001

2002

2003

2004

заменить на:

1

3

4

5

6

7

8

9

10

1. Перевозки грузов автомобильным транспортом всех отраслей экономики (по хозяйствам, в распоряжении которых 10 и более грузовых автомобилей; тысяч тонн)

1995	1997	1998	1999	2000	2001	2002	2003	2004
32872,1	22595,3	19264,9	18096,5	20374,5	17835,8	15736,5	21818,5	17467,8

2. Грузооборот автомобильного транспорта всех отраслей экономики (по хозяйствам, в распоряжении которых 10 и более грузовых автомобилей; тысяч тонно-километров)

1995	1997	1998	1999	2000	2001	2002	2003	2004
787506,2	581921,2	513206,1	557120,9	482524,5	487927,2	629398,1	955533,8	599922,4