{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 "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 10 " restart; " }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "Fax:=-Tab*.3/1.43-(Tad+Tac)*
1.2/1.55=0; #joint A x-dir" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FaxG/
,(*&$\"+)4-z4#!#5\"\"\"%$TabGF+!\"\"*&$\"+%[N>u(F*F+%$TadGF+F-*&$\"+%[
N>u(F*F+%$TacGF+F-\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "
Fay:=(Tad-Tac)*0.4/1.55=0; #joint A y-dir" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$FayG/,&*&$\"+h^k!e#!#5\"\"\"%$TadGF+F+*&$\"+h^k!e#F*
F+%$TacGF+!\"\"\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "Faz
:=F+Tab*1.4/1.43+(Tad+Tac)*0.9/1.55=0; #joint A z-dir" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%$FazG/,*%\"FG\"\"\"*&$\"+!z4-z*!#5F(%$TabGF(F(*&
$\"+8;X1eF,F(%$TadGF(F(*&F/F(%$TacGF(F(\"\"!" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 42 "Asols:=solve(\{Fax,Fay,Faz\},\{Tab,Tac,Tad\});" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&AsolsG<%/%$TacG,$*&$\"+qh$*[;!#5
\"\"\"%\"FGF-F-/%$TabG,$*&$\"+x7-<7!\"*F-F.F-!\"\"/%$TadGF(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "assign(Asols);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "Fbx:=-(Tbc+Tbd)*.9/1.10+Tab*0.3/1.4
3-Tbe*0.9/1.03=0; #joint B x-dir" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
$FbxG/,**&$\"+#====)!#5\"\"\"%$TbcGF+!\"\"*&$\"+#====)F*F+%$TbdGF+F-*&
$\"+!\\\">`DF*F+%\"FGF+F-*&$\"+yS'yt)F*F+%$TbeGF+F-\"\"!" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "Fby:=(-Tbc+Tbd)*.4/1.10=0; #joint B
 y-dir" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FbyG/,&*&$\"+OOOOO!#5\"\"
\"%$TbcGF+!\"\"*&$\"+OOOOOF*F+%$TbdGF+F+\"\"!" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 68 "Fbz:=-(Tbc+Tbd)*0.5/1.10-Tab*1.4/1.43+Tbe*0.5/1.
03=0; #joint B z-dir" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FbzG/,**&$
\"+XXXXX!#5\"\"\"%$TbcGF+!\"\"*&$\"+XXXXXF*F+%$TbdGF+F-*&$\"+i$*[\">\"
!\"*F+%\"FGF+F+*&$\"+K*oV&[F*F+%$TbeGF+F+\"\"!" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 42 "Bsols:=solve(\{Fbx,Fby,Fbz\},\{Tbc,Tbd,Tbe\});
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&BsolsG<%/%$TbdG,$*&$\"+Z'\\Ix&!
#5\"\"\"%\"FGF-F-/%$TbeG,$*&$\"+MLLt8!\"*F-F.F-!\"\"/%$TbcGF(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "assign(Bsols);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "F:=2200; #force F in Newtons" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"FG\"%+A" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 54 "tab:=Tab;tac:=Tac;tad:=Tad;tbc:=Tbc;tbd:=Tbd;tbe:=
Tbe;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tabG$!+4oWxE!\"'" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$tacG$\"+u&fwi$!\"(" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$tadG$\"+u&fwi$!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%$tbcG$\"+A42q7!\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tbdG$\"+A
42q7!\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tbeG$!+NLL@I!\"'" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "sigmaY:=4e7; #yield stress i
n newtons per meter squared" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'sigm
aYG$\"\"%\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "area_y:=a
bs(tbe/sigmaY); #area needed for yield of member BE in meters^2" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'area_yG$\"+QLL`v!#9" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "ry:=evalf(100*sqrt(area_y/Pi)); #ra
dius of shaft in cm" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ryG$\"+zoO.
\\!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "E:=7e10; #Youngs M
odulus in Newtons per meter squared" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%\"EG$\"\"(\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "rbe:=e
valf(100*(4*abs(tbe)*1.03^2/Pi^3/E)^(1/4)); #min radius for no bucklin
g of BE (cm)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rbeG$\"+@h!pw)!#5" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "rab:=evalf(100*(4*abs(tab
)*1.43^2/Pi^3/E)^(1/4)); #min radius for no buckling of ab (cm)" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rabG$\"+y0D-5!\"*" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 84 "#rab=1 cm is the smallest radius for whic
h no member will fail by yield or buckling." }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 0 "" }}}}{MARK "20 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 
1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }