{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 37 "head : =circle( [0,23], 4, color=tan):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "ebrow:=plot( [[2,25],[3.6,24]], color=brown):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "eyeball := arc( [3.6,23],.5, Pi/4.. 7/4*Pi ,color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "pup il := disk( [3.8,23],0.05 ,color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "iris := disk( [3.8,23],0.1 ,color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "eye :=display(eyeball,pupil,iris): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "smile:=arc([3.5,22],1,P i..3/2*Pi):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "face:=displa y(head,ebrow,eye,smile):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "body:=plot([[0,6] ,[0,20]] ,color=tan ,thickness=5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "arm1:=plot([[0,10] ,[3,15]],color=t an ,thickness=5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "arm2:= plot([[0,10] ,[-3,15]] ,color=tan ,thickness=5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "leg1:=plot([[3,0] ,[0,6]] ,color=tan ,thickne ss=5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "leg2:=plot([[-3,0 ] ,[0,6]] ,color=tan, thickness=5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "dot:=plot([[25,0],[25,25]],color=white):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "man:=display([body,leg1,leg2,arm1,a rm2,face,dot]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 235 "robot:= plot([[1,6] ,[1,9] ,[5,9] ,[5,10] ,[4,10] ,[4,11] ,[7,11] ,[7,10], [6, 10],[6,9],[9,9], [9,10],[10,10], [10,8], [7,8], [7,5],[8,5],[8,6] ,[10 ,6] ,[10,3.5] , [5.5,3.5], [5.5,1.5] ,[7,1.5] ,[7,0] ,[4,0] ,[4,8],[2, 8],[2,6],[1,6]]): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 " " }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "f1:=display([translate(man,0 ,0),translate(robot,10,0)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "f2:=display([translate(man,2,0),translate(robot,11,0)]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "f3:=display([translate(man,4 ,0),translate(robot,12,0)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "f4:=display([translate(man,6,0),translate(robot,13,0)]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "f5:=display([translate(man,8 ,0),translate(robot,14,0)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "f6:=display([translate(man,10,0),translate(robot,15,0)]):" } {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "f7:=display ([translate(man,12,0),translate(robot,16,0)]):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 57 "f8:=display([translate(man,14,0),translate(rob ot,17,0)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "f9:=display( [translate(man,16,0),translate(robot,18,0)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "f10:=display([translate(man,18,0),translate(robo t,19,0)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "f11:=display( [translate(man,20,0),translate(robot,20,0)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "f12:=display([translate(man,22,0),translate(robo t,22,2)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "f13:=display( [translate(man,24,0),translate(robot,25,4)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "f14:=display([translate(man,26,0),translate(robo t,28,6)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "f15:=display( [translate(man,28,0),translate(robot,30,8)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "f16:=display([translate(man,30,0),translate(robo t,32,10)]):" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 137 "display([f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16 ], insequence=true, scaling=constrained, view=[-5..45, 0..27], axes=no ne);" }{TEXT -1 0 "" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }