{VERSION 5 0 "IBM INTEL NT" "5.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 "Warning" -1 7 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 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 13 "with(linalg):" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 12 "Set 3.3, Q6:" }{MPLTEXT 1 0 0 "" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "A:=matrix(2,2,[-8,-2,2,-4]
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7$7$!\")!\"#7$
\"\"#!\"%" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 75 "L^2 + 12 L +36     h
as  roots:   -6  +- sqrt(36-36)     -6 is a double root" }{MPLTEXT 1 
0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "C:=evalm(A+6);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CG-%'matrixG6#7$7$!\"#F*7$\"\"#F,
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gaussjord(C);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7$7$\"\"\"F(7$\"\"!F*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "q:=[-1,1];" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%\"qG7$!\"\"\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "stackmatrix(evalm(C^2),q);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%'matrixG6#7%7$\"\"!F(F'7$!\"\"\"\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gaussjord(%);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%'matrixG6#7%7$\"\"\"!\"\"7$\"\"!F+F*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "s:=[1,1];" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"sG7$\"\"\"F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 16 "qs:=evalm(C&*s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qsG-%'v
ectorG6#7$!\"%\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "y:=e
valm((c1*q+c2*(qs*x+s))*exp(-6*x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%\"yG-%'vectorG6#7$*&-%$expG6#,$*&\"\"'\"\"\"%\"xGF0!\"\"F0,&%#c1GF2
*&%#c2GF0,&*&\"\"%F0F1F0F2F0F0F0F0F0*&F*F0,&F4F0*&F6F0,&*&F9F0F1F0F0F0
F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "simplify(evalm(
[diff(y[1],x),diff(y[2],x)]-A&*y));  # just checking" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#-%'vectorG6#7$\"\"!F'" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 3 "Q8:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "restart:with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 80 
"Warning, the protected names norm and trace have been redefined and u
nprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "A:=matrix(3
,3,[-3,-1,2,0,-4,2,0,1,-5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG
-%'matrixG6#7%7%!\"$!\"\"\"\"#7%\"\"!!\"%F,7%F.\"\"\"!\"&" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "chp:=L^3+12*L^2+(12+15+18)*L+54;" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$chpG,**$)%\"LG\"\"$\"\"\"F**&\"#7F
*)F(\"\"#F*F**&\"#XF*F(F*F*\"#aF*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
25 "Trying for multiple root:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 21 "gcd(diff(chp,L),chp);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,&%\"LG\"\"\"\"\"$F%" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 20 "-3 is a double root!" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 19 "quo(chp,(L+3)^2,L);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,&%\"LG\"\"\"\"\"'F%" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 46 "and -6 is the other (with which we start now):" }{MPLTEXT 1 0 
0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "C:=evalm(A+6);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CG-%'matrixG6#7%7%\"\"$!\"\"\"\"#7
%\"\"!F,F,7%F.\"\"\"F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "g
aussjord(C);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%\"\"\"
\"\"!F(7%F)F(F(7%F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "
q1:=[-1,-1,1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#q1G7%!\"\"F&\"\"
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "C:=evalm(A+3);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CG-%'matrixG6#7%7%\"\"!!\"\"\"\"#F
)7%F*\"\"\"!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gaussjor
d(C);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%\"\"!\"\"\"!
\"#7%F(F(F(F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "q2:=[1,0,0
];   q3:=[0,2,1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#q2G7%\"\"\"\"
\"!F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#q3G7%\"\"!\"\"#\"\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "y:=evalm(c1*q1*exp(-6*x)+c2*
q2*exp(-3*x)+c3*q3*exp(-3*x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"
yG-%'vectorG6#7%,&*&%#c1G\"\"\"-%$expG6#,$*&\"\"'F,%\"xGF,!\"\"F,F4*&%
#c2GF,-F.6#,$*&\"\"$F,F3F,F4F,F,,&F*F4*(\"\"#F,%#c3GF,F7F,F,,&F*F,*&F?
F,F7F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "simplify(evalm(
[seq(diff(y[i],x),i=1..3)]-A&*y));   # checking" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%'vectorG6#7%\"\"!F'F'" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 4 "Q14:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 27 "A:=matrix(2,2,[2,3,1/3,2]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"AG-%'matrixG6#7$7$\"\"#\"\"$7$#\"\"\"F+F*" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 62 "L^2 - 4 L + 3     has roots      2
 +- sqrt(4-3)  =   3  and  1" }{MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"\"$\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "gaussjord(A-3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7$7
$\"\"\"!\"$7$\"\"!F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "q1:
=[3,1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#q1G7$\"\"$\"\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "gaussjord(A-1);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#-%'matrixG6#7$7$\"\"\"\"\"$7$\"\"!F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "q2:=[-3,1];" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%#q2G7$!\"$\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 33 "Solving equations for  c1 and c2:" }{MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "gaussjord(augment(q1,q2,[0,2
]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7$7%\"\"\"\"\"!F(7
%F)F(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 34 "implying that  c1 = 1 \+
 and  c2 = 1" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 32 "y:=evalm(q1*exp(3*x)+q2*exp(x));" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"yG-%'vectorG6#7$,&*&\"\"$\"\"\"-%$expG6#,$*&F+F,%\"xGF,F,F,F
,*&F+F,-F.6#F2F,!\"\",&F-F,F4F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 54 "evalm([diff(y[1],x),diff(y[2],x)]-A&*y);   #  checking" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7$\"\"!F'" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "eval(y[1],x=0);  eval(y[2],x=0);   \+
# verifying  initial values" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"#" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 3 "Q1:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 38 "A:=matrix(3,3,[-1,-2,1,2,2,-1,0,2,1]);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7%!\"\"!\"#\"\"\"7%\"\"#F.F*
7%\"\"!F.F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "chp:=L^3-2*L
^2+(2+4-1)*L-4;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$chpG,**$)%\"LG\"
\"$\"\"\"F**&\"\"#F*)F(F,F*!\"\"*&\"\"&F*F(F*F*\"\"%F." }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 43 "1 is clearly a root (add the coefficients
)!" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "qu
o(chp,(L-1),L);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*$)%\"LG\"\"#\"\"
\"F(F&!\"\"\"\"%F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 62 "1/2 +- sqrt
(1/4-4) =  1/2 +- I*sqrt(15)/2    are the other two" }{MPLTEXT 1 0 0 "
" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "gaussjor
d(A-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%\"\"\"\"\"!
#!\"\"\"\"#7%F)F(F)7%F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
12 "q1:=[1,0,2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#q1G7%\"\"\"\"\"
!\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "gaussjord(A-(1+I*
sqrt(15))/2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%\"\"
\"\"\"!,&#F(\"\"%F(*&^#F+F(\"#:#F(\"\"#F(7%F)F(,&F+F(*&^##!\"\"F,F(F/F
0F(7%F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "qc:=evalm([-
%[1,3],-%[2,3],1]*4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qcG-%'vect
orG6#7%,&\"\"\"!\"\"*&^#F+F*\"#:#F*\"\"#F*,&F*F+*&F.F/^#F*F*F*\"\"%" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "yc:=evalm(qc*exp(x/2)*(cos
(sqrt(15)/2*x)+I*sin(sqrt(15)/2*x)));" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%#ycG-%'vectorG6#7%*(-%$expG6#,$*&\"\"#!\"\"%\"xG\"\"\"F2F2,&-%$co
sG6#,$*(F/F0\"#:#F2F/F1F2F2F2*&-%$sinGF6F2^#F2F2F2F2,&F2F0*&^#F0F2F9F:
F2F2*(F*F2F3F2,&F2F0*&F9F:F>F2F2F2,$*(\"\"%F2F*F2F3F2F2" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "assume(x,real):" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 36 "y2:=[Re(yc[1]),Re(yc[2]),Re(yc[3])];" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y2G7%*&-%$expG6#,$*&\"\"#!\"\"%#x|i
rG\"\"\"F/F/,&-%$cosG6#,$*(F,F-\"#:#F/F,F.F/F/F-*&-%$sinGF3F/F6F7F/F/*
&F'F/,&F1F-F8F-F/,$*(\"\"%F/F'F/F1F/F/" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 36 "y3:=[Im(yc[1]),Im(yc[2]),Im(yc[3])];" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%#y3G7%*&-%$expG6#,$*&\"\"#!\"\"%#x|irG\"\"\"F/F/
,&*&-%$cosG6#,$*(F,F-\"#:#F/F,F.F/F/F/F7F8F--%$sinGF4F-F/*&F'F/,&F1F/F
9F-F/,$*(\"\"%F/F'F/F9F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
35 "y:=evalm(c1*q1*exp(x)+c2*y2+c3*y3);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%\"yG-%'vectorG6#7%,(*&%#c1G\"\"\"-%$expG6#%#x|irGF,F,*(%#c2GF,
-F.6#,$*&\"\"#!\"\"F0F,F,F,,&-%$cosG6#,$*(F7F8\"#:#F,F7F0F,F,F8*&-%$si
nGF<F,F?F@F,F,F,*(%#c3GF,F3F,,&*&F:F,F?F@F8FBF8F,F,,&*(F2F,F3F,,&F:F8F
AF8F,F,*(FEF,F3F,,&FGF,FBF8F,F,,(*(F7F,F+F,F-F,F,**\"\"%F,F2F,F3F,F:F,
F,**FPF,FEF,F3F,FBF,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "s
implify(evalm([seq(diff(y[i],x),i=1..3)]-A&*y));   #verifying" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7%\"\"!F'F'" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 3 "Q2:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning
, the protected names norm and trace have been redefined and unprotect
ed\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "A:=matrix(4,4,[21,-
37/2,9,9/2,20,-17,10,5,-3,7/2,-1,1/2,-6,7,2,-1]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"AG-%'matrixG6#7&7&\"#@#!#P\"\"#\"\"*#F.F-7&\"#?!#<
\"#5\"\"&7&!\"$#\"\"(F-!\"\"#\"\"\"F-7&!\"'F8F-F9" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 15 "gausselim(A-L);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%'matrixG6#7&7&!\"$#\"\"(\"\"#,&\"\"\"!\"\"%\"LGF.#F-F
+7&\"\"!,&\"\"'F-*(F*F-F4F.F/F-F.,(F+F-*&#\"#?\"\"$F-F/F-F.*&#F-F:F-*$
)F/F+F-F-F-,&\"\")F-*&F4F.F/F-F.7&F2F2,&\"\"%F-*&F+F-F/F-F-,&F+F.F/F.7
&F2F2F2,$*&,*\"#=F-*&F:F-F/F-F.*&FDF-F>F-F.*$)F/F:F-F-F-,&\"#OF.*&F*F-
F/F-F-F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "chp:=expand(-
3*(4+2*L)*(L^3-4*L^2-3*L+18)/6);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
$chpG,,\"#O!\"\"*&\"#7\"\"\"%\"LGF*F'*&\"#6F*)F+\"\"#F*F**&F/F*)F+\"\"
$F*F**$)F+\"\"%F*F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "gcd(
chp,diff(chp,L));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*$)%\"LG\"\"#\"
\"\"F(F&!\"\"\"\"'F)" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 55 "1/2 +- sq
rt(1/4+6)  =  3 and  -2  are both DOUBLE roots" }{MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "gaussjord(A+2);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#-%'matrixG6#7&7&\"\"\"\"\"!\"\"#F(7&F)F(F*F(7&F
)F)F)F)F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "q11:=[-2,-2,1,
0];   q12:=[-1,-1,0,1];   " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$q11G7
&!\"#F&\"\"\"\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$q12G7&!\"\"F&
\"\"!\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "C:=evalm(A-3
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CG-%'matrixG6#7&7&\"#=#!#P\"
\"#\"\"*#F.F-7&\"#?!#?\"#5\"\"&7&!\"$#\"\"(F-!\"%#\"\"\"F-7&!\"'F8F-F9
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gaussjord(C);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7&7&\"\"\"\"\"!F)#F(\"\"#7&F)F(F
)F)7&F)F)F(#!\"\"F+7&F)F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 15 "q2:=[-1,0,1,2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#q2G7&!\"\"
\"\"!\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "C2:=eva
lm(C^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#C2G-%'matrixG6#7&7&!$+
\"\"$+\"!#]!#DF)7&\"#DF-F/\"\"!7&\"#]F,F0F/" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 30 "gaussjord(stackmatrix(C2,q2));" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#-%'matrixG6#7'7&\"\"\"\"\"!F)#!\"&\"\"#7&F)F(F)!\"$7&
F)F)F(#!\"\"F,7&F)F)F)F)F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
13 "s:=[5,6,1,2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG7&\"\"&\"\"
'\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "qs:=evalm(C
&*s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qsG-%'vectorG6#7&!\"$\"\"!
\"\"$\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "y:=evalm((c1*
q11+c2*q12)*exp(-2*x)+(c3*q2+c4*(qs*x+s))*exp(3*x));" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%\"yG-%'vectorG6#7&,&*&-%$expG6#,$*&\"\"#\"\"\"%\"x
GF1!\"\"F1,&*&F0F1%#c1GF1F3%#c2GF3F1F1*&-F,6#,$*&\"\"$F1F2F1F1F1,&%#c3
GF3*&%#c4GF1,&*&F=F1F2F1F3\"\"&F1F1F1F1F1,&F*F1*(\"\"'F1F9F1FAF1F1,&*&
F+F1F6F1F1*&F9F1,&F?F1*&FAF1,&*&F=F1F2F1F1F1F1F1F1F1F1,&*&F+F1F7F1F1*&
F9F1,&*&F0F1F?F1F1*&FAF1,&*&FGF1F2F1F1F0F1F1F1F1F1" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 49 "simplify(evalm([seq(diff(y[i],x),i=1..4)]-A
&*y));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7&\"\"!F'F'F'" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "59 0 1" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }