{VERSION 6 0 "IBM INTEL LINUX" "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 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "restart: with(plots) : with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 213 "car \+ := plot([ [[2,2], [1,3], [2,4], [2,5], [3,4], [4,5], [3.5,4], [13,4], \+ [13,2], [2,2]],[[4,5], [4.5,5.5], [8,5.5], [9,5], [10,4]],[[4.5,5.5], \+ [4.5,4]] ], color=[red,blue,black], scaling=constrained,thickness=0): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "body := polygon([ [2,2 ], [1,3], [2,4], [2,5], [3,4], [4,5], [3.5,4], [13,4], [13,2], [2,2]], color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "p1 := displa y([body,car]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 118 "spokes : = plot( [ [[-1,0], [1,0]], [[0,-1], [0,1]], [[1,0], [0,1], [-1,0], [0, -1], [1,0]] ], thickness=2, color=gray):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "rim := circle( [0,0], 1, thickness=2, color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "wheel := display( [spokes , rim] ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "p1 := display( \{translate(body,0,1),translate(car,0,1)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "p1 := display(\{translate(body,0,1), translate( car,0,1),translate(wheel,4,3), translate(wheel,10.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "p2 := display(\{translate(body,2,1 ),translate(car,2,1), translate(wheel,6,3), translate(wheel,12.5,3)\}) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "p3 := display(\{trans late(body,4,1), translate(car,4,1),translate(wheel,8,3), translate(whe el,14.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "p4 := di splay(\{translate(body,6,1),translate(car,6,1), translate(wheel,10,3), translate(wheel,16.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "p5 := display(\{translate(body,8,1),translate(car,8,1), transla te(wheel,12,3), translate(wheel,18.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "p6 := display(\{translate(body,10,1),translate(ca r,10,1), translate(wheel,14,3), translate(wheel,20.5,3)\}):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "p7 := display(\{translate(b ody,12,1),translate(car,12,1), translate(wheel,16,3), translate(wheel, 22.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "p8 := displ ay(\{translate(body,14,1),translate(car,14,1), translate(wheel,18,3), \+ translate(wheel,24.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "p9 := display(\{translate(body,16,1),translate(car,16,1), transla te(wheel,20,3), translate(wheel,26.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "p10 := display(\{translate(body,18,1),translate(c ar,18,1), translate(wheel,22,3), translate(wheel,28.5,3)\}):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "p11 := display(\{translate( body,20,1),translate(car,20,1), translate(wheel,24,3), translate(wheel ,30.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "p12 := dis play(\{translate(body,22,1),translate(car,22,1), translate(wheel,26,3) , translate(wheel,32.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 111 "display( [ p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12 ], insequence =true, scaling=constrained, view=[0..36, 0..9]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "wheel2 := rotate(wheel,-Pi/6):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "wheel3 := rotate(wheel,-Pi/3):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "p1 := display(\{translate(b ody,0,1), translate(car,0,1),translate(wheel,4,3), translate(wheel,10. 5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "p2 := display( \{translate(body,2,1),translate(car,2,1), translate(wheel2,6,3), trans late(wheel2,12.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "p3 := display(\{translate(body,4,1),translate(car,4,1), translate(whe el3,8,3), translate(wheel3,14.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "p4 := display(\{translate(body,6,1),translate(car,6, 1), translate(wheel,10,3), translate(wheel,16.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "p5 := display(\{translate(body,8,1 ),translate(car,8,1), translate(wheel2,12,3), translate(wheel2,18.5,3) \}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "p6 := display(\{tr anslate(body,10,1),translate(car,10,1), translate(wheel3,14,3), transl ate(wheel3,20.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 " p7 := display(\{translate(body,12,1),translate(car,12,1), translate(wh eel,16,3), translate(wheel,22.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "p8 := display(\{translate(body,14,1),translate(car,1 4,1), translate(wheel2,18,3), translate(wheel2,24.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "p9 := display(\{translate(body,16, 1),translate(car,16,1), translate(wheel3,20,3), translate(wheel3,26.5, 3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "p10 := display( \{translate(body,18,1),translate(car,18,1), translate(wheel,22,3), tra nslate(wheel,28.5,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "p11 := display(\{translate(body,20,1),translate(car,20,1), transl ate(wheel2,24,3), translate(wheel2,30.5,3)\}):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 109 "p12 := display(\{translate(body,22,1),transla te(car,22,1), translate(wheel3,26,3), translate(wheel3,32.5,3)\}):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 133 "display( [ p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12 ], insequence=true, scaling=constra ined, view=[0..36, 0..9], axes=none):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 762 "palmtrees := plot( [ [[5,2], [6,9], [7,9.5], [8,9], \+ [9,2] ], [ [6,9], [6,10], [4,9], [3.5,8], [3.5,9], [5,10.5], [4.5,11], [5,10.5], [3,10], [4,11.5], [5,12], [7,10.5], [8,11], [10,10], [8.5,1 0], [7,10], [8.5,10], [9.5,7], [8,9]], [[15,2], [16,9], [17,9.5], [18, 9], [19,2] ], [ [16,9], [13.5,7], [15.5,10], [17,10], [15.5,10], [14,1 0], [16,11], [17,10.5], [19,12], [20,11.5], [21,10], [19,10.5], [19.5, 9], [19.5,8], [19,9], [18,10], [18,9]], [[25,2], [26,9], [27,9.5], [28 ,9], [29,2] ], [ [26,9], [26,10], [24,9], [23.5,8], [23.5,9], [25,10.5 ], [24.5,11], [25,10.5], [23,10], [24,11.5], [25,12], [27,10.5], [28,1 1], [30,10], [28.5,10], [27,10], [28.5,10], [29.5,7], [28,9]] ], color = [brown, green, brown, green, brown, green],scaling=constrained, thic kness=1 ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "sun:=disk([13 ,14], 4,color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "rim2 :=circle([13,14], 4,color=yellow,thickness=4):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 52 "line4:=plot([[0,2],[35,2]], color=gray,thickne ss=6):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 128 "p1 := display(\{ translate(body,0,1), translate(car,0,1),translate(wheel,4,3), translat e(wheel,10.5,3),palmtrees,sun,rim2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 130 "p2 := display(\{translate(body,2,1),translate(c ar,2,1), translate(wheel2,6,3), translate(wheel2,12.5,3),palmtrees,sun ,rim2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 130 "p3 := d isplay(\{translate(body,4,1),translate(car,4,1), translate(wheel3,8,3) , translate(wheel3,14.5,3),palmtrees,sun,rim2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 129 "p4 := display(\{translate(body,6,1 ),translate(car,6,1), translate(wheel,10,3), translate(wheel,16.5,3),p almtrees,sun,rim2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "p5 := display(\{translate(body,8,1),translate(car,8,1), translate (wheel2,12,3), translate(wheel2,18.5,3),palmtrees,sun,rim2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 133 "p6 := display(\{translat e(body,10,1),translate(car,10,1), translate(wheel3,14,3), translate(wh eel3,20.5,3),palmtrees,sun,rim2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 131 "p7 := display(\{translate(body,12,1),translate(car ,12,1), translate(wheel,16,3), translate(wheel,22.5,3),palmtrees,sun,r im2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 133 "p8 := dis play(\{translate(body,14,1),translate(car,14,1), translate(wheel2,18,3 ), translate(wheel2,24.5,3),palmtrees,sun,rim2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 133 "p9 := display(\{translate(body,16, 1),translate(car,16,1), translate(wheel3,20,3), translate(wheel3,26.5, 3),palmtrees,sun,rim2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 132 "p10 := display(\{translate(body,18,1),translate(car,18,1), tr anslate(wheel,22,3), translate(wheel,28.5,3),palmtrees,sun,rim2,line4 \}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 134 "p11 := display(\{t ranslate(body,20,1),translate(car,20,1), translate(wheel2,24,3), trans late(wheel2,30.5,3),palmtrees,sun,rim2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 134 "p12 := display(\{translate(body,22,1),transl ate(car,22,1), translate(wheel3,26,3), translate(wheel3,32.5,3),palmtr ees,sun,rim2,line4\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 133 " display( [ p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12 ], insequ ence=true, scaling=constrained, view=[0..36, 0..9], axes=none);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }