Amusing Program of the Day
Posted: Thu Mar 03, 2011 10:51 am
Inspiration hit me this morning (Select all, copy, then paste into a new EViews program (File->New->Program), and then hit Run):
Code: Select all
create u 15
series black
black.fill na, na, 7, 9, 11, 39, 6, 12, 6, 39, 11, 9, 7, na, na
series white
white.fill na, na, na, na, na, na, 2, na, 2, na, na, na, na, na, na
series black2
black2.fill na, na, na, na, na, na, 3, na,3, na, na, na, na, na, na
series skin
skin.fill na, na, na, na, na, na, 11, 4, 11, na, na, na, na, na, na
series black3
black3.fill na, na, na, na, na, na, na, 2, na, na, na, na, na, na, na
series skin2
skin2.fill na, na, na, na, na, na, na, 4, na, na, na, na, na, na, na
series black4
black4.fill na, na, na, na, na, na, 9, 9, 9, na, na, na, na, na, na
group g black4 skin2 black3 skin black2 white black
freeze(bat) g.bar(s)
bat.options -barspace -outlinebars fillcolor(0,0,220) fillfade(ltop)
bat.setelem(1) fillcolor(black)
bat.setelem(2) fillcolor(@rgb(250, 214, 165))
bat.setelem(3) fillcolor(black)
bat.setelem(4) fillcolor(@rgb(250, 214, 165))
bat.setelem(5) fillcolor(black)
bat.setelem(6) fillcolor(white)
bat.setelem(7) fillcolor(black)
bat.legend -display
bat.addtext(0.2, 0.18, textcolor(yellow), font(16)) "Na na na na \nna na na na"
bat.addtext(3.57, 1.48, textcolor(yellow), font(24)) "Batman!"
show bat