{VERSION 6 0 "IBM INTEL NT" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "restart;with(plots): with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "hill:= polygon([[0,0],[15,3], [90,3], [100,0]],color=orange):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "hill2:= polygon([[90,3],[90,15],[10 0,18],[100,0]],color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "hill3:= polygon([[0,0],[15,3],[15,15],[0,18]],color=red):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "top:= plot([[15,3],[15,15]], color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "door:= polyg on([[90,3],[90,15],[100,15],[100,0],[90,3]],color=brown):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "dway:= polygon([[90,3],[90,15],[100 ,15],[100,0],[90,3]],color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "doornob:=disk([98,6],0.8,color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "door1:=display([doornob,door]):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "topbeam:= polygon ([[0,18], [15,15],[90,15],[100,18]],color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "wh:=polygon([[0,14],[15,11],[15,8],[0,9]],color=green ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "wh1:=polygon([[0,14], [15,11],[15,8],[0,9]],color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "wall:=polygon([[15,15],[90,15],[90,3],[15,3]],color=r ed):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "room:=display([hill ,top,topbeam,wh]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "room2 :=display([hill,top,topbeam,wall,hill2,hill3]):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 34 "face:=disk([98,10],1,color=white):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "body:=plot([[98,10],[98,5]],thickne ss=3,color=white):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "arms: =plot([[91,9],[98,7],[100,9]],thickness=3,color=brown):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "leg:=plot([[90,3],[98,5],[100,0]],t hickness=3,color=brown):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "room3:=display([hill,top,topbeam,wall,hill2,hill3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "person:=display([face,body,arms,leg ]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "door2:=polygon([[90, 3],[70,3],[70,15],[90,15]],color=brown):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "p1:=display([wh1,door1,room2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "b1:= ellipse([20,10],2, 0.5, filled=true, col or=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "b2:= ellipse( [22,10],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 55 "b3:= ellipse([24,10],2, 0.5, filled=true, color=gre en):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "b4:= ellipse([26,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "b5:= ellipse([28,10],2, 0.5, filled=true, color=green ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "b6:= ellipse([30,10], 2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "b7:= ellipse([32,10],2, 0.5, filled=true, color=green ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "b8:= ellipse([34,10], 2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "b9:= ellipse([36,10],2, 0.5, filled=true, color=green ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b10:= ellipse([38,10] ,2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b11:= ellipse([40,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b12:= ellipse([42,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b13:= ellipse([44,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b14:= ellipse([46,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b15:= ellipse([48,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b16:= ellipse([50,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b17:= ellipse([52,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b18:= ellipse([54,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b19:= ellipse([56,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b20:= ellipse([58,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b21:= ellipse([60,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b22:= ellipse([62,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b23:= ellipse([64,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b24:= ellipse([66,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b25:= ellipse([68,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b26:= ellipse([70,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b27:= ellipse([72,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b28:= ellipse([74,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b29:= ellipse([76,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b30:= ellipse([78,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b31:= ellipse([80,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b32:= ellipse([82,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b33:= ellipse([84,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b34:= ellipse([86,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b35:= ellipse([88,10],2, 0.5, filled=true, color=gree n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "b35:= ellipse([90,10 ],2, 0.5, filled=true, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "p2:=display([person,dway,wh1,door2,room3]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "p3:=display([person,b1,dway, wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "p4:=di splay([person,b2,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "p5:=display([person,b3,dway,wh,door2,room3]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "p6:=display([person,b4,dway, wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "p7:=di splay([person,b5,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "p8:=display([person,b6,dway,wh,door2,room3]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "p9:=display([person,b7,dway, wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "p10:=d isplay([person,b8,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "p11:=display([person,b9,dway,wh,door2,room3]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p12:=display([person,b10,dwa y,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p13: =display([person,b11,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p14:=display([person,b12,dway,wh,door2,room3]):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p15:=display([person,b14,d way,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p1 6:=display([person,b15,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p17:=display([person,b16,dway,wh,door2,room3]): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p18:=display([person,b1 7,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p19:=display([person,b18,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p20:=display([person,b19,dway,wh,door2,room3] ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p21:=display([person, b20,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p22:=display([person,b21,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p23:=display([person,b22,dway,wh,door2,ro om3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p24:=display([per son,b23,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p25:=display([person,b24,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p26:=display([person,b25,dway,wh,do or2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p27:=displa y([person,b26,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p28:=display([person,b27,dway,wh,door2,room3]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p29:=display([person,b28,dwa y,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p30: =display([person,b29,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p31:=display([person,b30,dway,wh,door2,room3]):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p32:=display([person,b31,d way,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p3 3:=display([person,b32,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p34:=display([person,b33,dway,wh,door2,room3]): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p35:=display([person,b3 4,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "p36:=display([person,b35,dway,wh,door2,room3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 180 "display([p1,p1,p1,p2,p2.1,p3,p4,p5,p6,p9,p10 ,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p 28,p29,p30,p31,p32,p33,p34,p35,p36,p1],insequence=true,axes=none);" }} }}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }