{VERSION 3 0 "DEC ALPHA UNIX" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 
0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "A:=array(1..2,1..2,s
ymmetric):\nA[1,1]:=R:\nA[2,2]:=T:\nA[2,1]:=S:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 9 "print(A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%
'MATRIXG6#7$7$%\"RG%\"SG7$F)%\"TG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 63 "a:=array(1..2,1..2,symmetric):\na[1,1]:=r:\na[2,2]:=t
:\na[2,1]:=s:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "print(a);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7$7$%\"rG%\"sG7$F)%\"tG
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Aa:=evalm(A&*a);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#AaG-%'MATRIXG6#7$7$,&*&%\"RG\"\"\"%
\"rGF-F-*&%\"SGF-%\"sGF-F-,&*&F,F-F1F-F-*&F0F-%\"tGF-F-7$,&*&F0F-F.F-F
-*&%\"TGF-F1F-F-,&F/F-*&F:F-F5F-F-" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "aA:=evalm(a&*A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%#aAG-%'MATRIXG6#7$7$,&*&%\"RG\"\"\"%\"rGF-F-*&%\"SGF-%\"sGF-F-,&*&F0F
-F.F-F-*&%\"TGF-F1F-F-7$,&*&F,F-F1F-F-*&F0F-%\"tGF-F-,&F/F-*&F5F-F:F-F
-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "sys:=\{seq(seq(Aa[i,j]
=aA[i,j],i=1..j),j=1..2)\};" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$sysG
<%/,&*&%\"RG\"\"\"%\"rGF*F**&%\"SGF*%\"sGF*F*F'/,&*&F)F*F.F*F**&F-F*%
\"tGF*F*,&*&F-F*F+F*F**&%\"TGF*F.F*F*/,&F,F**&F7F*F3F*F*F9" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "inc:=\{r,s,t,R,S,T\};" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%$incG<(%\"RG%\"TG%\"sG%\"tG%\"rG%\"SG" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "sol:=[solve(sys,inc)];" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$solG7%<(/%\"SGF(/%\"RG*&,(*&F(\"\"
\"%\"tGF.!\"\"*&F(F.%\"rGF.F.*&%\"TGF.%\"sGF.F.\"\"\"F5!\"\"/F4F4/F/F/
/F2F2/F5F5<(F8F9F:/F*F*/F(\"\"!/F5F?<(F'F8F9F=/F2F/F@" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "Delta:=evalm(a&*A-A&*a);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%&DeltaG-%'MATRIXG6#7$7$\"\"!,**&%\"SG\"\"
\"%\"rGF.F.*&%\"TGF.%\"sGF.F.*&%\"RGF.F2F.!\"\"*&F-F.%\"tGF.F57$,*F3F.
F6F.F,F5F0F5F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "R*s+S*t-S
*r-T*s=0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,**&%\"RG\"\"\"%\"sGF'F'
*&%\"SGF'%\"tGF'F'*&F*F'%\"rGF'!\"\"*&%\"TGF'F(F'F.\"\"!" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0" 0 }{VIEWOPTS 1 
1 0 1 1 1803 }