Code: Select all
subroutine recession_shade(graph inputted_name)
series date = @date
series recessq2a=recessq2
smpl if recessq2=1 and recessq2(-1)=1 and recessq2(1)=1
recessq2a=0
smpl if recessq2a=1 and date <> na
vector recstend=date
smpl if recessq2=na
recessq2=0
smpl @first @first
if recessq2=0 then
for !i=1 to recstend.@rows-1 step 2
%date0 = @datestr(recstend(!i),"yyyy[Q]q")
%date1 = @datestr(recstend(!i+1), "yyyy[Q]q")
inputted_name.draw(shade,bottom) {%date0} {%date1}
next
else
%date2 = @datestr(recstend(1),"yyyy[Q]q")
inputted_name.draw(shade,bottom) @first {%date2}
for !i=2 to recstend.@rows-1 step 2
%date0 = @datestr(recstend(!i),"yyyy[Q]q")
%date1 = @datestr(recstend(!i+1), "yyyy[Q]q")
inputted_name.draw(shade,bottom) {%date0} {%date1}
next
endif
endsub