Разработка процедур прогнозирования показателей работы железных дорог
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ogn.table=;continue;datasets library = sr_beta nolist;Data_vse;Prog_st;nabor_proc_raschet;;;
_STATUS_=H;display(Next_stat.frame);;_exit:continue;_result.table=;_progn.table=;datasets library = work nolist;
* delete Izmer_znach;Nabor_proc_raschet;Pr_izmerit;;datasets library = sr_beta nolist;Data_vse;Prog_st;;;
_STATUS_=H;;
NEXT_STAT.SCL
init:_mes.visible=no;_zapusk.enabled=no;_nazv_stat.text=нужно выбрать номер статьи;_stat.items=spisok_stat._getspisok(sp.var_stat,var_id);char a;char nazv_stat;;/*INIT*/_stat:=spisok_stat.selectedItem;continue;
%global st_id;_null_;sp.var_stat;=&a;stati eq a1 then call symput(st_id,var_id);;
%put id статьи &st_id;get_izmerit;sp.var_stat;
%global n_st;
%global id_izm;var_id eq symget(st_id) then do;_id_izm=put(var_id_izm,7.);symput(id_izm, new_id_izm);symput(n_st,name);;;
%put название статьи &nazv_stat;
endsubmit;_nazv_stat.text=symget(n_st);_izmerit.items=spisok_izmerit._getspisok(get_izmerit,new_id_izm);continue;datasets library = work nolist;get_izmerit;;;_zapusk.enabled=yes;;_zapusk:
/**/_zapusk.enabled=no;_mes.visible=yes;_mes.text=Процедура прогноза запущена;
submit continue;
/*Получить набор с данными по статье DATE FACT_STAT*/
/*получить данные по расходам МЖД из ПЭП*/;_mes.text=Получаю данные по расходам;
submit continue;
0;">%let time=%sysfunc(DATETIME());_null_;=minute(&time);=SECOND(&time);//////*********************ВРЕМЯ********///////; min= min sec= sec;;fact_stat(keep= DATE fact);data.base;VAR_ID eq symget(st_id) and DOR_ID eq 003 and year(date) gt 1997 and month(date) eq 12 and fact <>0;
run;
/*Выделить зависящие расходы*/
data _null_;
set sp.Var_stat;
%global zav_dolya;VAR_ID eq symget(st_id) then call symput(zav_dolya,p4);;fact_stat;fact_stat;= fact*symget(zav_dolya);;
%let time=%sysfunc(DATETIME());_null_;=minute(&time);=SECOND(&time);//////*********************ВРЕМЯ** ******///////; min= min sec= sec;;;continue;datasets library = work nolist; fact_fact;;
/*Получить набор для расчета*/
endsubmit;_mes.text=Получаю набор для расчета;continue;
/*date rasxod izmerit*/raschit_izmerit;Izmer_znach(keep = var_id date fact);var_id eq symget(id_izm) and month(date) eq 12 ;;
%global pr_izmerit;pr_izmerit;Izmer_znach(keep = var_id date fact);var_id eq symget(id_izm) and month(date) eq 9 and year(date) eq 2002do;symput (pr_izmerit,fact);;;;sort data= fact_stat;date;run;sort data= raschit_izmerit;date;run;nabor_proc_raschet;fact_stat(rename = (fact=rasxod))_izmerit(drop=var_id rename = (fact=izmerit ));date;;datasets library = work nolist;fact_stat;raschit_izmerit;
run;
/*Запустить прцедуру прогноза*/
/*входной набор sr_beta.data_vse*/
data sr_beta.data_vse;Nabor_proc_raschet;;
%global kol_vo_izm;
/*РАСЧЕТ*/
%let time=%sysfunc(DATETIME());_null_;=minute(&time);=SECOND(&time);//////********ВРЕМЯ* *******///////;min= min sec= sec;;;_mes.text=Рассчитываю прогноз;continue;
%raschet_prog_sred;
/*выходной набор sr_beta.prog_st*/
l_tables;
%let time=%sysfunc(DATETIME());_null_;=minute(&time);=SECOND(&time);//////********ВРЕМЯ ******///////;min= min sec= sec;;;
/*ВЫВЕСТИ РЕЗУЛЬТАТ*/display(inter_result.frame);
_STATUS_=H;;_exit:continue;datasets library = work nolist;
* delete Izmer_znach;Nabor_proc_raschet;Pr_izmerit;;datasets library = sr_beta nolist;Data_vse;Prog_st;;;
_STATUS_=H;;