'definiera parametrar
%perFUD="1/02/1980"
%perFUA=@datestr(@dateval(%perFUD,"mm/DD/YYYY"),"YYYY")

%perSPA="2014"
%perSPD=@datestr(@dateadd(@datefloor(@dateadd(@dateval(%perSPA,"YYYY"),1,"Y"),"B"),-1,"B"),"mm/DD/YYYY")

'stäng
close @all

'hämta data
'dbopen(type=macrobond) m as mb
pagecreate(page=d) d5 {%perFUD} {%perSPD}
'copy(c=q) g:\pro\bpro\kpipr.bnk::kpi.m kpi 'kopiera KPI-prognos på månadsfrekvens och interpolera kvadratiskt med bibehållna medelvärden
'copy ::mb::omxafgx
series kpi=1
smpl @first 2012
series omxafgx=1
smpl @all
'close mb

'deflatera serie
series realindx=omxafgx/kpi

'beräkna genomsnittlig tillväxt
%perFUDreal=realindx.@first
%perSUDreal=realindx.@last
!diff=@datediff(@dateval(%perSUDreal,"mm/DD/YYYY"),@dateval(%perFUDreal,"mm/DD/YYYY"),"B")
!meangrowth=(@elem(realindx,%perSUDreal)/@elem(realindx,%perFUDreal))^(1/!diff)

'skriv fram
%perFPDreal=@datestr(@dateadd(@dateval(%perSUDreal,"mm/DD/YYYY"),1,"B"),"mm/DD/YYYY")
smpl {%perFPDreal} @last
series realindx=realindx(-1)*!meangrowth
series omxafgx=realindx*kpi

'andra frekvenser
for %f m q a
	'kollapsa
	pagecreate(page={%f}) {%f} {%perFUA} {%perSPA}
	copy(c=a) d\omxafgx 'kopiera medel
	copy(c=l) d\omxafgx omxafgx_u 'kopiera ultimo

	'beräkna förändring
	series omxafgxp=@pcy(omxafgx)
	series omxafgxp_u=@pcy(omxafgx_u)
	'@uiprompt(%f)
next