{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 Plot" -1 13 1 {CSTYLE "" -1 -1 "
Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }
}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "#problem 3a: d=90m, \+
h=13m, w=7500kN/90" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "resta
rt;e1:=ax+bx; #RHS sum forces in x-dir" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%#e1G,&%#axG\"\"\"%#bxGF'" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 87 "e2:=ay+bby=w*d/2;e3:=bby*d/2-bx*h-w*d^2/8; #RHS sum f
orces in y-dir and moments about A" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%#e2G/,&%#ayG\"\"\"%$bbyGF(,$*(\"\"#!\"\"%\"wGF(%\"dGF(F(" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#e3G,(*(\"\"#!\"\"%$bbyG\"\"\"%\"dGF*F**&%
#bxGF*%\"hGF*F(*(\"\")F(%\"wGF*F+F'F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 103 "e4:=cx-bx;e5:=cy-bby=w*d/2;e6:=cy*d/2+cx*h-w*d^2/8;#
RHS sum forces in x-dir, y-dir, and moments about B" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%#e4G,&%#cxG\"\"\"%#bxG!\"\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#e5G/,&%#cyG\"\"\"%$bbyG!\"\",$*(\"\"#F*%\"wGF(%\"dGF
(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#e6G,(*(\"\"#!\"\"%#cyG\"\"\"
%\"dGF*F**&%#cxGF*%\"hGF*F**(\"\")F(%\"wGF*F+F'F(" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 80 "reactions:=solve(\{e1,e2,e3,e4,e5,e6\},\{ax,
bx,ay,bby,cx,cy\}); #solve for reactions" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%*reactionsG<(/%$bbyG\"\"!/%#cyG,$*(\"\"#!\"\"%\"wG\"\"\"%\"dGF
0F0/%#cxG,$**\"\")F.%\"hGF.F/F0F1F-F./%#ayGF+/%#bxGF4/%#axG,$**F6F.F7F
.F/F0F1F-F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "evalf(subs(
\{d=90,h=13,w=7500/90\},reactions));assign(reactions);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#<(/%$bbyG$\"\"!F'/%#cyG$\"%]PF'/%#cxG$!+:YQ!\\'!\"
'/%#ayGF*/%#bxGF./%#axG$\"+:YQ!\\'F0" }}}{PARA 0 "" 0 "" {TEXT -1 0 "
" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "fx:=n*cos(t)-v*sin(t)+ax
;fy:=n*sin(t)+v*cos(t)+ay-w*x; #sum forces on arch from 0 to x" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#fxG,(*&%\"nG\"\"\"-%$cosG6#%\"tGF(F
(*&%\"vGF(-%$sinGF+F(!\"\"**\"\")F1%\"hGF1%\"wGF(%\"dG\"\"#F(" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#fyG,**&%\"nG\"\"\"-%$sinG6#%\"tGF(F
(*&%\"vGF(-%$cosGF+F(F(*(\"\"#!\"\"%\"wGF(%\"dGF(F(*&F4F(%\"xGF(F3" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "nvsols:=solve(\{fx,fy\},\{n
,v\}); #solve for axial force and shear as a funct of theta (t)" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'nvsolsG<$/%\"vG,$*&#\"\"\"\"\")F+*(
%\"wGF+,(**\"\"%F+-%$cosG6#%\"tGF+%\"hGF+%\"dGF+!\"\"**F,F+F2F+F6F+%\"
xGF+F+*&)F7\"\"#F+-%$sinGF4F+F+F+F6F8F+F+/%\"nG,$*&#F+F,F+*(F.F+,(**F1
F+F7F+F6F+F>F+F+**F,F+F:F+F6F+F>F+F8*&F2F+F<F+F+F+F6F8F+F8" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "assign(nvsols);" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 59 "m:=ay*x-w*x^2/2-ax*y; #internal moment (tak
en about cut \011x)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mG,(**\"\"#
!\"\"%\"wG\"\"\"%\"dGF*%\"xGF*F**(F'F(F)F*F,F'F(*,\"\")F(%\"hGF(F)F*F+
F'%\"yGF*F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "t:=arctan((d
/2-x)/(y+r-h));y:=sqrt(r^2-(x-d/2)^2)-r+h;r:=d^2/h/8+h/2;" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"tG-%'arctanG6#*&,&*&\"\"#!\"\"%\"dG\"\"\"F.
%\"xGF,F.,(%\"yGF.%\"rGF.%\"hGF,F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%\"yG,(*&\"\"#!\"\",**&\"\"%\"\"\")%\"rGF'F,F,*&F+F,)%\"xGF'F,F(*(F+F
,F1F,%\"dGF,F,*$)F3F'F,F(#F,F'F,F.F(%\"hGF," }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"rG,&*(\"\")!\"\"%\"dG\"\"#%\"hGF(\"\"\"*&F*F(F+F,F,
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "h:=13;d:=90;w:=7500/90;
 #load in kN/m" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG\"#8" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"dG\"#!*" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"wG#\"$]#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "pl
ot(n,x=0..d/2,labels=[\"x (m)\",\"N (kN)\"]);plot(v,x=0..d/2,labels=[
\"x (m)\",\"V (kN)\"]);plot(m,x=0..d/2,labels=[\"x (m)\",\"M (kN-m)\"]
);" }}{PARA 13 "" 1 "" {GLPLOT2D 518 518 518 {PLOTDATA 2 "6%-%'CURVESG
6$7S7$$\"\"!F)$!3!H3c#o1F!\\(!#97$$\"3-*****\\P>(3)*!#=$!39hga.C)3X(F,
7$$\"3)***\\ilLKM=!#<$!3S\"3\\Gi1qT(F,7$$\"31++Dc(=Tz#F6$!3%z6?e?z$ztF
,7$$\"3]++v$Hw-w$F6$!3SDheRQ.UtF,7$$\"3\\**\\7`=%=s%F6$!3e`fL?UU0tF,7$
$\"3'***\\i:iL8cF6$!3Y(frXe.?F(F,7$$\"3V**\\i!*pUOlF6$!38lt3t\"\\zB(F,
7$$\"3m**\\i!z)3\"\\(F6$!3]&)\\K;>M.sF,7$$\"32+]7y*)oU%)F6$!3/$)*ory'[
prF,7$$\"3p++]Pn_@%*F6$!3SnJsVDNNrF,7$$\"30+](ovo$G5!#;$!3OEz%>e$)e5(F
,7$$\"3,++DYwUD6F^o$!3exUhU^RtqF,7$$\"3'****\\(o])GA\"F^o$!3H!)p_&HB:/
(F,7$$\"38++v`L!oJ\"F^o$!3S$oFnzO:,(F,7$$\"3$**\\iS:!4-9F^o$!3/;S(R>Q
\\)pF,7$$\"36++v3W].:F^o$!3CyEpK$3T&pF,7$$\"33+++&e:%*e\"F^o$!3M:6m'=#
oGpF,7$$\"3%)*\\ilq]$*o\"F^o$!3-%)3$Gt;***oF,7$$\"3y****\\A-\"yx\"F^o$
!3_6\\2#o$>voF,7$$\"3%**\\i:Lk[(=F^o$!3mvia[$z)[oF,7$$\"3'**\\(o%z#Gn>
F^o$!3O9\"*y[7iCoF,7$$\"3=+]il<rj?F^o$!3?^N-dF:+oF,7$$\"3I+D\"GmjA:#F^
o$!3yt&zQw\\%ynF,7$$\"3#***\\(o%)yxC#F^o$!3]'4GDRsev'F,7$$\"3))*\\i!zA
*pM#F^o$!3Ht`bS^MLnF,7$$\"3!)*\\PM'yNLCF^o$!3pg=?%[4Xr'F,7$$\"30+]ig]j
EDF^o$!35x)GW[$)\\p'F,7$$\"3t****\\K&**Hi#F^o$!3wN>%4\")4dn'F,7$$\"3y*
*\\7oLF<FF^o$!3)*)=@#)=Xxl'F,7$$\"3)**\\i::)[3GF^o$!3-Gbm6&37k'F,7$$\"
3\"***\\(ohm(4HF^o$!3'*4f#G&z#Qi'F,7$$\"3')****\\A)p2+$F^o$!319&H7j'44
mF,7$$\"3%****\\(o^$z4$F^o$!3u>`.T\"*H%f'F,7$$\"3!)*\\iST\")f=$F^o$!3'
R0cufD<e'F,7$$\"3=++D;#RAG$F^o$!3%GFU*HE*)olF,7$$\"3'**\\ilI5GP$F^o$!3
9%>(e^GpdlF,7$$\"3?+D\"G>$[nMF^o$!3-U2&=m'*oa'F,7$$\"3o***\\PCV+c$F^o$
!3;:kz>\\CPlF,7$$\"31+D1R]%pl$F^o$!3sd-7&*45GlF,7$$\"3;+++&)HF]PF^o$!3
33m/LhA?lF,7$$\"3K+]P*G9d%QF^o$!3o3<ZU778lF,7$$\"3E+Dc\"Hl.%RF^o$!3fZ*
3qaCq]'F,7$$\"3[++]K(Rt-%F^o$!3Hk!ehbdA]'F,7$$\"3/+](oDAq7%F^o$!3Csyd&
ezx\\'F,7$$\"34+++&\\zh@%F^o$!3_zlP%[nY\\'F,7$$\"3P+Dc1(R7J%F^o$!3+Rk)
zDzA\\'F,7$$\"3B+vVeWA-WF^o$!3k$zR&4I*3\\'F,7$$\"#XF)$!3C:YQ:YQ!\\'F,-
%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q&x~(m)6\"Q'N~(kN)Fe[l-
%%VIEWG6$;F(Ffz%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}{PARA 13 "" 1 "" {GLPLOT2D 518 518 518 
{PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"\"!F)$\"3EZ`H3(f&))G!#:7$$\"3-*****
\\P>(3)*!#=$\"3qvzCXN'3c#F,7$$\"3)***\\ilLKM=!#<$\"3e:v?&e5<H#F,7$$\"3
1++Dc(=Tz#F6$\"3i-M$))**eh+#F,7$$\"3]++v$Hw-w$F6$\"3$p8(**elSO<F,7$$\"
3\\**\\7`=%=s%F6$\"3)4ENT%)G\\[\"F,7$$\"3'***\\i:iL8cF6$\"31#y^:(4Rm7F
,7$$\"3V**\\i!*pUOlF6$\"33/:)GF9W0\"F,7$$\"3m**\\i!z)3\"\\(F6$\"3mX'y/
)\\q*\\)!#;7$$\"32+]7y*)oU%)F6$\"3r@wN+^71mFW7$$\"3p++]Pn_@%*F6$\"37\"
)=C5L@.[FW7$$\"30+](ovo$G5FW$\"3h/a%*RmfKLFW7$$\"3,++DYwUD6FW$\"3dZ#*3
>r(Q!=FW7$$\"3'****\\(o])GA\"FW$\"3!ylmh6<=*RF67$$\"38++v`L!oJ\"FW$!3'
e=s&)[!*eN)F67$$\"3$**\\iS:!4-9FW$!3i\"fLm9U%f=FW7$$\"36++v3W].:FW$!35
va1)412'HFW7$$\"33+++&e:%*e\"FW$!3#)[Qis#*\\)z$FW7$$\"3%)*\\ilq]$*o\"F
W$!3OCqIdbgnYFW7$$\"3y****\\A-\"yx\"FW$!3SKrsdP#fM&FW7$$\"3%**\\i:Lk[(
=FW$!3#z'p`o=%e*fFW7$$\"3'**\\(o%z#Gn>FW$!3r4/TG3rElFW7$$\"3=+]il<rj?F
W$!3'y-\"43v)H*pFW7$$\"3I+D\"GmjA:#FW$!3o)G/.(zoXtFW7$$\"3#***\\(o%)yx
C#FW$!3_(3IGrg'[wFW7$$\"3))*\\i!zA*pM#FW$!3)*)z#3M\\7#)yFW7$$\"3!)*\\P
M'yNLCFW$!3Lq&e)Gk5@!)FW7$$\"30+]ig]jEDFW$!3#[Pvp`_s5)FW7$$\"3t****\\K
&**Hi#FW$!3TRf%fK<*H\")FW7$$\"3y**\\7oLF<FFW$!3Eo&)=z(o-4)FW7$$\"3)**
\\i::)[3GFW$!3_Vt[E`&o*zFW7$$\"3\"***\\(ohm(4HFW$!3/(yvH,ZL$yFW7$$\"3'
)****\\A)p2+$FW$!3fl[Jd0'fj(FW7$$\"3%****\\(o^$z4$FW$!3Ar^e%e\\eP(FW7$
$\"3!)*\\iST\")f=$FW$!3)p.dqAo*)4(FW7$$\"3=++D;#RAG$FW$!3'Ry5Tx\"eanFW
7$$\"3'**\\ilI5GP$FW$!3;\"e'4l_m$R'FW7$$\"3?+D\"G>$[nMFW$!3Mw1$3?=7)fF
W7$$\"3o***\\PCV+c$FW$!3S-#)4hB9YbFW7$$\"31+D1R]%pl$FW$!35\\tK&>%4g]FW
7$$\"3;+++&)HF]PFW$!3#Q.bSZPac%FW7$$\"3K+]P*G9d%QFW$!3K*y*\\qCtNSFW7$$
\"3E+Dc\"Hl.%RFW$!3#)QH*3pM'*[$FW7$$\"3[++]K(Rt-%FW$!3KsGS^\"z@(HFW7$$
\"3/+](oDAq7%FW$!3m[oZ%pwPO#FW7$$\"34+++&\\zh@%FW$!3W?fd(3o%3=FW7$$\"3
P+Dc1(R7J%FW$!3\\G2#eX?x?\"FW7$$\"3B+vVeWA-WFW$!3;I5+dLwqiF67$$\"#XF)F
(-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q&x~(m)6\"Q'V~(kN)Fc[
l-%%VIEWG6$;F(Ffz%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}{PARA 13 "" 1 "" {GLPLOT2D 518 
518 518 {PLOTDATA 2 "6%-%'CURVESG6$7fn7$$\"\"!F)$!3tSnM\"4m2#e!#G7$$\"
3^****\\(ofV!\\!#=$!3\"y5!\\c9sA;!#:7$$\"3-*****\\P>(3)*F0$!3kGTG3H=WJ
F37$$\"3%**\\i:l(f29!#<$!3mU>QLIc)Q%F37$$\"3)***\\ilLKM=F<$!3uv(H$etch
bF37$$\"3C+v$41@UJ#F<$!3cW^FlyQ)z'F37$$\"31++Dc(=Tz#F<$!3yiBt66;^zF37$
$\"31+++Dv>xKF<$!3*3\"[Wc<))H!*F37$$\"3]++v$Hw-w$F<$!3BgQ_'3vH+\"!#97$
$\"3b*\\PM2f5C%F<$!3YEJ.Vx&\\4\"FX7$$\"3\\**\\7`=%=s%F<$!3%pe>gE>(z6FX
7$$\"3;+]PM!*en^F<$!3[L;QT\")4_7FX7$$\"3'***\\i:iL8cF<$!3qZ\")=c#H(=8F
X7$$\"3V**\\i!*pUOlF<$!35-n$*\\cMR9FX7$$\"3m**\\i!z)3\"\\(F<$!3\"eGuuy
E5a\"FX7$$\"32+]7y*)oU%)F<$!3lR+'\\-,4i\"FX7$$\"3p++]Pn_@%*F<$!3+rk#yC
ZDo\"FX7$$\"30+](ovo$G5!#;$!3I2)*R&pX5s\"FX7$$\"3%**\\i:?)*o2\"F^q$!3Y
%3&*o1vmt\"FX7$$\"3,++DYwUD6F^q$!37)yKUR3#[<FX7$$\"33++]dj:u6F^q$!3sL^
=7_'ev\"FX7$$\"3'****\\(o])GA\"F^q$!3m)f2[u#yf<FX7$$\"3/++D6U%)p7F^q$!
3a(3bEH&>g<FX7$$\"38++v`L!oJ\"F^q$!3q$)HewEZd<FX7$$\"3$**\\iS:!4-9F^q$
!3,*e*>$HC]u\"FX7$$\"36++v3W].:F^q$!3L8*y\"ylq=<FX7$$\"33+++&e:%*e\"F^
q$!3EZ:M*[[wo\"FX7$$\"3%)*\\ilq]$*o\"F^q$!3+eu42veU;FX7$$\"3y****\\A-
\"yx\"F^q$!3US0:'[Vcf\"FX7$$\"3%**\\i:Lk[(=F^q$!3fna\\^[`P:FX7$$\"3'**
\\(o%z#Gn>F^q$!3/X#H>e%pw9FX7$$\"3=+]il<rj?F^q$!3atMj')RT39FX7$$\"3I+D
\"GmjA:#F^q$!3!HS)\\2)e@M\"FX7$$\"3#***\\(o%)yxC#F^q$!3?&4PhymwE\"FX7$
$\"3))*\\i!zA*pM#F^q$!3/tkxwxy(=\"FX7$$\"3!)*\\PM'yNLCF^q$!3$>Bst,<o6
\"FX7$$\"30+]ig]jEDF^q$!3u/OGR>HR5FX7$$\"3t****\\K&**Hi#F^q$!3U=RO!pQ)
)e*F37$$\"3y**\\7oLF<FF^q$!3J*Q[/')[^!))F37$$\"3)**\\i::)[3GF^q$!3'zc@
iA%)\\0)F37$$\"3\"***\\(ohm(4HF^q$!3$e1\"oA:APsF37$$\"3')****\\A)p2+$F
^q$!3pPQw06)3_'F37$$\"3%****\\(o^$z4$F^q$!3evoD1:8!y&F37$$\"3!)*\\iST
\")f=$F^q$!35.]'\\B,U8&F37$$\"3=++D;#RAG$F^q$!3ae<g&>k%fWF37$$\"3'**\\
ilI5GP$F^q$!3%*eRR+x$z&QF37$$\"3?+D\"G>$[nMF^q$!3qyfb4l,nKF37$$\"3o***
\\PCV+c$F^q$!3oUfXG$3'HFF37$$\"31+D1R]%pl$F^q$!3tu>?Xee7AF37$$\"3;+++&
)HF]PF^q$!3%=2r9O37w\"F37$$\"3K+]P*G9d%QF^q$!3/$RU&)oS\"\\8F37$$\"3E+D
c\"Hl.%RF^q$!3M;.fW,<>**F^q7$$\"3[++]K(Rt-%F^q$!3R)o%pM0!G5(F^q7$$\"3/
+](oDAq7%F^q$!3?lqVfGnQWF^q7$$\"34+++&\\zh@%F^q$!3wX8FbciwDF^q7$$\"3P+
Dc1(R7J%F^q$!3*pCmoc[=9\"F^q7$$\"3B+vVeWA-WF^q$!3I!G=DQwq1$F<7$$\"#XF)
F*-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q&x~(m)6\"Q)M~(kN-m)
Fb^l-%%VIEWG6$;F(Fe]l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 37 "evalf(minimize(m,x=0..d/2,location));" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6$$!)oTg<!\"%<#7$<#/%\"xG$\"+7&3BD\"!\")F#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "evalf(w*d^2/8);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#$\"&vV)\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 1 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }