{VERSION 5 0 "IBM INTEL NT" "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 "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 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(plots):with(plottools):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "l := line([7.5,-1], [7.5,5], color=black, linestyle=3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "head1:=ellipse([3,2.5],1,1.5,filled=true,color=tan):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "mouth:=plot([[2.25,2],[2.7,1.2],[3. 4,1.2],[3.8,2]],color=red,thickness=5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "eyes:=polygon([[2.25,3],[2.5,2.75],[2.75,3],[2.5,3.25 ],[2.25,3]],filled=true,color=cyan):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "hair1:=polygon([[3,4.5],[0,1],[6,1],[3,4.5]],filled=t rue,color=yellow):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "line2 :=plot([[4.5,3.5],[4.9,3.5]],color=black):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 92 "phone1:=plot([[5,4],[7,4],[7,0],[5,0],[5,1],[6,1],[ 6,3],[5,3],[5,4]],color=red,thickness=3):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 71 "line1:=plot(\{[[4.1,3.9],[4.9,3.9]],[[4.2,3.1],[4.9 ,3.1]]\},color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "s ound1:=display(line1,line2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "face1:=display(phone1,eyes,translate(eyes,1,0),head1,hair1):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "head2:=ellipse([12,2.5],1,1 .5,filled=true,color=gold):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "mouth2:=polygon([[11.75,1.25],[11.25,2],[12.75,2],[12.25,1.25],[1 1.75,1.25]],filled=true, color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "hair2:=polygon([[9,1],[15,1],[12,4.5],[9,1]],filled=t rue,color=sienna):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "eye1: =polygon([[11.25,3],[11.5,3.25],[11.75,3],[11.5,2.75],[11.25,3]],fille d=true,color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "eye 2:=polygon([[12.25,3],[12.5,3.25],[12.75,3],[12.5,2.75],[12.25,3]],fil led=true,color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "p hone2:=plot([[10,4],[8,4],[8,0],[10,0],[10,1],[9,1],[9,3],[10,3],[10,4 ]],thickness=3, color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "line3:=plot([[10.1,3.9],[10.5,3.9]],color=black,thickness=2):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "line4:=plot([[10.1,3.1],[1 0.5,3.1]],color=black,thickness=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "sound2:=display(line3,line4):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 45 "face2:=display(phone2,eye1,eye2,head2,hair2): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "b1:=circle([4.25,4.5],. 25,color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "b2:=cir cle([4.25,4.5],.5,color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "b3:=ellipse([3,7],3,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "b4:=ellipse([12,7],3,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 125 "basic1:=display(mouth2,face1,face2,mouth,sound1, sou nd2,l,b1, translate(b1,6.5,0), translate(b2,1,1),translate(b2,5.5,1),b 3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 205 "basic2:=display(tra nslate(mouth2,-9,0), translate(mouth,9,0),face1,face2, translate(rotat e(sound1,Pi/1),15,7), translate(sound2,-5.6,0),l,b1, translate(b1,6.5, 0),translate(b2,1,1), translate(b2,5.5,1),b4):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 47 "Hi1:=textplot([3,7,`Hi`], font=[HELVETICA,10]) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "f1:=display(basic1,Hi1 ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "Hi2:=textplot([12,7,` Hi`], font=[HELVETICA,10]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "f2:=display(basic2,Hi2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "t3:=textplot([3.2,7,`Amber said ...`], font=[HELVETICA,10]):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "f3:=display(basic1,t3):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "t4:=textplot([12.2,7,`Tom s aid ...`], font=[HELVETICA,10]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "f4:=display(basic2,t4):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "t5:=textplot([3.2,7,`Becca said ...`], font=[HELVETIC A,10]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "f5:=display(basi c1,t5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "t6:=textplot([12 .2,7,`Jason said ...`], font=[HELVETICA,10]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "f6:=display(basic2,t6):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "t7:=textplot([3.2,7,`Lucy said ...`], font=[HELV ETICA,10]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "f7:=display( basic1,t7):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "t8:=textplot ([12.2,7,`Megan said ...`], font=[HELVETICA,10]):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 23 "f8:=display(basic2,t8):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "display(f1,f2,f3,f4,f5,f6,f7,f8, insequence=true, axes=none, scal ing=constrained, view=[-.2..15.2,-.2..10.2]);" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }