{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 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "FAX:=Ax+TAB+TAD*cos(30*Pi/180);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FAXG,(%#AxG\"\"\"%$TABGF'*(\"\"#!\" \"%$TADGF'\"\"$#F'F*F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "F AY:=Ay+TAD*sin(30*Pi/180);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FAYG, &%#AyG\"\"\"*&\"\"#!\"\"%$TADGF'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "FBX:=TBC-TAB;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$F BXG,&%$TBCG\"\"\"%$TABG!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "FBY:=-W+TBD;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FBYG,&%\"WG! \"\"%$TBDG\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "FCX:=-T CD*cos(30*Pi/180)-TBC;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FCXG,&*( \"\"#!\"\"%$TCDG\"\"\"\"\"$#F*F'F(%$TBCGF(" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 27 "FCY:=TCD*sin(30*Pi/180)+Cy;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FCYG,&*&\"\"#!\"\"%$TCDG\"\"\"F*%#CyGF*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "FDX:=TCD*sin(60*Pi/180)-TAD*sin(60* Pi/180);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FDXG,&*(\"\"#!\"\"%$TCD G\"\"\"\"\"$#F*F'F**(F'F(%$TADGF*F+F,F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "FDY:=-TBD-TCD*cos(60*Pi/180)-TAD*cos(60*Pi/180);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FDYG,(%$TBDG!\"\"*&\"\"#F'%$TCDG\" \"\"F'*&F)F'%$TADGF+F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "s olution:=solve(\{FAX,FAY,FBX,FBY,FCX,FCY,FDX,FDY\},\{Ax,Ay,Cy,TAD,TAB, TBD,TBC,TCD\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)solutionG<*/%$TB DG%\"WG/%#CyG,$*&\"\"#!\"\"F(\"\"\"F//%#AxG\"\"!/%#AyGF+/%$TCDG,$F(F./ %$TADGF7/%$TBCG,$*(F-F.F(F/\"\"$#F/F-F//%$TABGF<" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "Fx:=TBC+TGC*(2/sqrt(5))+TGF*(2/sqrt(5));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#FxG,(%$TBCG\"\"\"**\"\"#F'\"\"&!\"\"%$TGCGF' F*#F'F)F'**F)F'F*F+%$TGFGF'F*F-F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "Fy:=-4-2+TGC*(1/sqrt(5))-TGF*(1/sqrt(5));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#FyG,(\"\"'!\"\"*(\"\"&F'%$TGCG\"\"\"F)#F+ \"\"#F+*(F)F'%$TGFGF+F)F,F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "MG:=4*2-TBC*1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#MGG,&\"\")\" \"\"%$TBCG!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "solve(\{ Fx,Fy,MG\},\{TBC,TGC,TGF\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<%/%$T GFG,$*&\"\"&\"\"\"F(#F)\"\"#!\"\"/%$TGCG*$F(F*/%$TBCG\"\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "restart; with(linalg):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 202 "rBD:=vector([0,4,-1]);rBE:=vector( [2,3,-1]); rCD:=vector([0,4,1]); rCE:=vector([2,3,1]); rDE:=vector([2, -1,0]); rAB:=vector([2,0,1]); rAD:=vector([2,4,0]); rAC:=vector([2,0,- 1]); rBC:=vector([0,0,-2]); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rBD GK%'vectorG6#7%\"\"!\"\"%!\"\"Q(pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rBEGK%'vectorG6#7%\"\"#\"\"$!\"\"Q(pprint06\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rCDGK%'vectorG6#7%\"\"!\"\"%\"\"\"Q (pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rCEGK%'vectorG6#7%\" \"#\"\"$\"\"\"Q(pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rDEGK %'vectorG6#7%\"\"#!\"\"\"\"!Q(pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rABGK%'vectorG6#7%\"\"#\"\"!\"\"\"Q(pprint06\"" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%$rADGK%'vectorG6#7%\"\"#\"\"%\"\"!Q(pprint06\" " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rACGK%'vectorG6#7%\"\"#\"\"!!\" \"Q(pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$rBCGK%'vectorG6#7 %\"\"!F)!\"#Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 241 "TBD:=tBD*rBD/norm(rBD,2); TBE:=tBE*rBE/norm(rBE,2); TCD:=tCD*rCD/ norm(rCD,2); TCE:=tCE*rCE/norm(rCE,2); TDE:=tDE*rDE/norm(rDE,2); TAB:= tAB*rAB/norm(rAB,2); TAD:=tAD*rAD/norm(rAD,2); TAC:=tAC*rAC/norm(rAC,2 ); TBC:=tBC*rBC/norm(rBC,2); " }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%$TBDG,$**\"#%$TBEG,$**\"#9!\"\"%$tBEG\"\"\"%$rBEGF*F'#F*\"\"# F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$TCDG,$**\"#%$TCEG,$**\"# 9!\"\"%$tCEG\"\"\"%$rCEGF*F'#F*\"\"#F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$TDEG,$**\"\"&!\"\"%$tDEG\"\"\"%$rDEGF*F'#F*\"\"#F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$TABG,$**\"\"&!\"\"%$tABG\"\"\"%$rABGF*F'# F*\"\"#F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$TADG,$**\"#5!\"\"%$tAD G\"\"\"%$rADGF*\"\"&#F*\"\"#F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$T ACG,$**\"\"&!\"\"%$tACG\"\"\"%$rACGF*F'#F*\"\"#F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$TBCG,$*(\"\"#!\"\"%$tBCG\"\"\"%$rBCGF*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "A:=vector([Ax,Ay,Az]); B:=vector([0 ,By,Bz]); C:=vector([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%#Bz GQ(pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CGK%'vectorG6#7% \"\"!%#CyGF)Q(pprint06\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#FEGK%'v ectorG6#7%\"\"!!%+5F)Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "sumFJB:=evalm(B+TBC+TBD+TBE-TAB);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%'sumFJBGK%'vectorG6#7%,&*(\"\"(!\"\"%$tBEG\"\"\"\"# 9#F.\"\"#F.**F1F.\"\"&F,%$tABGF.F3F0F,,(%#ByGF.**\"\"%F.\"# " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "20 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }