{VERSION 6 1 "Linux" "6.1" } {USTYLETAB {PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "Dash Item" -1 16 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 -1 3 3 1 0 1 0 2 2 -1 3 }{PSTYLE "Heading 4" -1 20 1 {CSTYLE "" -1 -1 "MS Serif" 1 12 0 0 0 0 1 0 0 2 2 2 0 0 0 1 }1 1 0 -1 0 0 1 0 1 0 2 2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 " MS Serif" 1 14 0 0 0 0 1 1 0 2 2 2 0 0 0 1 }1 1 0 -1 0 0 1 0 1 0 2 2 -1 1 }{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "A uthor" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }3 1 0 -1 8 8 1 0 1 0 2 2 -1 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "MS Serif" 1 16 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }1 1 0 -1 8 2 1 0 1 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "MS Serif" 1 18 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }1 1 0 -1 8 4 1 0 1 0 2 2 -1 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "Line Printed Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 0 0 1 1 2 2 2 0 0 0 1 }3 1 0 -1 12 12 1 0 1 0 2 2 -1 1 }{PSTYLE "Map le Output" -1 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 -1 3 3 1 0 1 0 2 2 -1 5 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Ti mes" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 -1 3 3 1 0 1 0 2 2 -1 2 } {CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Times" 1 12 255 0 0 1 0 0 0 2 1 2 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "MS Serif" 1 12 0 128 128 1 0 0 1 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 1 12 0 0 0 1 0 0 0 2 2 2 0 0 0 1 } {CSTYLE "Dictionary Hyperlink" -1 45 "MS Serif" 1 12 147 0 15 1 0 0 1 2 2 2 0 0 0 1 }{CSTYLE "Maple Input Placeholder" -1 201 "Courier" 1 12 200 0 200 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }{CSTYLE "Page Number" -1 33 "Times " 1 10 0 0 0 0 0 0 2 2 2 2 0 0 0 1 }{PSTYLE "_pstyle1" -1 200 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "_cstyle1" -1 202 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{PSTYLE "_pstyle2" -1 201 1 {CSTYLE "" -1 -1 "Couri er" 1 12 255 0 0 1 0 1 0 2 1 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 } {CSTYLE "_cstyle2" -1 203 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }{PSTYLE "_pstyle3" -1 202 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{CSTYLE "_ cstyle3" -1 204 "Courier" 1 12 0 0 255 1 0 0 0 2 2 2 0 0 0 1 }{PSTYLE "_pstyle4" -1 203 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 200 "" 0 "" {TEXT 202 28 "Animation of exp( i ome ga t)" }}{PARA 201 "> " 0 "" {MPLTEXT 1 203 14 "angle:=proc(t)" } {MPLTEXT 1 203 11 "\n local r:" }{MPLTEXT 1 203 10 "\n r:=0.2;" } {MPLTEXT 1 203 29 "\n npts:=200*t/evalf(2*Pi)+1;" }{MPLTEXT 1 203 21 "\n dt:=evalf(t/npts):" }{MPLTEXT 1 203 87 "\n plot([[0,0],seq([r*co s(i*dt),r*sin(i*dt)],i=0..npts),[0,0]],color=blue,filled=true);" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 10 "\nend proc:" }{MPLTEXT 1 203 15 "\nframe:=proc(t)" }{MPLTEXT 1 203 14 "\n local r,pi;" }{MPLTEXT 1 203 8 "\n r:=1;" }{MPLTEXT 1 203 17 "\n pi:=evalf(Pi):" }{MPLTEXT 1 203 41 "\n while (t>=2*pi) do t:=t-2*pi; end do:" }{MPLTEXT 1 203 47 "\n circ:=plottools[circle]([0,0],r,color=blue);" }{MPLTEXT 1 203 76 "\n spoke:=plottools[line]([0,0],[r*cos(t),r*sin(t)],color=blue,th ickness=3);" }{MPLTEXT 1 203 69 "\n vert:=plottools[line]([r*cos(t),0 ],[r*cos(t),r*sin(t)],color=red);" }{MPLTEXT 1 203 62 "\n dot1:=plott ools[disk]([r*cos(t),r*sin(t)],r/20,color=blue);" }{MPLTEXT 1 203 53 " \n dot:=plottools[disk]([r*cos(t),0],r/20,color=red);" }{MPLTEXT 1 203 60 "\n arc:=plottools[arc]([0,0],r,0..t,color=blue,thickness=3);" }{MPLTEXT 1 203 17 "\n ang:=angle(t):" }{MPLTEXT 1 203 52 "\n plots [display](dot,dot1,ang,arc,circ,spoke,vert);" }{MPLTEXT 1 203 10 "\nen d proc:" }{MPLTEXT 1 203 0 "" }}{PARA 202 "" 1 "" {TEXT 204 65 "Warnin g, `npts` is implicitly declared local to procedure `angle`" }{TEXT 204 0 "" }}{PARA 202 "" 1 "" {TEXT 204 63 "Warning, `dt` is implicitly declared local to procedure `angle`" }{TEXT 204 0 "" }}{PARA 202 "" 1 "" {TEXT 204 65 "Warning, `circ` is implicitly declared local to pro cedure `frame`" }{TEXT 204 0 "" }}{PARA 202 "" 1 "" {TEXT 204 66 "Warn ing, `spoke` is implicitly declared local to procedure `frame`" } {TEXT 204 0 "" }}{PARA 202 "" 1 "" {TEXT 204 65 "Warning, `vert` is im plicitly declared local to procedure `frame`" }{TEXT 204 0 "" }}{PARA 202 "" 1 "" {TEXT 204 65 "Warning, `dot1` is implicitly declared local to procedure `frame`" }{TEXT 204 0 "" }}{PARA 202 "" 1 "" {TEXT 204 64 "Warning, `dot` is implicitly declared local to procedure `frame`" }{TEXT 204 0 "" }}{PARA 202 "" 1 "" {TEXT 204 64 "Warning, `arc` is im plicitly declared local to procedure `frame`" }{TEXT 204 0 "" }}{PARA 202 "" 1 "" {TEXT 204 64 "Warning, `ang` is implicitly declared local \+ to procedure `frame`" }{TEXT 204 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 12 "nframes:=60:" }{MPLTEXT 1 203 25 "\ndt:=evalf(2*Pi/ nframes):" }{MPLTEXT 1 203 85 "\nplots[display](seq(frame(i*dt),i=0..n frames-1),insequence=true,scaling=constrained);" }}}{EXCHG {PARA 201 " > " 0 "" {MPLTEXT 1 203 0 "" }}}{PARA 203 "" 0 "" {TEXT -1 0 "" }}} {MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }