{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 }
{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 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 
0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "G := S*w0^2*b^2*(d^2+0.4*r^2)/(4*L*
m*d);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"GG,$*0%\"SG\"\"\"%#w0G\"
\"#%\"bGF*,&*$)%\"dGF*F(F(*&$\"\"%!\"\"F()%\"rGF*F(F(F(%\"LGF3%\"mGF3F
/F3#F(F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "dS:=diff(G, S);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#dSG,$*.%#w0G\"\"#%\"bGF(,&*$)%
\"dGF(\"\"\"F.*&$\"\"%!\"\"F.)%\"rGF(F.F.F.%\"LGF2%\"mGF2F-F2#F.F1" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "db:=diff(G, b);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#dbG,$*0%\"SG\"\"\"%#w0G\"\"#%\"bGF(,&*$)%
\"dGF*F(F(*&$\"\"%!\"\"F()%\"rGF*F(F(F(%\"LGF3%\"mGF3F/F3#F(F*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "dd:=diff(G, d);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%#ddG,&*,%\"SG\"\"\"%#w0G\"\"#%\"bGF*%\"LG!\"
\"%\"mGF-#F(F**&#F(\"\"%F(*0F'F(F)F*F+F*,&*$)%\"dGF*F(F(*&$F2F-F()%\"r
GF*F(F(F(F,F-F.F-F7!\"#F(F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "dr:=diff(G, r);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#drG,$*0%\"SG
\"\"\"%#w0G\"\"#%\"bGF*%\"rGF(%\"LG!\"\"%\"mGF.%\"dGF.$\"+++++?!#5" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "dw0:=diff(G, w0);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$dw0G,$*0%\"SG\"\"\"%#w0GF(%\"bG\"\"#,&*$)
%\"dGF+F(F(*&$\"\"%!\"\"F()%\"rGF+F(F(F(%\"LGF3%\"mGF3F/F3#F(F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "dm:=diff(G, m);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%#dmG,$*0%\"SG\"\"\"%#w0G\"\"#%\"bGF*,&*$)%\"d
GF*F(F(*&$\"\"%!\"\"F()%\"rGF*F(F(F(%\"LGF3%\"mG!\"#F/F3#F3F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "dL:=diff(G, L);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%#dLG,$*0%\"SG\"\"\"%#w0G\"\"#%\"bGF*,&*$)%\"d
GF*F(F(*&$\"\"%!\"\"F()%\"rGF*F(F(F(%\"LG!\"#%\"mGF3F/F3#F3F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "dS+db+dd+dr+dw+dm+dL;" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#,2*.%#w0G\"\"#%\"bGF&,&*$)%\"dGF&\"\"
\"F,*&$\"\"%!\"\"F,)%\"rGF&F,F,F,%\"LGF0%\"mGF0F+F0#F,F/*2#F,F&F,%\"SG
F,F%F&F'F,F(F,F3F0F4F0F+F0F,*.F7F,F8F,F%F&F'F&F3F0F4F0F,*&#F,F/F,*0F8F
,F%F&F'F&F(F,F3F0F4F0F+!\"#F,F0*2$\"+++++?!#5F,F8F,F%F&F'F&F2F,F3F0F4F
0F+F0F,%#dwGF,*&#F,F/F,*0F8F,F%F&F'F&F(F,F3F0F4F=F+F0F,F0*&#F,F/F,*0F8
F,F%F&F'F&F(F,F3F=F4F0F+F0F,F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 14 "dG := sqrt(%);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#dGG*$-%%s
qrtG6#,2*.%#w0G\"\"#%\"bGF,,&*$)%\"dGF,\"\"\"F2*&$\"\"%!\"\"F2)%\"rGF,
F2F2F2%\"LGF6%\"mGF6F1F6#F2F5*2#F2F,F2%\"SGF2F+F,F-F2F.F2F9F6F:F6F1F6F
2*.F=F2F>F2F+F,F-F,F9F6F:F6F2*&#F2F5F2*0F>F2F+F,F-F,F.F2F9F6F:F6F1!\"#
F2F6*2$\"+++++?!#5F2F>F2F+F,F-F,F8F2F9F6F:F6F1F6F2%#dwGF2*&#F2F5F2*0F>
F2F+F,F-F,F.F2F9F6F:FCF1F6F2F6*&#F2F5F2*0F>F2F+F,F-F,F.F2F9FCF:F6F1F6F
2F6F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "10 0 0
" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }