{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 36 "restart;with(plots): with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "rbody:= plot([[0,0],[10,5],[10,9],[5,9],[0,5]],filled=true,color=red):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "lbody:=plot([[0,0],[10,0],[9 ,5],[5,9],[0,9]],filled=true,color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "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 45 "rim:=circle([0,0],2,thickness=2,color=black):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "wheel:=display([spokes,rim ]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "p1:=display(\{trans late(lbody,1,2), translate(wheel,4,3), translate(wheel,10,3), translat e(rbody,70,2), translate(wheel,73,3), translate(wheel,79,3)\}):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 169 "spokes1:=polygon([[-2,0],[- 0.5,0.5],[-1,1],[0,0.5],[0.5,1],[0.5,0.5],[1.5,0],[0.5,-0.1],[1.5,-1], [0,-0.5],[-1,-1],[-0.5,-0.5],[-1.5,-0.5],[-0.5,-0.2],[-2,0]],color=red ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "spokes2:=scale(spokes 1,9,9):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "spokes:=translat e(spokes2,41,8):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "p2:=di splay(\{translate(lbody,3,2), translate(wheel,6,3), translate(wheel,12 ,3), translate(rbody,68,2), translate(wheel,71,3), translate(wheel,77, 3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "p3:=display(\{tr anslate(lbody,5,2), translate(wheel,8,3), translate(wheel,14,3), trans late(rbody,66,2), translate(wheel,69,3), translate(wheel,75,3)\}):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 151 "p4:=display(\{translate(lb ody,7,2), translate(wheel,10,3), translate(wheel,16,3), translate(rbod y,64,2), translate(wheel,67,3), translate(wheel,73,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 151 "p5:=display(\{translate(lbody,9,2) , translate(wheel,12,3), translate(wheel,18,3), translate(rbody,62,2), translate(wheel,65,3), translate(wheel,71,3)\}):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 152 "p6:=display(\{translate(lbody,11,2), transl ate(wheel,14,3), translate(wheel,20,3), translate(rbody,60,2), transla te(wheel,63,3), translate(wheel,69,3)\}):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 152 "p7:=display(\{translate(lbody,13,2), translate(whe el,16,3), translate(wheel,22,3), translate(rbody,58,2), translate(whee l,61,3), translate(wheel,67,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 152 "p8:=display(\{translate(lbody,15,2), translate(wheel ,18,3), translate(wheel,24,3), translate(rbody,56,2), translate(wheel, 59,3), translate(wheel,65,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 152 "p9:=display(\{translate(lbody,17,2), translate(wheel ,20,3), translate(wheel,26,3), translate(rbody,54,2), translate(wheel, 57,3), translate(wheel,63,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 153 "p10:=display(\{translate(lbody,19,2), translate(whee l,22,3), translate(wheel,28,3), translate(rbody,52,2), translate(wheel ,55,3), translate(wheel,61,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 153 "p11:=display(\{translate(lbody,21,2), translate(whee l,24,3), translate(wheel,30,3), translate(rbody,50,2), translate(wheel ,53,3), translate(wheel,59,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 153 "p12:=display(\{translate(lbody,23,2), translate(whee l,26,3), translate(wheel,32,3), translate(rbody,48,2), translate(wheel ,51,3), translate(wheel,57,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 153 "p13:=display(\{translate(lbody,25,2), translate(whee l,28,3), translate(wheel,34,3), translate(rbody,46,2), translate(wheel ,49,3), translate(wheel,55,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 153 "p14:=display(\{translate(lbody,27,2), translate(whee l,30,3), translate(wheel,36,3), translate(rbody,44,2), translate(wheel ,47,3), translate(wheel,53,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 153 "p15:=display(\{translate(lbody,29,2), translate(whee l,32,3), translate(wheel,38,3), translate(rbody,42,2), translate(wheel ,45,3), translate(wheel,51,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 153 "p16:=display(\{translate(lbody,31,2), translate(whee l,34,3), translate(wheel,40,3), translate(rbody,40,2), translate(wheel ,43,3), translate(wheel,49,3)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "displa y([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,spokes],inse quence=true, scaling=constrained, 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 }