logmode -e setmaxerrs 2 !builddate = @dateval(@builddatestr) if @vernum = 9 and @errorcount>0 then %msg = "Please update your copy of EViews 9 to the latest version before running this program." @uiprompt(%msg) stop endif
create u 36 smpl if @mod(@trend,2)=0 series x=@trend series y=-@trend smpl if @mod(@trend,2)>0 x=@trend-5 x = @recode(x<=0, @trend/2.5, x) y=-@trend+5 y = @recode(y>=0, -@trend/2.5, y) smpl 7 31 x = x * (1 + nrnd/100) y = y * (1 + nrnd/100) smpl 1 1 x=na y=na smpl 32 36 x=3 y=-3
for !count = 5 to 32 step 4 smpl !count !count series tinsel = x smpl !count+2 !count+2 series tinsel = y smpl !count+1 !count+1 series tinsel = (tinsel(-1)+tinsel(+1))/2 + 40/(36-@trend) next
logmode -e
ReplyDeletesetmaxerrs 2
!builddate = @dateval(@builddatestr)
if @vernum = 9 and @errorcount>0 then
%msg = "Please update your copy of EViews 9 to the latest version before running this program."
@uiprompt(%msg)
stop
endif
create u 36
smpl if @mod(@trend,2)=0
series x=@trend
series y=-@trend
smpl if @mod(@trend,2)>0
x=@trend-5
x = @recode(x<=0, @trend/2.5, x)
y=-@trend+5
y = @recode(y>=0, -@trend/2.5, y)
smpl 7 31
x = x * (1 + nrnd/100)
y = y * (1 + nrnd/100)
smpl 1 1
x=na
y=na
smpl 32 36
x=3
y=-3
for !count = 5 to 32 step 4
smpl !count !count
series tinsel = x
smpl !count+2 !count+2
series tinsel = y
smpl !count+1 !count+1
series tinsel = (tinsel(-1)+tinsel(+1))/2 + 40/(36-@trend)
next
group all x y tinsel
smpl @all
freeze(tree) all.band(l,rotate)
tree.setelem(1) axis(b)
tree.setelem(2) axis(b)
tree.setelem(3) axis(b)
tree.options fillfade(ltop)
tree.options barfade(3d)
tree.options size(2.6,3) -barspace fillcolor(0,0,107)
tree.setelem(1) fillcolor(0,168,0)
tree.setelem(1) linecolor(white)
tree.setelem(1) linewidth(2)
tree.legend -display
tree.axis(l) -label ticksnone range(0,36)
tree.axis(b) -label ticksnone range(-40,40)
tree.draw(shade,l,color(255,255,255)) 35 36
tree.addtext(1.2,-0.1,font(36),textcolor(yellow)) *
tree.addrect axisctr(0,34) height(2) width(4) linewidth(5) color(64,0,0)
tree.addrect axisctr(0,34) height(5) width(4) linewidth(5) color(64,0,0)
'random balls
!ball = 0
while !ball < 50
!y = @floor(@runif(3,32))
!x = @round(@runif(@min(y),@max(x)))
if @abs(!x/!y) < 1 then
tree.addellipse axisctr(!x,!y,b) height(0.1) width(0.1) color(red) linewidth(5)
!ball = !ball + 1
endif
wend
'random snow
!snow = 0
while !snow < 200
!y = @floor(@runif(1,35))
!x = @round(@runif(-40,40))
if @abs(!x/!y) > 1 or (!y > 32 and @abs(!x)>4) then
tree.addellipse axisctr(!x,!y,b) height(0.1) width(0.1) color(white) linewidth(1)
!snow = !snow + 1
endif
wend
tree.addtext(0.1,0.1, font(10), textcolor(yellow)) Happy Holidays
tree.addtext(0.13,0.3, font(10), textcolor(yellow)) From EViews!
show tree
Very cool!
ReplyDelete