{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 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {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 241 "bird:=[[15.3,3],[15.6,3.2], [15.9,3],[16.5,2.7],[16,2.4],[16,2.96],[16,2.4],[16.2,1.8],[16,1.2],[1 5.7,2.4],[16,1.2],[15.6,1.7],[15.3,2.3],[15.3,2.3],[16,1.2],[15.5,1.1] ,[16.2,.8],[15.5,.8],[15.4,1.1],[14.5,.8],[14.3,1.1],[14.8,1.3],[15.3, 3]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "eye:=[[15.4,2.7],[1 5.5,3],[15.7,2.8],[15.5,2.7],[15.4,2.7]]:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 33 "b1:=plot(\{bird,eye\},color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 260 "bird2:=[[15.3,3],[15.6,3.2],[15.9, 3],[16.5,2.7],[16,2.4],[16,2.96],[16,2.4],[16.2,1.8],[16,1.2],[16,1.2] ,[15.5,1.1],[16.2,.8],[15.5,.8],[15.4,1.1],[14.5,.8],[14.3,1.1],[14.8, 1.3],[15,1.76],[15.3,1.6],[15,1.76],[14.8,1.8],[14,2.8],[15,2.5],[15.3 ,2.3],[15.3,3]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "b2:=plo t(\{bird2,eye\},color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 251 "bird3:=[[15.3,3],[15.6,3.2],[15.9,3],[16.5,2.7],[16,2.4],[16,2. 96],[16,2.4],[16.2,1.8],[16.1,1.7],[15.7,2],[16.1,1.7],[16.8,1],[16,1] ,[15.6,1.1],[15.5,1.4],[15.6,1.1],[15.5,1.1],[16.2,.8],[15.5,.8],[15.4 ,1.1],[14.5,.8],[14.3,1.1],[14.8,1.3],[15.3,3]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "b3:=plot(\{bird3,eye\},color=black):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "bird4a:=translate(b2,1,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "bird5a:=translate(b3,2,2) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "bird6a:=translate(b2,3 ,3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "bird7a:=translate(b 3,4,4):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "bird8a:=translat e(b2,5,5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "bird9a:=trans late(b3,6,4):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "bird10a:=t ranslate(b2,7,3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "bird11 a:=translate(b3,8,2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "bi rd12a:=translate(b2,9,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "bird13a:=translate(b1,10,.5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "ground:=plot([[41,.5],[13,.5]], thickness=15, color=g reen):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f1:=display(\{b1, ground\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f2:=display( \{bird4a,ground\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f3:= display(\{bird5a,ground\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f4:=display(\{bird6a,ground\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f5:=display(\{bird7a,ground\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f6:=display(\{bird8a,ground\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f7:=display(\{bird9a,ground\}):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "f8:=display(\{bird10a,groun d\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "f9:=display(\{bird 11a,ground\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "f10:=disp lay(\{bird12a,ground\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "f11:=display(\{bird13a,ground\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "f12a:=translate(rotate(b1,-Pi/4,[15.5,2]),10,0):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "worm:=plot([[26,.5],[26,.7], [26.3,1],[27.3,.8],[27,.5]]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "f12:=display(ground,f12a,worm):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "f13a:=translate(rotate(f12a,-Pi/4,[15.5,2]),4,7):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "f13:=display(f13a,ground,wo rm):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f14a:=translate(b2,11,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f15a:=translate(b3,12,2): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f16a:=translate(b2,13,3 ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f17a:=translate(b3,14 ,4):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f18a:=translate(b2, 15,5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f19a:=translate(b 3,16,6):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f20a:=translate (b2,17,7):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f21a:=transla te(b3,18,8):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f14:=displa y(f14a,ground):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f15:=display(f15 a,ground):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f16:=display( f16a,ground):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f17:=displ ay(f17a,ground):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f18:=di splay(f18a,ground):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f19: =display(f19a,ground):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f 20:=display(f20a,ground):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f21:=display(f21a,ground):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f22a:=translate(b2,19,9):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f23a:=translate(b3,20,10):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f24a:=translate(b2,21,11):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 26 "f25a:=translate(b3,22,12):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f26a:=translate(b2,23,13):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f22:=display(f22a,ground):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f23:=display(f23a,ground):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f24:=display(f24a,ground):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f25:=display(f25a,ground) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f26:=display(f26a,grou nd):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 142 "display([f1,f2,f3, f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f12,f11,f14,f15,f16,f17,f18,f19,f20, f21], insequence=true, scaling=constrained,axes=none);" }}}{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 }