mfe_pricef_win_arx.m

Modeling and Forecasting Electricity Loads and Prices: A Statistical Approach" by Rafa&#322 Weron, p

function H=mfe_pricef_win_arx;
%MFE_PRICEF_WIN_ARX Auxiliary routine for MFE_PRICEF.
%	MFE_PRICEF_WIN_ARX generates a window with controls for making 
%   ARX price forecasts.
%   H=MFE_PRICEF_WIN_ARX returns the window handle.

%   Written by Adam Misiorek and Rafal Weron (2006.09.22)
%   Copyright (c) 2006 by Rafal Weron

H=figure('menubar','none','name','ARX model','numbertitle','off','position',[450 300 230 250],'deletefcn','clear parwin');
uicontrol('parent',H,'style','frame','position',[10 120 210 125],'BackgroundColor',[0.5 0.5 0.5]);
uicontrol('parent',H,'style','text','position',[25 217 80 15],'string','AR order')
ob.aro=uicontrol('parent',H,'style','edit','position',[110 215 40 20],'BackgroundColor',[1 1 1],'string',2);
ob.xc=uicontrol('parent',H,'style','check','position',[165 218 40 13],'string','-X');
ob.pretype=0;
ob.nonep=uicontrol('parent',H,'style','radio','position',[25 180 80 15],...
   'string','None','value',1,'callback','ob=get(gcf,''userdata'');onlyone(ob.nonep,ob.simd,ob.limt,ob.dump);ob.pretype=0;set(ob.pc,''enable'',''off'');set(gcf,''userdata'',ob);');
ob.simd=uicontrol('parent',H,'style','radio','position',[125 180 80 15],...
   'string','Similar day','value',0,'callback','ob=get(gcf,''userdata'');onlyone(ob.simd,ob.nonep,ob.limt,ob.dump);ob.pretype=3;set(ob.pc,''enable'',''on'');set(gcf,''userdata'',ob);');
ob.limt=uicontrol('parent',H,'style','radio','position',[25 160 80 15],...
   'string','Limit','value',0,'callback','ob=get(gcf,''userdata'');onlyone(ob.limt,ob.simd,ob.nonep,ob.dump);ob.pretype=1;set(ob.pc,''enable'',''on'');set(gcf,''userdata'',ob);');
ob.dump=uicontrol('parent',H,'style','radio','position',[125 160 80 15],...
   'string','Damped','value',0,'callback','ob=get(gcf,''userdata'');onlyone(ob.dump,ob.simd,ob.limt,ob.nonep);ob.pretype=2;set(ob.pc,''enable'',''on'');set(gcf,''userdata'',ob);');

uicontrol('parent',H,'style','text','position',[25 130 120 15],'string','Prep. thresh. coeff.')
ob.pc=uicontrol('parent',H,'style','edit','position',[165 128 40 20],'BackgroundColor',[1 1 1],'string',3,'enable','off');

uicontrol('parent',H,'style','frame','position',[10 30 210 85],'BackgroundColor',[0.5 0.5 0.5]);
uicontrol('parent',H,'style','text','position',[20 92 145 15],'string','Interval forecasts'' conf. level')
ob.civ=uicontrol('parent',H,'style','edit','position',[170 90 40 20],'BackgroundColor',[1 1 1],'string',90);
ob.cit(1)=uicontrol('parent',H,'style','check','position',[20 65 80 13],'string','gaussian');
ob.cit(2)=uicontrol('parent',H,'style','check','position',[110 65 100 13],'string','non-parametric');
ob.pit=uicontrol('parent',H,'style','check','position',[55 40 120 13],'string','price cap used','value',1);

uicontrol('parent',H,'style','push','position',[160 5 50 20],'string','Run','callback',['ob=get(gcf,''userdata'');obj=get(mainf,''userdata'');',...
       'civs=str2num(get(ob.civ,''string''));civs=civs((civs>0)&(civs<100));civs=sort(civs(1:min(length(civs),3)));',...
       'startarx(obj.data,[eval(get(ob.aro,''string'')),1,1,get(ob.xc,''value''),1,1,1,0,0,0,0,0,0,0],',...
       'ob.pretype,eval(get(ob.pc,''string'')),obj.NF,obj.cbi,obj.cei,civs,ob.cit,ob.pit)']);
set(H,'userdata',ob)