{VERSION 4 0 "IBM INTEL NT" "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 "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 "f:=m->a/(1+K*m^6.9);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6#%\"mG6\"6$%)operatorG%&ar
rowGF(*&%\"aG\"\"\",&F.F.*&%\"KGF.)9$$\"#p!\"\"F.F.F6F(F(F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a:=15600;K:=0.0382;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG\"&+c\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"KG$\"$#Q!\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 28 "fp:=unapply(diff(f(m),m),m);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%#fpGR6#%\"mG6\"6$%)operatorG%&arrowGF(,$*&*$)9$$\"#f!\"\"\"\"\"F4*
$),&F4F4*&$\"$#Q!\"%F4)F0$\"#pF3F4F4\"\"#F4F3$!*+[=6%!\"&F(F(F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "fp(2.63);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$!+&)QUq7!\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 17 "0.00372*fp(2.63);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$!+_o(fs%!
\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "0.00372*fp(3.0);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$!+)*GZO<!\"*" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 18 "1.5/0.004;4/0.004;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#$\"++++]P!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+++++5!\"'" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 51 "R:=w->a*b-w^2+c*cos(w*r);\nY:=w->(a+b)*w-
c*sin(w*r);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"RGR6#%\"wG6\"6$%)op
eratorG%&arrowGF(,(*&%\"aG\"\"\"%\"bGF/F/*$)9$\"\"#F/!\"\"*&%\"cGF/-%$
cosG6#*&F3F/%\"rGF/F/F/F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"Y
GR6#%\"wG6\"6$%)operatorG%&arrowGF(,&*&,&%\"aG\"\"\"%\"bGF0F09$F0F0*&%
\"cGF0-%$sinG6#*&F2F0%\"rGF0F0!\"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 23 "a:=6.65;b:=0.08;r:=4.5;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"aG$\"$l'!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"bG$\"\")!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG$\"#X!\"\"" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "R(w);Y(w);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#,($\"%?`!\"%\"\"\"*$)%\"wG\"\"#F'!\"\"*&%\"cGF'-%$
cosG6#,$F*$\"#XF,F'F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&%\"wG$\"$t'
!\"#*&%\"cG\"\"\"-%$sinG6#,$F$$\"#X!\"\"F*F1" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 42 "fsolve(\{R(w),Y(w)\},\{c,w\},\{c=0..4,w=0..1\});
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/%\"cG$\"+\"=q2g#!\"*/%\"wG$\"+h
Zl@Q!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "2*Pi/0.382;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,$%#PiG$\"+%4-cB&!\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(%);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"+3H\"[k\"!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}}{MARK "15 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }