{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 }{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 }
{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 "Text Output" -1 2 
1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 
0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 
"" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 
}{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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart:with(plots):
" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has be
en redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "x:=t->t;y
:=t->sin(t/3.5+cos(t)/2.5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xGj
+6#%\"tG6\"6$%)operatorG%&arrowGF(9$F(F(F(6#\"\"!" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"yGj+6#%\"tG6\"6$%)operatorG%&arrowGF(-%$sinG6#,&*&9
$\"\"\"$\"#N!\"\"F5F2*&-%$cosG6#F1F2$\"#DF5F5F2F(F(F(6#\"\"!" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "plot([x(t),y(t),t=0..16],x=-
1..16,y=-5..5);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "dx:=D(x)
;dy:=D(y);r:=t->sqrt(dx(t)^2+dy(t)^2);r(t);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#dxG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#dyGj
+6#%\"tG6\"6$%)operatorG%&arrowGF(*&-%$cosG6#,&*&$\"+dG9dG!#5\"\"\"9$F
5F5*&$\"+++++SF4F5-F.6#F6F5F5F5,&F2F5*&$\"+++++SF4F5-%$sinGF;F5!\"\"F5
F(F(F(6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rGj+6#%\"tG6\"6$%
)operatorG%&arrowGF(-%%sqrtG6#,&*$)-%#dxG6#9$\"\"#\"\"\"F7*$)-%#dyGF4F
6F7F7F(F(F(6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$,&\"\"\"F%*&)-
%$cosG6#,&*&$\"+dG9dG!#5F%%\"tGF%F%*&$\"+++++SF/F%-F)6#F0F%F%\"\"#F%),
&F-F%*&$\"+++++SF/F%-%$sinGF5F%!\"\"F6F%F%#F%F6" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 58 "x2:=t->x(t)+dx(t)/r(t);x2(t);y2:=t->y(t)+dy(t)
/r(t);y2(t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2Gj+6#%\"tG6\"6$%)
operatorG%&arrowGF(,&-%\"xG6#9$\"\"\"*&-%#dxGF/F1-%\"rGF/!\"\"F1F(F(F(
6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&%\"tG\"\"\"*&F%F%*$,&F%F%
*&)-%$cosG6#,&*&$\"+dG9dG!#5F%F$F%F%*&$\"+++++SF2F%-F,6#F$F%F%\"\"#F%)
,&F0F%*&$\"+++++SF2F%-%$sinGF7F%!\"\"F8F%F%#F%F8F@F%" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%#y2Gj+6#%\"tG6\"6$%)operatorG%&arrowGF(,&-%\"yG6#9
$\"\"\"*&-%#dyGF/F1-%\"rGF/!\"\"F1F(F(F(6#\"\"!" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,&-%$sinG6#,&*&$\"+dG9dG!#5\"\"\"%\"tGF,F,*&$\"+++++SF+
F,-%$cosG6#F-F,F,F,*(-F2F&F,,&F)F,*&$\"+++++SF+F,-F%F3F,!\"\"F,,&F,F,*
&)F5\"\"#F,)F6F?F,F,#F;F?F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
140 "plot([[x(t),y(t),t=0..16],[x2(t),y2(t),t=-0.75..16]],x=-1..16,y=-
5..5, scaling=constrained,color=[blue,red],axes=none,thickness=[1,1]);
P:=%:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 246 "animate( plot, [[
[x(r)+0.05*cos(t),y(r)+0.05*sin(t),t=0..2*Pi], [x2(r)+0.05*cos(t),y2(r
)+0.05*sin(t),t=0..2*Pi], [t*x2(r)+x(r)*(1-t),t*y2(r)+y(r)*(1-t),t=0..
1]], color=[black,black,black]], r=0..16, scaling=constrained, frames=
101,background=P );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
}{MARK "0 0 0" 20 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }