{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 "Error" -1 8 1 
{CSTYLE "" -1 -1 "Courier" 1 10 255 0 255 1 2 2 2 2 2 1 1 1 3 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 22 "restart; with(linalg
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "rt1:=vector([-4,-1.5,
2.5]); rt2:=vector([-2.5,1.5,2.5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%$rt1GK%'vectorG6#7%!\"%$!#:!\"\"$\"#DF,Q(pprint06\"" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%$rt2GK%'vectorG6#7%$!#D!\"\"$\"#:F+$\"#DF+Q(ppri
nt06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "T1:=evalm(t1*rt1/
norm(rt1,2)); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#T1GK%'vectorG6#7%
,$*&$\"+c.A\"3)!#5\"\"\"%#t1GF.!\"\",$*&$\"+MwXIIF-F.F/F.F0,$*&$\"+AFw
]]F-F.F/F.F.Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 
"T2:=evalm(t2*rt2/norm(rt2,2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#
T2GK%'vectorG6#7%,$*&$\"+]bW4l!#5\"\"\"%#t2GF.!\"\",$*&$\"+Itm0RF-F.F/
F.F.,$*&$\"+]bW4lF-F.F/F.F.Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 66 "W:=vector([0,0,-981]); C:=vector([Cx,Cy,Cz]); d:=vect
or([0,Dy,0]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"WGK%'vectorG6#7%
\"\"!F)!$\")*Q(pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CGK%'
vectorG6#7%%#CxG%#CyG%#CzGQ(pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"dGK%'vectorG6#7%\"\"!%#DyGF)Q(pprint06\"" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 25 "sumF:=evalm(T1+T2+W+C+d);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%%sumFGK%'vectorG6#7%,(*&$\"+c.A\"3)!#5\"\"\"%#t1GF
.!\"\"*&$\"+]bW4lF-F.%#t2GF.F0%#CxGF.,**&$\"+MwXIIF-F.F/F.F0*&$\"+Itm0
RF-F.F4F.F.%#CyGF.%#DyGF.,**&$\"+AFw]]F-F.F/F.F.*&$\"+]bW4lF-F.F4F.F.
\"$\")*F0%#CzGF.Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 90 "rCT1:=vector([4,0,1]); rCT2:=vector([2.5,0,1]);rCW:=vector([2,0,
0]); rCD:=vector([0,0,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%rCT1G
K%'vectorG6#7%\"\"%\"\"!\"\"\"Q(pprint06\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%rCT2GK%'vectorG6#7%$\"#D!\"\"\"\"!\"\"\"Q(pprint06\"
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rCWGK%'vectorG6#7%\"\"#\"\"!F*Q
(pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rCDGK%'vectorG6#7%\"
\"!F)\"\"\"Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "
sumM:=evalm(crossprod(rCT1,T1)+crossprod(rCT2,T2)+crossprod(rCW,W)+cro
ssprod(rCD,d));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%sumMGK%'vectorG6
#7%,(*&$\"+MwXII!#5\"\"\"%#t1GF.F.*&$\"+Itm0RF-F.%#t2GF.!\"\"%#DyGF4,(
*&$\"+DrUGG!\"*F.F/F.F4*&$\"+VfIyAF:F.F3F.F4\"%i>F.,&*&$\"+aI=77F:F.F/
F.F4*&$\"+D$oTw*F-F.F3F.F.Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 77 "solve(\{sumF[1],sumF[2],sumF[3],sumM[1],sumM[2],sumM[
3]\},\{t1,t2,Cx,Cy,Cz,Dy\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<(/%#C
yG$\"\"!F'/%#DyG$!+v&GkI'!\")/%#CzG$\"+WrNb_!\"(/%#CxG$\"+&G9dg&F1/%#t
1G$\"+g(e$oMF1/%#t2G$\"+X3$eI%F1" }}}{EXCHG {PARA 8 "" 1 "" {TEXT -1 
36 "Error, (in solve) invalid arguments\n" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 22 "restart; with(linalg):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 90 "A:=vector([Ax,Ay,Az]); B:=vector([0,By,Bz]); C:=vec
tor([0,Cy,0]); FE:=vector([0,-1000,0]);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"AGK%'vectorG6#7%%#AxG%#AyG%#AzGQ(pprint06\"" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"BGK%'vectorG6#7%\"\"!%#ByG%#BzGQ(pprint06\"" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CGK%'vectorG6#7%\"\"!%#CyGF)Q(ppr
int06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#FEGK%'vectorG6#7%\"\"!!%
+5F)Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "sumF:=e
valm(A+B+C+FE);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%sumFGK%'vectorG6
#7%%#AxG,*%#AyG\"\"\"%#ByGF,%#CyGF,\"%+5!\"\",&%#AzGF,%#BzGF,Q(pprint0
6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "rAC:=vector([2,0,-1]
); rAB:=vector([2,0,1]); rAE:=vector([4,3,0]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$rACGK%'vectorG6#7%\"\"#\"\"!!\"\"Q(pprint06\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rABGK%'vectorG6#7%\"\"#\"\"!\"\"\"Q
(pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rAEGK%'vectorG6#7%\"
\"%\"\"$\"\"!Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
65 "sumM:=evalm(crossprod(rAC,C)+crossprod(rAB,B)+crossprod(rAE,FE));
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%sumMGK%'vectorG6#7%,&%#CyG\"\"
\"%#ByG!\"\",$*&\"\"#F+%#BzGF+F-,(*&F0F+F*F+F+*&F0F+F,F+F+\"%+SF-Q(ppr
int06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "solve(\{sumF[1],
sumF[2],sumF[3],sumM[1],sumM[2],sumM[3]\},\{Ax,Ay,Az,By,Bz,Cy\});" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#<(/%#AzG\"\"!/%#BzGF&/%#AxGF&/%#AyG!%+
5/%#ByG\"%+5/%#CyGF0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
}}{MARK "16 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 
1 2 33 1 1 }