{VERSION 5 0 "IBM INTEL LINUX" "5.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 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple P lot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 16 "with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "body1:= polygon([ [0,0], [12,0], [12,5], [0,5], [0,0] ], color=red) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "body2:= polygon([ [0,0], [-2,2.5], [-2,7.5], [0,5]], color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "body3:= polygon([ [0,5], [-2,7.5], \+ [10,7.5], [12,5]], color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "body:=display(body1, body2, body3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "spokes:= plot( \{ [[-2,0], [2,0]], [[0,-2], [0,2] ], [[2,0], [0,2], [-2,0], [0,-2], [2,0]] \}, thickness=3, color=gray ) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "rim:= circle( [0,0], \+ 2, thickness=2, color=black) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "wheel:= display( [spokes, rim] ):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 " wheel2:= rotate(wheel,-Pi/6 ) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 " wheel3:= rotate(whe el,-Pi/3) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 " body4:= polygon([ [4,2], [4.5,2], \+ [4.5,4], [3.5,4], [3.5,2]] , color=gray): " }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 71 " pole:= polygon([ [3.9,0], [4.1,0], [4.1,2], [3.9,2 ] ] , color=black): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 " re dlight:= disk( [4,3.6], .25,color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 " yellowlight:=disk( [4,3], .25, color=yellow):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 " greenlight := disk( [4,2.4] , .25, color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 " wh itelight := disk( [4,3.6], .25, color=white):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 " lighton := display([redlight,yellowlight,greenl ight,body4,pole], scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 " lightoff := display([whitelight,yellowlight,greenlig ht,body4,pole], scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 57 "you:= plot ( [ [1,2], [2,1], [3,1], [4,2] ], color= red) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "you:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "octagon:=plot( [ [1,0], [4,0], [5,1 ], [5,4], [4,5], [1,5], [0,4], [0,1], [1,0] ], color=blue) : " }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "octagon:" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 26 "line1 := [ [1,3], [2,3] ]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "line2 := [ [3,3], [4,3] ]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "lines:=plot(\{line1, line2\}, color =green) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "lines:" }} {PARA 13 "" 0 "" {TEXT -1 0 "" }}{PARA 13 "" 0 "" {TEXT -1 0 "" }} {PARA 13 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with (plots) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "arm 1 :=plot( [ [5,2], [6,3] ]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "arm2 :=plot( [ [0,2], [-1,3] ]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "leg1 :=plot( [ [4,0], [5,-1] ]):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 32 "leg2 :=plot( [ [1,0], [0,-1] ]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "face1:=display (\{you, octagon, lin es, arm1, arm2, leg1, leg2\}) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "face1:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "diamond1 : = [ [1,3], [1.5,3.5], [2,3], [1.5,2.5], [1,3] ]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "diamondline:=plot (\{diamond1, line2\}, color =green) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "face2:=display (\{you, octagon, diamondline, arm1, arm2, leg1, leg2\}) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " face2:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 37 " p1:=display(\{translate(face2,1,2)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 " p2:=display(\{translate(face2,3,2) \}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 " p3:=display(\{tran slate(face2,5,2)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 " p4 :=display(\{translate(face2,7,2)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 " p5:=display(\{translate(face2,9,2)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " p6:=display(\{translate(face2,11,2 )\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " p7:=display(\{tra nslate(face2,13,2)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " \+ p8:=display(\{translate(face2,15,2)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " p9:=display(\{translate(face2,17,2)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 " p10:=display(\{translate(face2,19, 2)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 " p11:=display(\{t ranslate(face2,21,2)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 " p12:=display(\{translate(face2,23,2)\}):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 " #fac e2:= polygon([ [4,2], [4.5,2], [4.5,4], [3.5,4], [3.5,2]] , color=gray ): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 " pole:= polygon([ [3 .9,0], [4.1,0], [4.1,2], [3.9,2] ] , color=black): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 " redlight:= disk( [4,3.6], .25,color=red) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 " yellowlight:=disk( [4 ,3], .25, color=yellow):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 " greenlight := disk( [4,2.4], .25, color=green):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 48 " whitelight := disk( [4,3.6], .25, color=whi te):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 " frame1 := display( [redlight,yellowlight,greenlight,body4,pole], scaling=constrained):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 " frame2 := display([whitel ight,yellowlight,greenlight,body4,pole], scaling=constrained):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "stoplight := display([frame1 ,frame2],insequence=true, scaling=constrained):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 10 "stoplight:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12],inse quence=true, scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 " everything1:=display(\{translate(face2,1,2), lighto n, translate(body,1,2), translate(wheel,4,3), translate(wheel,10,3)\}) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 123 " everything2:=display (\{translate(face2,3,2), lighton, translate(body,3,2), translate(wheel 2,6,3), translate(wheel2,12,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 123 " everything3:=display(\{translate(face2,5,2), lighto n, translate(body,5,2), translate(wheel3,8,3), translate(wheel3,14,3) \}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 " everything4:=disp lay(\{translate(face2,7,2), lighton, translate(body,7,2), translate(wh eel,10,3), translate(wheel,16,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 124 " everything5:=display(\{translate(face2,9,2), lighto n, translate(body,9,2), translate(wheel2,12,3), translate(wheel2,18,3) \}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 126 " everything6:=disp lay(\{translate(face2,11,2), lighton, translate(body,11,2), translate( wheel3,14,3), translate(wheel3,20,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 124 " everything7:=display(\{translate(face2,13,2), light on, translate(body,13,2), translate(wheel,16,3), translate(wheel,22,3) \}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 126 " everything8:=disp lay(\{translate(face2,15,2), lighton, translate(body,15,2), translate( wheel2,18,3), translate(wheel2,24,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 126 " everything9:=display(\{translate(face2,17,2), light on, translate(body,17,2), translate(wheel3,20,3), translate(wheel3,26, 3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 125 " everything10:=d isplay(\{translate(face2,19,2), lighton, translate(body,19,2), transla te(wheel,22,3), translate(wheel,28,3)\}):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 127 " everything11:=display(\{translate(face2,21,2), li ghton, translate(body,21,2), translate(wheel2,24,3), translate(wheel2, 30,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 127 " everything12 :=display(\{translate(face2,23,2), lighton, translate(body,23,2), tran slate(wheel3,26,3), translate(wheel3,32,3)\}):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 240 "display( [everything1, everything2, everything3, everything4, everyth ing5, everything6, everything7, everything8, everything9, everything10 , everything11, everything12 ], insequence=true, scaling=constrained, \+ view=[0..36, 0..9], axes=none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 } {VIEWOPTS 1 1 0 3 4 1802 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }