{VERSION 4 0 "APPLE_PPC_MAC" "4.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" 0 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 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }}
{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 13 "R:=proc(x
,y);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "d1:=\{diff(u(t),t)=v(t), di
ff(v(t),t)=-(x+y*cos(t))*u(t), u(0)=1, v(0)=0\};" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 78 "a:=dsolve(d1,\{u(t),v(t)\}, type=numeric, method=dver
k78, output=listprocedure);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "d2:=
\{diff(u(t),t)=v(t), diff(v(t),t)=-(x+y*cos(t))*u(t), u(0)=0, v(0)=1\}
;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "b:=dsolve(d2,\{u(t),v(t)\}, ty
pe=numeric, method=dverk78, output=listprocedure);" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 48 "T:=subs(a,u(t))+subs(b,v(t)); P:=evalf(T(2*Pi));" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc;" }}{PARA 7 "" 1 "" {TEXT 
-1 60 "Warning, `d1` is implicitly declared local to procedure `R`\n" 
}}{PARA 7 "" 1 "" {TEXT -1 59 "Warning, `a` is implicitly declared loc
al to procedure `R`\n" }}{PARA 7 "" 1 "" {TEXT -1 60 "Warning, `d2` is
 implicitly declared local to procedure `R`\n" }}{PARA 7 "" 1 "" 
{TEXT -1 59 "Warning, `b` is implicitly declared local to procedure `R
`\n" }}{PARA 7 "" 1 "" {TEXT -1 59 "Warning, `T` is implicitly declare
d local to procedure `R`\n" }}{PARA 7 "" 1 "" {TEXT -1 59 "Warning, `P
` is implicitly declared local to procedure `R`\n" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%\"RGR6$%\"xG%\"yG6(%#d1G%\"aG%#d2G%\"bG%\"TG%\"PG6\"F
0C(>8$<&/-%%diffG6$-%\"uG6#%\"tGF<-%\"vGF;/-F76$F=F<,$*&,&9$\"\"\"*&9%
FF-%$cosGF;FFFFFFF9FF!\"\"/-F:6#\"\"!FF/-F>FNFO>8%-%'dsolveG6'F3<$F9F=
/%%typeG%(numericG/%'methodG%(dverk78G/%'outputG%.listprocedureG>8&<&F
5F?/FMFO/FQFF>8'-FU6'F\\oFWFXFenFhn>8(,&-%%subsG6$FSF9FF-Fho6$FaoF=FF>
8)-%&evalfG6#-Feo6#,$%#PiG\"\"#F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "contou
rplot(R,-0.5..10,-2..2, filled=true, contours=[-2,2], grid=[20,20],col
oring=[yellow,green,red]);" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning, co
mputation interrupted\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "3 0 0" 96 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }