{VERSION 3 0 "SUN SPARC SOLARIS" "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 "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 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 }{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 13 "with(linalg);" }}
{PARA 7 "" 1 "" {TEXT -1 32 "Warning, new definition for norm" }}
{PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition for trace" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#7^r%.BlockDiagonalG%,GramSchmidtG%,Jor
danBlockG%)LUdecompG%)QRdecompG%*WronskianG%'addcolG%'addrowG%$adjG%(a
djointG%&angleG%(augmentG%(backsubG%%bandG%&basisG%'bezoutG%,blockmatr
ixG%(charmatG%)charpolyG%)choleskyG%$colG%'coldimG%)colspaceG%(colspan
G%*companionG%'concatG%%condG%)copyintoG%*crossprodG%%curlG%)definiteG
%(delcolsG%(delrowsG%$detG%%diagG%(divergeG%(dotprodG%*eigenvalsG%,eig
envaluesG%-eigenvectorsG%+eigenvectsG%,entermatrixG%&equalG%,exponenti
alG%'extendG%,ffgausselimG%*fibonacciG%+forwardsubG%*frobeniusG%*gauss
elimG%*gaussjordG%(geneqnsG%*genmatrixG%%gradG%)hadamardG%(hermiteG%(h
essianG%(hilbertG%+htransposeG%)ihermiteG%*indexfuncG%*innerprodG%)int
basisG%(inverseG%'ismithG%*issimilarG%'iszeroG%)jacobianG%'jordanG%'ke
rnelG%*laplacianG%*leastsqrsG%)linsolveG%'mataddG%'matrixG%&minorG%(mi
npolyG%'mulcolG%'mulrowG%)multiplyG%%normG%*normalizeG%*nullspaceG%'or
thogG%*permanentG%&pivotG%*potentialG%+randmatrixG%+randvectorG%%rankG
%(ratformG%$rowG%'rowdimG%)rowspaceG%(rowspanG%%rrefG%*scalarmulG%-sin
gularvalsG%&smithG%,stackmatrixG%*submatrixG%*subvectorG%)sumbasisG%(s
wapcolG%(swaprowG%*sylvesterG%)toeplitzG%&traceG%*transposeG%,vandermo
ndeG%*vecpotentG%(vectdimG%'vectorG%*wronskianG" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 37 "A:=matrix([[1,2,3],[4,5,6],[7,8,9]]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7%\"\"\"\"\"#\"\"$
7%\"\"%\"\"&\"\"'7%\"\"(\"\")\"\"*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 38 "B:=matrix([[2,3,4],[4,5,6],[6,7,10]]);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"BG-%'matrixG6#7%7%\"\"#\"\"$\"\"%7%F,\"\"&\"
\"'7%F/\"\"(\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "det(B);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#!\"%" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "eigenvalues(A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"
\"!,&#\"#:\"\"#\"\"\"*$-%%sqrtG6#\"#L\"\"\"#\"\"$F',&F%F(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 17 "J:=jo
rdan(A,'C');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"JG-%'matrixG6#7%7%
\"\"!F*F*7%F*,&#\"#:\"\"#\"\"\"*$-%%sqrtG6#\"#L\"\"\"#\"\"$F/F*7%F*F*,
&F-F0F1#!\"$F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(C);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%#\"\"\"\"\"',&*$-%
%sqrtG6#\"#L\"\"\"#!\"(\"$K\"#\"\"&\"#7F),&F,#\"\"(F4F5F)7%#!\"\"\"\"$
,&F,#F)\"#mF(F),&F,#F=FAF(F)7%F(,&F,#F)F7#F=F7F),&F,FGFGF)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "simplify(evalm(C^(-1) &* A &*C));" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%\"\"!F(F(7%F(,&#\"#:
\"\"#\"\"\"*$-%%sqrtG6#\"#L\"\"\"#\"\"$F-F(7%F(F(,&F+F.F/#!\"$F-" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "A:=matrix([[3,2],[2,3]]);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7$7$\"\"$\"\"#7$F+F
*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "evalf(jordan(A));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%'matrixG6#7$7$$\"\"\"\"\"!F*7$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 17 "v:=vect
or([x,y]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vG-%'vectorG6#7$%\"x
G%\"yG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "Q:=(x,y)->simplif
y(evalm(transpose(vector([x,y]))&* A &* vector([x,y])));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"QGR6$%\"xG%\"yG6\"6$%)operatorG%&arrowGF)-%)
simplifyG6#-%&evalmG6#-%#&*G6$-F46$-%*transposeG6#-%'vectorG6#7$9$9%%
\"AGF;F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "Q(1,1);x='x
';y='y';" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#5" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#/%\"xGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"yGF$" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "Q:=(x,y)-> evalm(subs(v=ve
ctor([x,y]),transpose(v) &* A &* v) );" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"QGR6$%\"xG%\"yG6\"6$%)operatorG%&arrowGF)-%&evalmG6#-%%subsG
6$/%\"vG-%'vectorG6#7$9$9%-%#&*G6$-F<6$-%*transposeG6#F4%\"AGF4F)F)F)
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "Q(1,1);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 
"P1:=implicitplot(Q(x,y)=1,x=-1..1,y=-1..1,numpoints=1000):display(P1)
;" }}{PARA 13 "" 1 "" {INLPLOT "6$-%'CURVESG6[t7$7$$!1+++++++v!#;$\"1L
LLLLL$e$F*7$$!1PJ%yg>!\\vF*$\"1++++++]PF*7$F-7$$!15Uot%*ylvF*$\"15Uot%
*y:QF*7$7$$!1KbUSB(Gn(F*$\"1***********\\P%F*F37$7$F:$\"1++++++vVF*7$$
!1-+++]7.xF*$\"1,+++]7yXF*7$7$$!1%)[`R\"eDt(F*$\"1+++++++]F*FB7$FH7$$!
1Q_4Q_4QxF*$\"1Q_4Q_4Q_F*7$7$$!1LLLLLL3xF*$\"1++++++DcF*FN7$7$$!1MLLLL
L3xF*FW7$$!1#4444fYo(F*$\"1#4444f'4eF*7$7$$!1r&G9dG9d(F*$\"1++++++]iF*
Fgn7$F]o7$$!1dp3EyMavF*$\"1dp3EyM/jF*7$7$F($\"1nmmmmm;kF*Fco7$7$$!1+++
+++voF*$\"1cp3EyMH>F*7$$!1iRV4:kArF*$\"1+++++++DF*7$Fbp7$$!1+++]i:&G(F
*$\"1+++]i:5HF*7$7$$!1?5bxQpftF*$\"1++++++DJF*Fhp7$F^qF'7$Fio7$$!1++++
+vVtF*$\"1+++++v=nF*7$7$$!1++++++DsF*$\"1++++++voF*Feq7$F[r7$$!1[VI\"R
<_1(F*$\"1[VI\"R<_1(F*7$7$F^p$\"1++++++DsF*Far7$7$$!1++++++]iF*$\"1X1e
A.Hhw!#<7$$!1tsssssAlF*$\"1++++++]7F*7$Fas7$$!1xI#p2Bp#oF*$\"1xI#p2Bp#
=F*7$7$$!1J%yg>!\\]oF*$\"1++++++v=F*Fgs7$F]t7$$!1,+++++voF*$\"1dp3EyMH
>F*7$Fgr7$$!1+++++v=nF*$\"1+++++vVtF*7$7$$!1nmmmmm;kF*$\"1+++++++vF*Fi
t7$F_u7$$!1dp3EyM/jF*$\"1dp3EyMavF*7$7$F\\s$\"1r&G9dG9d(F*Feu7$7$$!1++
++++DcF*$!1LLLLLL$3#F`s7$$!1A\"\\'fQandF*\"\"!7$Fdv7$$!1+++++DJgF*$\"1
+++++]iSF`s7$7$$!1!o)=IGXnhF*$FaoF`sFiv7$F_wF[s7$F[v7$$!1#4444f'4eF*$
\"1#4444fYo(F*7$7$F`v$\"1MLLLLL3xF*Few7$7$$!1+++++++]F*$!12<tqJ2n5F*7$
$!1baaaaaH`F*$F]sF`s7$Fdx7$F`v$!1MLLLLL$3#F`s7$7$F`v$\"1LLLLLL3xF*7$$!
1Q_4Q_4Q_F*$\"1Q_4Q_4QxF*7$7$F`x$\"1%)[`R\"eDt(F*F`y7$7$$!1++++++vVF*$
!1R\"eDBIf%=F*7$$!1Ox.m0\\e[F*$!1++++++]7F*7$F_zF_x7$Ffy7$$!1,+++]7yXF
*$\"1-+++]7.xF*7$7$F[z$\"1KbUSB(Gn(F*Ffz7$7$$!1++++++]PF*$!1QJ%yg>!\\D
F*7$$!1XXXXXX&z$F*$!1+++++++DF*7$Fe[l7$$!1mmmmmmmTF*$FcvF*7$7$$!1J%yg>
!\\]VF*$!1++++++v=F*F[\\l7$F`\\l7$F[z$!1S\"eDBIf%=F*7$7$$!1***********
\\P%F*F][l7$$!15Uot%*y:QF*$\"15Uot%*ylvF*7$7$Fa[l$\"1PJ%yg>!\\vF*F]]l7
$7$$!1,+++++DJF*$!1K6)prad>$F*7$Fj]lFh]l7$7$Fj]l$!1++++++DJF*7$Fa[l$!1
PJ%yg>!\\DF*7$7$F_^l$\"1?5bxQpftF*7$$!1LLLLLL$e$F*Fbu7$Fh^lFc]l7$7$Fh[
lFf[l7$Fc[lFa[l7$7$Fb^lFa[l7$F_^lFj]l7$Fe^l7$$!1+++]i:5HF*$\"1+++]i:&G
(F*7$7$Fh[l$\"1iRV4:kArF*Fc_l7$F]_l7$F^\\l$!1nmmmmmmTF*7$7$Fc\\lFa\\lF
]`l7$7$Fc\\l$\"1J%yg>!\\]oF*7$$!1dp3EyMH>F*$\"1,+++++voF*7$7$$!1cp3EyM
H>F*F^rFi_l7$7$FbzF`z7$F]zF[z7$7$Fg\\lF[zFa`l7$Fc`l7$$!1xI#p2Bp#=F*$\"
1xI#p2Bp#oF*7$7$Fbz$\"1tsssssAlF*Feal7$7$FgxFex7$FbxF`x7$F`blF`al7$7$F
gx$\"1!o)=IGXnhF*7$$!1X1eA.HhwF`sF`o7$FfblF[bl7$7$FgvFev7$FbvF`v7$7$Fj
xF`vF_bl7$Fcbl7$$!1+++++]iSF`s$\"1+++++DJgF*7$7$Fgv$\"1A\"\\'fQandF*F`
cl7$F[cl7$F\\wFjv7$7$FbwF`wFjcl7$7$Fbw$\"1baaaaaH`F*7$$\"1MLLLLL$3#F`s
FW7$7$$\"1LLLLLL$3#F`sFWFfcl7$7$FdsFbs7$F^sF\\s7$FjdlF\\dl7$7$Fds$\"1O
x.m0\\e[F*7$$\"12<tqJ2n5F*FK7$F`elF^dl7$Fidl7$Fjs$!1yI#p2Bp#oF*7$7$F`t
F^tFeel7$7$F`t$\"1J%yg>!\\]VF*7$$\"1S\"eDBIf%=F*F@7$7$$\"1R\"eDBIf%=F*
F@F]el7$7$FepFcp7$F`pF^p7$7$FftFdtFiel7$F[fl7$$FgdlF*$\"1mmmmmmmTF*7$7
$Fep$\"1XXXXXX&z$F*F[gl7$Fffl7$F[qFip7$7$FaqF_qFdgl7$7$Faq$\"1K6)prad>
$F*7$$\"1PJ%yg>!\\DF*F07$7$$\"1QJ%yg>!\\DF*F0F`gl7$7$F0F.7$F+F(7$FdhlF
fgl7$7$F0F\\hl7$FiglFaq7$7$Figl$\"1,+++++DJF*7$F[ilFigl7$Fchl7$F6F47$7
$F<F:F_il7$7$F@F_fl7$F\\flF`t7$Fdil7$$\"1nmmmmmmTF*F\\gl7$7$FaglFepFfi
l7$Fjil7$F0F`hl7$7$F@F:7$$\"1++++]7yXF*$!1,+++]7.xF*7$7$FKFIF_jl7$7$FK
Fael7$F^elFds7$Fhjl7$F@Fcfl7$Fejl7$FQFO7$7$FWFUF\\[m7$7$FWFbdl7$F_dlFb
w7$Fa[mFgjl7$7$FWFen7$Fjn$!1\"4444fYo(F*7$7$F`oF^oFe[m7$7$F`oFgbl7$Fdb
lFgx7$F\\\\m7$FcclFacl7$7$FgclFgvF^\\m7$F`\\m7$FWFfdl7$Fi[m7$Ffo$!1cp3
EyMavF*7$7$FjoF(Fd\\m7$Fh\\m7$FhqFfq7$7$F^rF\\rFj\\m7$7$Fi`lFg`l7$Fd`l
Fc\\l7$F_]m7$$\"1yI#p2Bp#oF*Ffal7$7$F\\blFbzFa]m7$Fe]mF[\\m7$F\\]m7$Fd
rFbr7$7$FhrF^pFh]m7$Fj]m7$F\\uFjt7$7$FbuF`uF\\^m7$7$FbuFi^l7$Ff^lF_^l7
$Fa^m7$Ff_lFd_l7$7$Fj_lFh[lFc^m7$Fe^m7$F^rF]al7$F^^m7$$\"1cp3EyMavF*Ff
u7$7$F\\vF\\sFi^m7$F]_m7$$\"1\"4444fYo(F*Ffw7$7$F\\xF`vF__m7$7$F^yF`v7
$FcyFay7$7$FgyF`xFf_m7$Fh_m7$$\"1,+++]7.xF*$!1++++]7yXF*7$7$F][lF[zFj_
m7$7$F][lF[]l7$F`]lF^]l7$7$Fd]lFa[lFc`m7$Fe`mF`^m-%'COLOURG6&%$RGBG\"
\"\"FgvFgv-%+AXESLABELSG6$%\"xG%\"yG" 2 548 548 548 2 0 1 0 2 9 0 4 2 
1.000000 45.000000 45.000000 10030 10061 10056 10074 0 0 0 20530 0 
12020 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 21 "EvA:=eigenvectors(A);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$EvAG6$7%\"\"\"F'<#-%'vectorG6#7$!\"\"F'7%\"\"&F'<#-F
*6#7$F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "Ev1:=(EvA[1][3
][1]);Ev2:=EvA[2][3][1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$Ev1G-%'
vectorG6#7$!\"\"\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$Ev2G-%'ve
ctorG6#7$\"\"\"F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 141 "with(
plottools):\nl1 := arrow([0,0], Ev1, .01, .04, .02, color=green):l2 :=
 arrow([0,0], Ev2, .01, .04, .02, color=green):display(\{l1,l2,P1\});
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 13 "" 1 "" {INLPLOT "6
(-%'CURVESG6[t7$7$$!1+++++++v!#;$\"1LLLLLL$e$F*7$$!1PJ%yg>!\\vF*$\"1++
++++]PF*7$F-7$$!15Uot%*ylvF*$\"15Uot%*y:QF*7$7$$!1KbUSB(Gn(F*$\"1*****
******\\P%F*F37$7$F:$\"1++++++vVF*7$$!1-+++]7.xF*$\"1,+++]7yXF*7$7$$!1
%)[`R\"eDt(F*$\"1+++++++]F*FB7$FH7$$!1Q_4Q_4QxF*$\"1Q_4Q_4Q_F*7$7$$!1L
LLLLL3xF*$\"1++++++DcF*FN7$7$$!1MLLLLL3xF*FW7$$!1#4444fYo(F*$\"1#4444f
'4eF*7$7$$!1r&G9dG9d(F*$\"1++++++]iF*Fgn7$F]o7$$!1dp3EyMavF*$\"1dp3EyM
/jF*7$7$F($\"1nmmmmm;kF*Fco7$7$$!1++++++voF*$\"1cp3EyMH>F*7$$!1iRV4:kA
rF*$\"1+++++++DF*7$Fbp7$$!1+++]i:&G(F*$\"1+++]i:5HF*7$7$$!1?5bxQpftF*$
\"1++++++DJF*Fhp7$F^qF'7$Fio7$$!1+++++vVtF*$\"1+++++v=nF*7$7$$!1++++++
DsF*$\"1++++++voF*Feq7$F[r7$$!1[VI\"R<_1(F*$\"1[VI\"R<_1(F*7$7$F^p$\"1
++++++DsF*Far7$7$$!1++++++]iF*$\"1X1eA.Hhw!#<7$$!1tsssssAlF*$\"1++++++
]7F*7$Fas7$$!1xI#p2Bp#oF*$\"1xI#p2Bp#=F*7$7$$!1J%yg>!\\]oF*$\"1++++++v
=F*Fgs7$F]t7$$!1,+++++voF*$\"1dp3EyMH>F*7$Fgr7$$!1+++++v=nF*$\"1+++++v
VtF*7$7$$!1nmmmmm;kF*$\"1+++++++vF*Fit7$F_u7$$!1dp3EyM/jF*$\"1dp3EyMav
F*7$7$F\\s$\"1r&G9dG9d(F*Feu7$7$$!1++++++DcF*$!1LLLLLL$3#F`s7$$!1A\"\\
'fQandF*\"\"!7$Fdv7$$!1+++++DJgF*$\"1+++++]iSF`s7$7$$!1!o)=IGXnhF*$Fao
F`sFiv7$F_wF[s7$F[v7$$!1#4444f'4eF*$\"1#4444fYo(F*7$7$F`v$\"1MLLLLL3xF
*Few7$7$$!1+++++++]F*$!12<tqJ2n5F*7$$!1baaaaaH`F*$F]sF`s7$Fdx7$F`v$!1M
LLLLL$3#F`s7$7$F`v$\"1LLLLLL3xF*7$$!1Q_4Q_4Q_F*$\"1Q_4Q_4QxF*7$7$F`x$
\"1%)[`R\"eDt(F*F`y7$7$$!1++++++vVF*$!1R\"eDBIf%=F*7$$!1Ox.m0\\e[F*$!1
++++++]7F*7$F_zF_x7$Ffy7$$!1,+++]7yXF*$\"1-+++]7.xF*7$7$F[z$\"1KbUSB(G
n(F*Ffz7$7$$!1++++++]PF*$!1QJ%yg>!\\DF*7$$!1XXXXXX&z$F*$!1+++++++DF*7$
Fe[l7$$!1mmmmmmmTF*$FcvF*7$7$$!1J%yg>!\\]VF*$!1++++++v=F*F[\\l7$F`\\l7
$F[z$!1S\"eDBIf%=F*7$7$$!1***********\\P%F*F][l7$$!15Uot%*y:QF*$\"15Uo
t%*ylvF*7$7$Fa[l$\"1PJ%yg>!\\vF*F]]l7$7$$!1,+++++DJF*$!1K6)prad>$F*7$F
j]lFh]l7$7$Fj]l$!1++++++DJF*7$Fa[l$!1PJ%yg>!\\DF*7$7$F_^l$\"1?5bxQpftF
*7$$!1LLLLLL$e$F*Fbu7$Fh^lFc]l7$7$Fh[lFf[l7$Fc[lFa[l7$7$Fb^lFa[l7$F_^l
Fj]l7$Fe^l7$$!1+++]i:5HF*$\"1+++]i:&G(F*7$7$Fh[l$\"1iRV4:kArF*Fc_l7$F]
_l7$F^\\l$!1nmmmmmmTF*7$7$Fc\\lFa\\lF]`l7$7$Fc\\l$\"1J%yg>!\\]oF*7$$!1
dp3EyMH>F*$\"1,+++++voF*7$7$$!1cp3EyMH>F*F^rFi_l7$7$FbzF`z7$F]zF[z7$7$
Fg\\lF[zFa`l7$Fc`l7$$!1xI#p2Bp#=F*$\"1xI#p2Bp#oF*7$7$Fbz$\"1tsssssAlF*
Feal7$7$FgxFex7$FbxF`x7$F`blF`al7$7$Fgx$\"1!o)=IGXnhF*7$$!1X1eA.HhwF`s
F`o7$FfblF[bl7$7$FgvFev7$FbvF`v7$7$FjxF`vF_bl7$Fcbl7$$!1+++++]iSF`s$\"
1+++++DJgF*7$7$Fgv$\"1A\"\\'fQandF*F`cl7$F[cl7$F\\wFjv7$7$FbwF`wFjcl7$
7$Fbw$\"1baaaaaH`F*7$$\"1MLLLLL$3#F`sFW7$7$$\"1LLLLLL$3#F`sFWFfcl7$7$F
dsFbs7$F^sF\\s7$FjdlF\\dl7$7$Fds$\"1Ox.m0\\e[F*7$$\"12<tqJ2n5F*FK7$F`e
lF^dl7$Fidl7$Fjs$!1yI#p2Bp#oF*7$7$F`tF^tFeel7$7$F`t$\"1J%yg>!\\]VF*7$$
\"1S\"eDBIf%=F*F@7$7$$\"1R\"eDBIf%=F*F@F]el7$7$FepFcp7$F`pF^p7$7$FftFd
tFiel7$F[fl7$$FgdlF*$\"1mmmmmmmTF*7$7$Fep$\"1XXXXXX&z$F*F[gl7$Fffl7$F[
qFip7$7$FaqF_qFdgl7$7$Faq$\"1K6)prad>$F*7$$\"1PJ%yg>!\\DF*F07$7$$\"1QJ
%yg>!\\DF*F0F`gl7$7$F0F.7$F+F(7$FdhlFfgl7$7$F0F\\hl7$FiglFaq7$7$Figl$
\"1,+++++DJF*7$F[ilFigl7$Fchl7$F6F47$7$F<F:F_il7$7$F@F_fl7$F\\flF`t7$F
dil7$$\"1nmmmmmmTF*F\\gl7$7$FaglFepFfil7$Fjil7$F0F`hl7$7$F@F:7$$\"1+++
+]7yXF*$!1,+++]7.xF*7$7$FKFIF_jl7$7$FKFael7$F^elFds7$Fhjl7$F@Fcfl7$Fej
l7$FQFO7$7$FWFUF\\[m7$7$FWFbdl7$F_dlFbw7$Fa[mFgjl7$7$FWFen7$Fjn$!1\"44
44fYo(F*7$7$F`oF^oFe[m7$7$F`oFgbl7$FdblFgx7$F\\\\m7$FcclFacl7$7$FgclFg
vF^\\m7$F`\\m7$FWFfdl7$Fi[m7$Ffo$!1cp3EyMavF*7$7$FjoF(Fd\\m7$Fh\\m7$Fh
qFfq7$7$F^rF\\rFj\\m7$7$Fi`lFg`l7$Fd`lFc\\l7$F_]m7$$\"1yI#p2Bp#oF*Ffal
7$7$F\\blFbzFa]m7$Fe]mF[\\m7$F\\]m7$FdrFbr7$7$FhrF^pFh]m7$Fj]m7$F\\uFj
t7$7$FbuF`uF\\^m7$7$FbuFi^l7$Ff^lF_^l7$Fa^m7$Ff_lFd_l7$7$Fj_lFh[lFc^m7
$Fe^m7$F^rF]al7$F^^m7$$\"1cp3EyMavF*Ffu7$7$F\\vF\\sFi^m7$F]_m7$$\"1\"4
444fYo(F*Ffw7$7$F\\xF`vF__m7$7$F^yF`v7$FcyFay7$7$FgyF`xFf_m7$Fh_m7$$\"
1,+++]7.xF*$!1++++]7yXF*7$7$F][lF[zFj_m7$7$F][lF[]l7$F`]lF^]l7$7$Fd]lF
a[lFc`m7$Fe`mF`^m-%'COLOURG6&%$RGBG\"\"\"FgvFgv-F$6#7*7$$\"+2R`NN!#7$!
+2R`NNFbam7$FcamF`am7$$\"+hYkk(*!#5$\"+R`NN)*Fiam7$$\"+W'y&e'*Fiam$\"+
c8UT**Fiam7$$F[amFgvFbbm7$F_bmF]bm7$FjamFgamF_am-%)POLYGONSG6&7&F_amFe
amFfamFdbm7%F\\bmFabmFcbm-%&STYLEG6#%,PATCHNOGRIDG-Fh`m6&Fj`mFgv$\"*++
++\"!\")Fgv-F$6#7*7$F`amF`am7$FcamFcam7$$!+R`NN)*FiamFgam7$$!+c8UT**Fi
amF]bm7$$!\"\"FgvFbbm7$$!+W'y&e'*FiamF_bm7$$!+hYkk(*FiamFjamFfcm-Ffbm6
&7&FfcmFgcmFhcmFddm7%F[dmF^dmFadmFjbmF^cm-%+AXESLABELSG6$%\"xG%\"yG" 
2 549 549 549 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 6217 0 0 0 0 0 0 0 }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "evalf(dotprod(Ev1,Ev2));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 30 "x1:=evalm(Ev1&*vector([x,y]));" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%#x1G,&%\"xG!\"\"%\"yG\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 30 "y1:=evalm(Ev2&*vector([x,y]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#y1G,&%\"xG\"\"\"%\"yGF'" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 33 "sols:=solve(\{x1=X1,y1=Y1\},\{x,y\});" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%%solsG<$/%\"yG,&%#X1G#\"\"\"\"\"#%#Y1GF*/%\"xG
,&F)#!\"\"F,F-F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "simplif
y(subs(sols,Q(x,y)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*$)%#X1G\"
\"#\"\"\"#\"\"\"F'*$)%#Y1GF'F(#\"\"&F'" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "29 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }