{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 38 "restart; with(plots) : with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "hous e :=plot( [[6,2], [6,0.5], [10,0.5], [10,2], [6,2], [8,4], [10,2], [10 ,3.5], [9,3.5], [9,3]], color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "wheel:=disk( [25,1], 1, color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "something:=disk( [29,1], 1, color=b lue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "spokes := plot( [ \+ [[24,1], [26,1], [25,1], [25,2], [25,0]] ], thickness=3, color=gray ): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "spokes2 :=plot( [ [[28, 1], [30,1], [29,1], [29,2], [29,0]] ], thickness=3, color=gray ):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "car := display( [spokes, spo kes2, wheel, something] ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 186 "body := plot( [[31,1], [24,1], [24,1.5], [23,1.75], [24,2], [24,1 ], [24,2.5], [26,2.5], [28,3.5], [28,2.5], [28,2.5], [26,2.5], [30,2.5 ], [30,1], [31,1], [31,1.5], [30,1.5]], color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "p1 := display(body, car, house):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "supports1 :=plot( [[8,0.5], \+ [8,0]], color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "sup ports2 := plot( [[6,0.5], [6,0]], color=blue):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 51 "supports3 := plot( [[10,0.5], [10,0]], color=b lue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "supports := displa y(supports1,supports2,supports3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "p1 := display(translate(body,24,0),translate(car,23. 5,0),translate(house,6,0),translate(supports,6,0)): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "newcar:= display(translate(body,24,0),tra nslate(car,24,0)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "p1 := display(translate(house,6,0),translate(supports,6,0),translate(newcar ,0,0)): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "p2 := display(t ranslate(house,6,0),translate(supports,6,0),translate(newcar,-5,0)): \+ " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "p3 := display(translate (house,6,0),translate(supports,6,0),translate(newcar,-10,0)): " }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "p4 := display(translate(hous e,6,0),translate(supports,6,0),translate(newcar,-15,0)): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "p5 := display(translate(house,6,0), translate(supports,6,0),translate(newcar,-20,0)): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "p6 := display(translate(house,6,0),translat e(supports,6,0),translate(newcar,-25,0)): " }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 85 "p7 := display(translate(house,6,0),translate(suppor ts,6,0),translate(newcar,-30,0)): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "p8 := display(translate(house,6,0),translate(supports ,6,0),translate(newcar,-35,0)): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "p9 := display(translate(house,6,0),translate(supports ,6,0),translate(newcar,-40,0)): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "display( [ p1, p2, p3, p4, p5, p6, p7, p8, p9 ],inseq uence=true,scaling=constrained, axes=none); " }}}{EXCHG }}{MARK "0 0 0 " 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }