{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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 261 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 265 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 267 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{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 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 4 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 2 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 } 1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE " " -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Title " -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 } 3 1 0 0 12 12 1 0 1 0 2 2 19 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 8 8 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 15 "Animate motion " }}{PARA 19 "" 0 "" {TEXT -1 31 "By Alex Quandt, Uni Greifswald " }}{PARA 0 "" 0 "" {TEXT -1 16 "We just want to " }{TEXT 256 7 "animate" }{TEXT -1 17 " the motion of a " }{TEXT 257 14 "point particle" }{TEXT -1 19 " a round a circle. " }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 17 "General set tings " }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 36 "Let us specify a number \+ of things : " }{MPLTEXT 1 0 1 " " }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 36 "Clear everything + general settings " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "restart; \nwith(plots): \nwith(plottools): " }} {PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been r edefined\n" }}{PARA 7 "" 1 "" {TEXT -1 43 "Warning, the name arrow has been redefined\n" }}}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 44 "Specify c ircle and generate circular motion " }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "r : " }{TEXT 258 7 "radius " }{TEXT -1 15 "of tha t circle " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "r:=10; " }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG\"#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 24 "npoints : number of " }{TEXT 259 16 "animation points " }{TEXT -1 1 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "npoints :=100; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(npointsG\"$+\"" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 260 18 "Generate points \n \n" }{TEXT -1 28 "x[],y[] : " }{TEXT 261 11 "coordin ates" }{TEXT -1 61 " of point particle \nallpos[] : array th at contains " }{TEXT 262 14 "all positions " }{TEXT -1 22 "of our poin t particle " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 158 "printlevel: =0; \nphi:=evalf(2*Pi/npoints);\nfor k from 0 to npoints do \n\n x[k ]:=r*cos(k*phi); \n y[k]:=r*sin(k*phi); \n\n allpos[k]:=[x[k],y[k] ]; \nend do; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+printlevelG\"\"! " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$phiG$\"+3`=$G'!#6" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 15 "Animate motion " }}{EXCHG {PARA 0 "" 0 " " {TEXT -1 1 " " }{TEXT 263 8 "Graphics" }{TEXT -1 11 " elements :" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 22 "mapplot \+ : " }{TEXT 264 18 "list of pointplots" }{TEXT -1 64 " for a ll particle positions\nstartpoint : pointplot of " }{TEXT 265 18 "starting position\n" }{TEXT -1 26 "mcirc : a \+ " }{TEXT 267 7 "circle " }{TEXT -1 41 "being surrounded by the moving \+ particle " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 322 "mapplot:=seq (pointplot(allpos[k],color=blue,symbol=circle),k=0..npoints):\nstartpo int:=pointplot(allpos[0],color=green,symbol=circle): \nmcirc:=circle([ 0,0],r,color=red):\n\nplotsetup(inline):\nA:=display(startpoint,axes=b oxed): \nB:=display(mapplot,insequence=true,axes=boxed):\nC:=display(m circ,axes=boxed): \ndisplay(A,B,C); \n" }}{PARA 13 "" 1 "" {GLPLOT2D 207 207 207 {PLOTDATA 2 "6$-%(ANIMATEG6aq7%-%'POINTSG6%7$$\"#5\"\"!$F- F--%'COLOURG6&%$RGBGF.F.$\"*++++\"!\")-%'SYMBOLG6#%'CIRCLEG-F(6%F*-F06 &F2F.F3F.F6-%'CURVESG6$7UF*7$$\"+8q9@**!\"*$\"+OBL`7FE7$$\"+6;$eo*FE$ \"+t))*o[#FE7$$\"+f[w(H*FE$\"+FbC\"o$FE7$$\"++o1j()FE$\"+Tn`<[FE7$$\"+ V*p,4)FE$\"+CD&y(eFE7$$\"+tio*G(FE$\"+g5ZXoFE7$$\"+'*)RUP'FE$\"+HC80xF E7$$\"+^zEe`FE$\"+a#zKW)FE7$$\"+=HzdUFE$\"+B0F[!*FE7$$\"+Q*p,4$FE$\"+l ^c5&*FE7$$\"+UJ\"Q(=FE$\"+3D(G#)*FE7$$\"+D>0zi!#5$\"+%Gn-)**FE7$$!+m>0 ziFgpFhp7$$!+YJ\"Q(=FE$\"+2D(G#)*FE7$$!+U*p,4$FE$\"+j^c5&*FE7$$!+8HzdU FE$\"+E0F[!*FE7$$!+YzEe`FE$\"+d#zKW)FE7$$!+$*)RUP'FE$\"+JC80xFE7$$!+$G 'o*G(FE$\"+]5ZXoFE7$$!+]*p,4)FE$\"+9D&y(eFE7$$!+0o1j()FE$\"+Kn`<[FE7$$ !+i[w(H*FE$\"+>bC\"o$FE7$$!+8;$eo*FE$\"+l))*o[#FE7$$!+9q9@**FE$\"+IBL` 7FE7$$FgpF-$!+:w1-T!#=7$$!+8q9@**FE$!+QBL`7FE7$$!+6;$eo*FE$!+t))*o[#FE 7$$!+f[w(H*FE$!+FbC\"o$FE7$$!+,o1j()FE$!+Sn`<[FE7$$!+Y*p,4)FE$!+?D&y(e FE7$$!+xio*G(FE$!+c5ZXoFE7$$!+())RUP'FE$!+PC80xFE7$$!+RzEe`FE$!+i#zKW) FE7$$!+1HzdUFE$!+H0F[!*FE7$$!+M*p,4$FE$!+m^c5&*FE7$$!+QJ\"Q(=FE$!+4D(G #)*FE7$$!+%)=0ziFgp$!+&Gn-)**FE7$$\"+2?0ziFgp$!+%Gn-)**FE7$$\"+]J\"Q(= FE$!+2D(G#)*FE7$$\"+Y*p,4$FE$!+i^c5&*FE7$$\"+0ziFgpF/F6F:F>7%-F(6%FBF/F6F:F>7%-F(6%7$F`q$\"+YJ \"Q(=FEF/F6F:F>7%-F(6%7$FI$\"+s))*o[#FEF/F6F:F>7%-F(6%7$Feq$\"+W*p,4$F EF/F6F:F>7%-F(6%FMF/F6F:F>7%-F(6%7$$\"+C0F[!*FEFeyF/F6F:F>7%-F(6%FRF/F 6F:F>7%-F(6%7$$\"+b#zKW)FEFjyF/F6F:F>7%-F(6%FWF/F6F:F>7%-F(6%7$$\"+FC8 0xFE$\"+)*)RUP'FEF/F6F:F>7%-F(6%FfnF/F6F:F>7%-F(6%7$$\"+f5ZXoFE$\"+vio *G(FEF/F6F:F>7%-F(6%7$$\"+(*)RUP'FE$\"+GC80xFEF/F6F:F>7%-F(6%7$$\"+AD& y(eFE$\"+W*p,4)FEF/F6F:F>7%-F(6%F`oF/F6F:F>7%-F(6%7$$\"+Vn`<[FE$\"+*zm Iw)FEF/F6F:F>7%-F(6%FeoF/F6F:F>7%-F(6%7$$\"+@bC\"o$FE$\"+h[w(H*FEF/F6F :F>7%-F(6%FjoF/F6F:F>7%-F(6%7$$\"+n))*o[#FE$\"+8;$eo*FEF/F6F:F>7%-F(6% F_pF/F6F:F>7%-F(6%7$$\"+KBL`7FEF[\\lF/F6F:F>7%-F(6%FdpF/F6F:F>7%-F(6%7 $$!+3Q.^?FhtF+F/F6F:F>7%-F(6%FjpF/F6F:F>7%-F(6%7$$!+OBL`7FEFCF/F6F:F>7 %-F(6%F]qF/F6F:F>7%-F(6%7$$!+r))*o[#FEFIF/F6F:F>7%-F(6%FbqF/F6F:F>7%-F (6%7$$!+DbC\"o$FE$\"+g[w(H*FEF/F6F:F>7%-F(6%7$$!+AHzdUFE$\"+A0F[!*FEF/ F6F:F>7%-F(6%7$$!+Zn`<[FE$\"+(zmIw)FEF/F6F:F>7%-F(6%7$$!+bzEe`FE$\"+_# zKW)FEF/F6F:F>7%-F(6%7$$!+FD&y(eFE$\"+T*p,4)FEF/F6F:F>7%-F(6%7$$!+,*RU P'FE$\"+DC80xFEF/F6F:F>7%-F(6%7$$!+i5ZXoFE$\"+sio*G(FEF/F6F:F>7%-F(6%7 $$!+wio*G(FE$\"+d5ZXoFEF/F6F:F>7%-F(6%7$F_zF\\oF/F6F:F>7%-F(6%7$$!+X*p ,4)FEFcalF/F6F:F>7%-F(6%7$F\\z$\"+\\zEe`FEF/F6F:F>7%-F(6%7$$!++o1j()FE FUF/F6F:F>7%-F(6%7$Fgy$\"+;HzdUFEF/F6F:F>7%-F(6%FesF/F6F:F>7%-F(6%7$$! +l^c5&*FE$\"+O*p,4$FEF/F6F:F>7%-F(6%FjsF/F6F:F>7%-F(6%7$$!+3D(G#)*FE$ \"+SJ\"Q(=FEF/F6F:F>7%-F(6%F_tF/F6F:F>7%-F(6%7$Fcx$\"+0>0ziFgpF/F6F:F> 7%-F(6%FdtF/F6F:F>7%-F(6%7$Fhx$!+()>0ziFgpF/F6F:F>7%-F(6%FitF/F6F:F>7% -F(6%7$F]y$!+[J\"Q(=FEF/F6F:F>7%-F(6%F^uF/F6F:F>7%-F(6%7$$!+j^c5&*FE$! +W*p,4$FEF/F6F:F>7%-F(6%FcuF/F6F:F>7%-F(6%7$$!+@0F[!*FE$!+CHzdUFEF/F6F :F>7%-F(6%7$$!+'zmIw)FE$!+[n`<[FEF/F6F:F>7%-F(6%7$$!+^#zKW)FE$!+czEe`F EF/F6F:F>7%-F(6%7$$!+S*p,4)FE$!+HD&y(eFEF/F6F:F>7%-F(6%7$$!+CC80xFE$!+ -*RUP'FEF/F6F:F>7%-F(6%7$$!+qio*G(FE$!+j5ZXoFEF/F6F:F>7%-F(6%7$FevFcvF /F6F:F>7%-F(6%7$$!+%*)RUP'FE$!+IC80xFEF/F6F:F>7%-F(6%7$F`vF^vF/F6F:F>7 %-F(6%7$$!+[zEe`FE$!+c#zKW)FEF/F6F:F>7%-F(6%7$$!+Rn`<[FEFiuF/F6F:F>7%- F(6%7$$!+:HzdUFE$!+D0F[!*FEF/F6F:F>7%-F(6%7$$!+7%-F(6%FfwF/F6F:F>7%-F(6%7$$!+j))*o[#FE$!+9;$eo*FEF/F6F:F>7%-F(6% F[xF/F6F:F>7%-F(6%7$$!+GBL`7FEF`tF/F6F:F>7%-F(6%F`xF/F6F:F>7%-F(6%7$$ \"+A95`hFhtFetF/F6F:F>7%-F(6%FexF/F6F:F>7%-F(6%7$$\"+SBL`7FEFjtF/F6F:F >7%-F(6%FjxF/F6F:F>7%-F(6%7$$\"+v))*o[#FE$!+5;$eo*FEF/F6F:F>7%-F(6%F_y F/F6F:F>7%-F(6%7$$\"+HbC\"o$FE$!+e[w(H*FEF/F6F:F>7%-F(6%7$$\"+EHzdUFE$ !+?0F[!*FEF/F6F:F>7%-F(6%7$$\"+]n`<[FE$!+&zmIw)FEF/F6F:F>7%-F(6%7$$\"+ ezEe`FE$!+]#zKW)FEF/F6F:F>7%-F(6%7$$\"+ID&y(eFE$!+Q*p,4)FEF/F6F:F>7%-F (6%7$$\"+/*RUP'FE$!+AC80xFEF/F6F:F>7%-F(6%7$$\"+l5ZXoFE$!+pio*G(FEF/F6 F:F>7%-F(6%7$$\"+zio*G(FE$!+a5ZXoFEF/F6F:F>7%-F(6%7$$\"+KC80xFEFbrF/F6 F:F>7%-F(6%7$$\"+Z*p,4)FE$!+>D&y(eFEF/F6F:F>7%-F(6%7$$\"+e#zKW)FEF]rF/ F6F:F>7%-F(6%7$$\"+-o1j()FE$!+Qn`<[FEF/F6F:F>7%-F(6%7$FjqFhqF/F6F:F>7% -F(6%F`[lF/F6F:F>7%-F(6%7$$\"+n^c5&*FE$!+L*p,4$FEF/F6F:F>7%-F(6%Fe[lF/ F6F:F>7%-F(6%7$$\"+4D(G#)*FE$!+OJ\"Q(=FEF/F6F:F>7%-F(6%Fj[lF/F6F:F>7%- F(6%7$$\"+&Gn-)**FE$!+k=0ziFgpF/F6F:F>7%-F(6%F_\\lF/F6F:F>-%*AXESSTYLE G6#%$BOXG" 1 2 0 1 10 0 2 9 1 2 2 1.000000 45.000000 45.000000 0 0 "Cu rve 1" "Curve 2" "Curve 3" }}}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG }} {MARK "3 2 1 0" 2 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }