{VERSION 3 0 "IBM INTEL NT" "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 Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 "Text Output" -1 2 1 {CSTYLE "" 
-1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 
1 0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple O
utput" 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 }{PSTYLE 
"Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 
}3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
23 "read(`a:eigenmat.txt`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
27 "A:=matrix(2,2,[5,-3,-3,5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"AG-%'matrixG6#7$7$\"\"&!\"$7$F+F*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "eigenmat(A,Lambda,P);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6$-%'matrixG6#7$7$\"\"#\"\"!7$F)\"\")-F$6#7$7$,$*$-%%sqrtG6#F(\"\"
\"#\"\"\"F(,$F1#!\"\"F(7$F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 13 "with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 32 "Warning, new defin
ition for norm" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition
 for trace" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "multiply(P,La
mbda,transpose(P));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7$7
$\"\"&!\"$7$F)F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "b:=vect
or([-24*sqrt(2),8*sqrt(2)]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG
-%'vectorG6#7$,$*$-%%sqrtG6#\"\"#\"\"\"!#C,$F*\"\")" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 25 "multiply(transpose(b),P);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#-%*transposeG6#-%'vectorG6#7$!#;\"#K" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 15 "Graph in z:  \+
  " }{XPPEDIT 18 0 "z[1]^2/4+z[2]^2 = 1;" "6#/,&*&*$)&%\"zG6#\"\"\"\"
\"#\"\"\"F-\"\"%!\"\"F-*$)&F)6#\"\"#\"\"#F-F-\"\"\"" }{TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 
0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "z:=vector([2*cos(t),sin(t)]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"zG-%'vectorG6#7$,$-%$cosG6#%\"tG\"
\"#-%$sinGF," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "plot([z[1],
z[2],t=0..2*Pi]);" }}{PARA 13 "" 1 "" {GLPLOT2D 321 241 241 {PLOTDATA 
2 "6%-%'CURVESG6$7S7$$\"\"#\"\"!F*7$$\"1=AzuCF\")>!#:$\"1kwb#=y_O\"!#;
7$$\"1BYw>/wM>F.$\"1D\\ff*)GLDF17$$\"12Ax&H<(\\=F.$\"1Mj&[K5J!QF17$$\"
1s$fP=91t\"F.$\"1:NXR4U7]F17$$\"16]d1/&3e\"F.$\"1`H-qceDhF17$$\"1qysL[
^;9F.$\"1jB*3qU&fqF17$$\"1mQE\\6HB7F.$\"1:7_\\!>8\"zF17$$\"1'[h7Ja@+\"
F.$\"1$>p(Qh-a')F17$$\"1[;M*Gz-k(F1$\"1L+16bcT#*F17$$\"1MHW_Dx]]F1$\"1
'Q\"[M\"oen*F17$$\"1Z-BXOF!p#F1$\"1)fVPO<\"4**F17$$!1u%3[&R@%>\"!#=$\"
08;t@)******F.7$$!1'*H[=Z'\\s#F1$\"1q%>wGZn!**F17$$!17Vr+VO#H&F1$\"1A>
=\\D`V'*F17$$!1e(G@'y@YvF1$\"1zF#e`m3E*F17$$!1*\\CZ0j%35F.$\"1V'yI2&oN
')F17$$!177F&*y*y?\"F.$\"1j\")RQ+BqzF17$$!1\\GNpK'yT\"F.$\"1fvOg?x_qF1
7$$!1;06T3%3e\"F.$\"14<J%QZc7'F17$$!1c?'zMh=t\"F.$\"1%H$\\4/k,]F17$$!1
\"HFYD(=Y=F.$\"1n'[*>HvXQF17$$!1\"y!)=qCF$>F.$\"1%p9m#Q%=d#F17$$!1&R$)
Q+19)>F.$\"1V?00]Ug8F17$$!1_m&=Q!****>F.$\"1DA\\O%485$Fao7$$!16Yu.wo\"
)>F.$!1$4*>c=8]8F17$$!152X$48[$>F.$!1NbFGIGKDF17$$!1ImgUCl_=F.$!15&=j`
Bsw$F17$$!1b'>kAP[t\"F.$!1FNX')3zv\\F17$$!1&)fDaN@*e\"F.$!1W(H!pUCrgF1
7$$!1l#=u=8@U\"F.$!1?#o?\"yMJqF17$$!1pN-'G<(47F.$!1Jw!yeGL'zF17$$!1V%3
l$oP\")**F1$!1_Mh6Mil')F17$$!1,7WjHcXvF1$!10`8S***4E*F17$$!1c\\ei6L<_F
1$!1V>(fp[Pl*F17$$!1BC[]N8$e#F1$!1$RoI*>C;**F17$$!1edteow9hFao$!11O#>E
`*****F17$$\"1hWE2lWvDF1$!1ZZ3X=u;**F17$$\"1lyS\"p#35^F1$!1$[o%H'z!o'*
F17$$\"1od6rnfrwF1$!1.2<#>x]B*F17$$\"1A&>_6g1+\"F.$!1Igb5wMe')F17$$\"1
]w*)z+(=A\"F.$!1a*[=H2o\"zF17$$\"1@NHx+')>9F.$!1r&)eg?sUqF17$$\"1sVuyc
.!e\"F.$!11$H<bQ38'F17$$\"1G?C.v'[t\"F.$!1?)zD(p_v\\F17$$\"1nJk!>+]%=F
.$!1'>2ndo*fQF17$$\"1tX%QxP4$>F.$!1g]nRQ=0EF17$$\"1;J>26R\")>F.$!1up91
t'4O\"F17$F($\"1YKhSr8/#)!#D-%'COLOURG6&%$RGBG$\"#5!\"\"F*F*-%+AXESLAB
ELSG6$%!GFa[l-%%VIEWG6$%(DEFAULTGFe[l" 1 2 0 1 0 2 9 1 4 1 1.000000 
45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 17 "Graph in \+
y:      " }{XPPEDIT 18 0 "y[1] = z[1]+4;" "6#/&%\"yG6#\"\"\",&&%\"zG6#
\"\"\"\"\"\"\"\"%F-" }{TEXT -1 5 ",    " }{XPPEDIT 18 0 "y[2] = z[2]-2
;" "6#/&%\"yG6#\"\"#,&&%\"zG6#\"\"#\"\"\"\"\"#!\"\"" }{TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "y:=vector([z[1]+4,z[2]-2]);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG-%'vectorG6#7$,&-%$cosG6#%\"
tG\"\"#\"\"%\"\"\",&-%$sinGF,F0!\"#F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 28 "plot([y[1],y[2],t=0..2*Pi]);" }{TEXT -1 0 "" }}{PARA 
13 "" 1 "" {TEXT -1 0 "" }{GLPLOT2D 321 241 241 {PLOTDATA 2 "6%-%'CURV
ESG6$7S7$$\"\"'\"\"!$!\"#F*7$$\"1>AzuCF\")f!#:$!1MUu\"=sM'=F07$$\"1BYw
>/wMfF0$!120//6nY<F07$$\"12Ax&H<(\\eF0$!1nV^n*)o>;F07$$\"1s$fP=91t&F0$
!1\\Y01zv)\\\"F07$$\"16]d1/&3e&F0$!10x*HVTuQ\"F07$$\"1qysL[^;aF0$!1k2
\"*Hd/%H\"F07$$\"1mQE\\6HB_F0$!1zy/&4o)37F07$$\"1'[h7Ja@+&F0$!1\"3BhQ(
fM6F07$$\"1lT$*Gz-kZF0$!1(*R*)[M%e2\"F07$$\"1$HW_Dx]]%F0$!1i=b'=8C.\"F
07$$\"1DI_kt-pUF0$!1Scij#)345F07$$\"1#>Xgy0))*RF0$!1(Qo#y,++5F07$$\"1,
<:GN]FPF0$!1`!Q7FD$45F07$$\"1p&G*pNwqMF0$!13=3XnkN5F07$$\"1Cry8#y`C$F0
$!1AxTYL\"R2\"F07$$\"1,bFXp`\"*HF0$!1O@p#\\Jk8\"F07$$\"1(yGZ5-@z#F0$!1
%=gh*p(H?\"F07$$\"1^rkIn8#e#F0$!1WK'RzAZH\"F07$$\"1$[*))e\"f\">CF0$!1H
)o:ENuQ\"F07$$\"1Wz._'Q\"oAF0$!1q10ff$)*\\\"F07$$\"15FPXF\"Q:#F0$!1L^+
3ZU:;F07$$\"1>#>\")Hvs1#F0$!1J&Qth:Gu\"F07$$\"1/m6'*Rf=?F0$!1'z%\\*\\d
R'=F07$$\"1[L9='4++#F0$!13Nc!p)*o*>F07$$\"1*QbiR7$=?F0$!14*>c=8]8#F07$
$\"1!H\\l!p=l?F0$!1av#GIGKD#F07$$\"1qLRdvMZ@F0$!1^=j`BswBF07$$\"1X.etF
;lAF0$!1``k)3zv\\#F07$$\"1:SuXky5CF0$!1vH!pUCrg#F07$$\"1N<e7o)yd#F0$!1
Ao?\"yMJq#F07$$\"1Jk(Rr#G!z#F0$!1j2yeGL'z#F07$$\"1c\"\\jJi=+$F0$!1X8;T
BcmGF07$$\"1!)el.PWXKF0$!1IN,%***4EHF07$$\"10:u$)oEyMF0$!1%>(fp[PlHF07
$$\"1e<&\\k'oTPF0$!1RoI*>C;*HF07$$\"1k79L_)Q*RF0$!1gB>E`****HF07$$\"1Y
ks]YadUF0$!1v%3X=u;*HF07$$\"1'yS\"p#35^%F0$!1[o%H'z!o'HF07$$\"1x:6x'fr
w%F0$!1qq@>x]BHF07$$\"1B&>_6g1+&F0$!1.c0hZ$e'GF07$$\"1]w*)z+(=A&F0$!1'
*[=H2o\"z#F07$$\"1@NHx+')>aF0$!1d)eg?sUq#F07$$\"1rVuyc.!e&F0$!1JH<bQ38
EF07$$\"1G?C.v'[t&F0$!1#)zD(p_v\\#F07$$\"1nJk!>+]%eF0$!1?2ndo*fQ#F07$$
\"1tX%QxP4$fF0$!11v'RQ=0E#F07$$\"1;J>26R\")fF0$!1(p91t'4O@F07$F($!1'ez
\"********>F0-%'COLOURG6&%$RGBG$\"#5!\"\"F*F*-%+AXESLABELSG6$%!GF`[l-%
%VIEWG6$%(DEFAULTGFd[l" 1 2 0 1 0 2 9 1 4 1 1.000000 45.000000 
45.000000 0 }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "
" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 29 "Now, the graph in x:   x = Py" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "x:=multiply(P,y);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%\"xG-%'vectorG6#7$,&*&-%%sqrtG6#\"\"#\"\"\",&-%$cosG6#%\"tGF.\"\"%\"
\"\"F6#F6F.*&F+F/,&-%$sinGF3F6!\"#F6F6#!\"\"F.,&F*F7F8F7" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "plot([x[1],x[2],t=0..2*Pi]);" }}
{PARA 13 "" 1 "" {GLPLOT2D 321 241 241 {PLOTDATA 2 "6%-%'CURVESG6$7S7$
$\"1\"Q#\\\\U&ol&!#:$\"1\">YZ7F%GGF*7$$\"1fQJV@2ZbF*$\"1%='y5Xs6HF*7$$
\"1BFq>BfJaF*$\"1]MObjUhHF*7$$\"12s??ym\"G&F*$\"19B_:<3\"*HF*7$$\"1d#G
%G!Q>6&F*$\"1r=(4FuB*HF*7$$\"1\\([ITEt#\\F*$\"1L]]@z=lHF*7$$\"1**=6!)G
3XZF*$\"116aee-:HF*7$$\"1tXK>MA[XF*$\"1Ox=kdiQGF*7$$\"1$oy'R(Q$RVF*$\"
1f.RGdxMFF*7$$\"1?&>Dl7%HTF*$\"1%Q.hDSzg#F*7$$\"1_(\\@/(f:RF*$\"1&Gb<J
WbX#F*7$$\"1:1b_8>KPF*$\"1=(*\\W]70BF*7$$\"1\"*=?&f*oMNF*$\"1C#>2yv/7#
F*7$$\"1F#o`wV%\\LF*$\"1qu$zFU?#>F*7$$\"1VGb#H8l=$F*$\"1*fI)>w)=s\"F*7
$$\"1qE9_.?aIF*$\"1^_#G`da`\"F*7$$\"1c4,vW\"*=HF*$\"1PyLXwv68F*7$$\"1Z
_hBv%\\#GF*$\"1oEUS6oB6F*7$$\"1m'f&fONTFF*$\"1\"fK#[7R.\"*!#;7$$\"1\\H
$zso;p#F*$\"1yk2T'*Q&H(Faq7$$\"1/&R))RgVm#F*$\"1t=:U/sKaFaq7$$\"1'y&=j
LDlEF*$\"1)HB8Kyp!QFaq7$$\"1NuDB69%p#F*$\"1rk,0kF%H#Faq7$$\"1$z_3\\y`u
#F*$\"1:@!Q:XM4\"Faq7$$\"1tu')o4CEGF*$\"1&G&[()zv*>#!#=7$$\"1(e>MoWo$H
F*$!1Cv%H&>*>D)!#<7$$\"1\"\\H&y1e`IF*$!1u9_kMlH8Faq7$$\"1azk70+*>$F*$!
1G^`QZ#>i\"Faq7$$\"1P3#y1nxO$F*$!1j&3W_JMk\"Faq7$$\"1$RQa!))>[NF*$!1o(
>)y\">$)Q\"Faq7$$\"1y/c!=YUt$F*$!1?RY%zoj&))Ffs7$$\"1!)*y`vL.&RF*$!16N
I=%)4yUF`s7$$\"1=!3-(Gg\\TF*$\"1*>n\\*H:n&*Ffs7$$\"1T6,*RSRO%F*$\"1LP<
E55eAFaq7$$\"1pDKzFMcXF*$\"1!oy@@%pEOFaq7$$\"1r@\"yvp6w%F*$\"1\")))G;C
u.`Faq7$$\"1qNJq.UX\\F*$\"1mVcHH'y-(Faq7$$\"1f)*p'zrf7&F*$\"1U]m2f0^*)
Faq7$$\"10g<mXh(G&F*$\"1x+-3X\">4\"F*7$$\"1wUznI7QaF*$\"1h]d,)eOI\"F*7
$$\"1tL=r=XibF*$\"1!GyX[\\&4:F*7$$\"18_[=hVmcF*$\"1AjXpLS=<F*7$$\"1<]
\")G!HYu&F*$\"1szl)f5-#>F*7$$\"1\"*[]\"Q5Mz&F*$\"1f6!Rv^z4#F*7$$\"1v1N
\\,?@eF*$\"1Kp9_s7*G#F*7$$\"11#*yGQ>?eF*$\"1(o\"*Gr%)eW#F*7$$\"1C7)p>M
Az&F*$\"1l1QS%y`f#F*7$$\"1JKJ'pI*RdF*$\"1)4P$HP.>FF*7$$\"1hA\"*[U&ol&F
*$\"16jKDrUGGF*-%'COLOURG6&%$RGBG$\"#5!\"\"\"\"!Fa[l-%+AXESLABELSG6$%!
GFe[l-%%VIEWG6$%(DEFAULTGFi[l" 1 2 0 1 0 2 9 1 4 1 1.000000 45.000000 
45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "A:=matr
ix(2,2,[1,-sqrt(3),-sqrt(3),-1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%\"AG-%'matrixG6#7$7$\"\"\",$*$-%%sqrtG6#\"\"$\"\"\"!\"\"7$F+F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "eigenmat(A,S,Q);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6$-%'matrixG6#7$7$!\"#\"\"!7$F)\"\"#-F$6#7$7$#
\"\"\"F+,$*$-%%sqrtG6#\"\"$\"\"\"F07$F2#!\"\"F+" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "b:=vector([6,0]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"bG-%'vectorG6#7$\"\"'\"\"!" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 25 "multiply(transpose(b),Q);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%*transposeG6#-%'vectorG6#7$\"\"$,$*$-%%sqrtG6#F*\"\"
\"F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "A:=matrix(3,3,[-8,16
,-2,16,-8,-2,-2,-2,10]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'m
atrixG6#7%7%!\")\"#;!\"#7%F+F*F,7%F,F,\"#5" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 21 "eigenmat(A,Lambda,P);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6$-%'matrixG6#7%7%\"\"'\"\"!F)7%F)!#CF)7%F)F)\"#7-F$6#7%7%,$*$-%%s
qrtG6#\"\"$\"\"\"#\"\"\"F7,$*$-F56#\"\"#F8#!\"\"F?,$*$-F56#F(F8#F:F(7%
F2,$F<#F:F?FB7%F2F),$FC#FAF7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 13 "x:=vector(3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG-%&arrayG
6$;\"\"\"\"\"$7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "simpli
fy(multiply(transpose(x),A,x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,.*
$)&%\"xG6#\"\"\"\"\"#\"\"\"!\")*&F&F)&F'6#F*F)\"#K*&F&F+&F'6#\"\"$F)!
\"%*$)F.F*F+F,*&F.F+F2F+F5*$)F2F*F+\"#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "y:=vector(3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"
yG-%&arrayG6$;\"\"\"\"\"$7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 17 "x:=multiply(P,y);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"xG-%'ve
ctorG6#7%,(*&-%%sqrtG6#\"\"$\"\"\"&%\"yG6#\"\"\"F3#F3F.*&-F,6#\"\"#F/&
F16#F8F3#!\"\"F8*&-F,6#\"\"'F/&F16#F.F3#F3F@,(F*F4F5#F3F8F=FC,&F*F4F=#
F<F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "simplify(multiply(t
ranspose(x),A,x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*$)&%\"yG6#\"
\"\"\"\"#\"\"\"\"\"'*$)&F'6#F*F*F+!#C*$)&F'6#\"\"$F*F+\"#7" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "37 0 0" 0 }{VIEWOPTS 1 
1 0 1 1 1803 }