Моделирование и прогнозирование спроса на продукцию предприятия с помощью платформы 1С: Предприятие 8.1

 
 

     Ряд динамики индекс потребительских цен  в процентах к предыдущему  месяцу

     Таблица 3.

Месяц Год	Январь	Февраль	Март	Апрель	Май	Июнь	Июль	Август	Сентябрь	Октябрь	Ноябрь	Декабрь
2008							100,3	100,5	100	101,1	101	100,6
2009	101,5	102,8	101,1	100,4	100,6	100,5	100,7	100,1	100,1	99,9	100,4	100,2
2010	100,9	102,4	100,5	100,2	100,5	100,3	100,7	101,4	101,1	100,3	101,2	101,4
2011	102	101,5	100,4

 

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

     Таблица 4.

Месяц Год	Январь	Февраль	Март	Апрель	Май	Июнь	Июль	Август	Сентябрь	Октябрь	Ноябрь	Декабрь
2008							24014,0	25196,0	25886,0	27001,0	24738,0	24572,0
2009	24531,0	24711,0	24205,0	23823,0	23334,0	23015,0	22977,0	26223,0	26292,0	26390,0	26258,0	26327,0
2010	26490,0	26472,0	27522,0	28574,0	28566,0	28528,0	30050,0	30064,0	30125,0	27791,0	28038,0	29076,0
2011	29591,1	29645,5	29874,5

 
 
 
 
 
 

     Ряд динамики ставки рефинансирования Центрального Банка Российской Федерации, процент

     Таблица 5.

Месяц Год	Январь	Февраль	Март	Апрель	Май	Июнь	Июль	Август	Сентябрь	Октябрь	Ноябрь	Декабрь
2008							10,90	11,00	11,00	11,00	11,63	13,00
2009	13,00	13,00	13,00	12,88	12,21	11,57	11,19	10,82	10,70	9,98	9,40	8,97
2010	8,75	8,71	8,48	8,24	8,00	7,75	7,75	7,75	7,75	7,75	7,75	7,75
2011	7,75	7,75	8,00

 

     Ряд динамики выручки от продаж тыс. руб.

     Таблица 6.

Месяц Год	Январь	Февраль	Март	Апрель	Май	Июнь	Июль	Август	Сентябрь	Октябрь	Ноябрь	Декабрь
2008							43123,4	42172,5	46469,7	23376,85	33840,83	25178,94
2009	13272,57	24475,85	34145,13	46449,29	36277,09	39250,62	25615,50	33027,42	42114,48	27291,55	37950,72	46853,73
2010	18708,96	44199,79	55294,84	55019,9	57949,1	55955,18	60742,58	48639,59	55993,36	46269,69	37071,47	46397,83
2011	27871,19	50124,28	61476,14

 
 
 
 

     Матрица парных корреляций

     Таблица 7.

	Корреляции (данные) Отмеченные корреляции значимы  на уровне p < 0,05
	среднедуш. доходы, руб. в месяц	прожиточный минимум, руб. в месяц	индекс цен, %	кредиты, млн. рублей	ставка рефинансирования, %	выручка от продаж тыс. руб
среднедуш. доходы, руб. в месяц	1,00	0,33	-0,18	0,40	-0,46	0,49
прожиточный минимум, руб. в месяц	0,33	1,00	0,29	0,77	-0,77	0,41
индекс цен, %	-0,18	0,29	1,00	0,12	-0,01	-0,29
кредиты, млн. рублей	0,40	0,77	0,12	1,00	-0,88	0,57
ставка  рефинансирования, %	-0,46	-0,77	-0,01	-0,88	1,00	-0,60
выручка от продаж тыс. руб	0,49	0,41	-0,29	0,57	-0,60	1,00

 
 

 

     

     Приложение 2

     Исполняемый код в программе 1С Предприятие 8.1. 

     Процедура КнопкаСформироватьНажатие(Кнопка)

           Если ПроверкаПолей() Тогда

                 Сообщить("Необходимо заполнить все поля");

                 Возврат;

           КонецЕсли; 

           Если Не Организация.Пустая() Тогда

                 УсловиеОрганизация = "Организация = &Организация И ИСТИНА";

           КонецЕсли; 

           Если Дебет = 1 Тогда

                 КтДт = "Дт";

           Иначе

                 КтДт = "Кт";

           КонецЕсли; 

           Запрос = Новый Запрос(

           "ВЫБРАТЬ РАЗРЕШЕННЫЕ

           | Данные.Период КАК Период,

           | Сумма(Данные.СуммаОборот"+ КтДт + ") КАК Сумма 

           |ИЗ

           | РегистрБухгалтерии.Хозрасчетный.Обороты(

           |   &НачалоПериода,

           |   &КонецПериода,

           |   Месяц,

           |   Счет В ИЕРАРХИИ (&СчетУчета),

           |   ," + УсловиеОрганизация + ",

           |   ,

           |   ) КАК Данные

           |СГРУППИРОВАТЬ ПО

           | Данные.Период");

           Запрос.УстановитьПараметр("Организация", Организация);

           Запрос.УстановитьПараметр("НачалоПериода", НачПериода);

           Запрос.УстановитьПараметр("КонецПериода", КонецМесяца(КонПериода));

           Запрос.УстановитьПараметр("СчетУчета", СчетДляАнализа); 

           Состояние("Выполняется  обработка данных"); 

           //Выгрузим данные  в таблицу значений

           ТЗДанные = Запрос.Выполнить().Выгрузить();

           Если ТЗДанные.Итог("Сумма") = 0 Или ТЗДанные.Итог("Сумма") = Ложь Тогда

                 Сообщить("За выбранный  период нет движений по указанному счету");

                 Возврат;

           КонецЕсли; 

           //ТЗИсходная = ТЗДанные.Скопировать();//скопируем данные для обработки в будущем 

           ТЗДанные.Колонки.Добавить("Х");//это  икс

           //Проставим иксы

           Для Каждого Стр  Из ТЗДанные Цикл

                 Стр.Х = ТЗДанные.Индекс(Стр)+1;

           КонецЦикла; 

           СредХ = 0;

           СредХ = ТЗДанные.Итог("Х")/ТЗДанные.Количество();

           СредФ = 0;

           СредФ = ТЗДанные.Итог("Сумма")/ТЗДанные.Количество(); 

           СумХФ = 0;

           СумХХ2 = 0; 

           ТЗДанные.Колонки.Добавить("ХХ");//Для  расчета разницы средних иксов

           ТЗДанные.Колонки.Добавить("ФФ");//для  расчета разницы среднмих функций

           ТЗДанные.Колонки.Добавить("ХХ2");//для расчета разницы среднмих иксов в квадрате

           ТЗДанные.Колонки.Добавить("ХФ");//для  расчета разницы среднмих функций 

           Для Каждого Стр  из ТЗДанные Цикл //Рассчитаем все значения 

                 Стр.ХХ = Стр.Х - СредХ;

                 Стр.ФФ = Стр.Сумма - СредФ;

                 Стр.ХХ2 = Pow(Стр.Х - СредХ,2);

                 Стр.ХФ = Стр.ХХ * Стр.ФФ; 

           КонецЦикла; 

           Б = Окр(ТЗДанные.Итог("ХФ")/ТЗДанные.Итог("ХХ2"),4);

           А = Окр(СредФ - Б*Средх,4);

           //Получено уравнение  y= a + bx

           //Сообщить("А = " + А + "      Б = " + Б); 

           //Далее вычтем из трендовых данных фактические данные и  найдем сезонную

           ТЗРасчет = ТЗДанные.Скопировать(,"Период,Х,Сумма");

           ТЗРасчет.Колонки.Добавить("Тренд");

           ТЗРасчет.Колонки.Добавить("Откл"); 

           ТЗСезон = Новый ТаблицаЗначений; //таблица для расчета сезонности