{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 "" -1 258 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 0 0 0 0 0 1 0 0 0 0 
0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 
1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }1 0 0 0 8 4 0 
0 0 0 0 0 -1 0 }{PSTYLE "Heading 2" 3 4 1 {CSTYLE "" -1 -1 "" 1 14 0 
0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 8 2 0 0 0 0 0 0 -1 0 }{PSTYLE "Num
eric Item" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 
1 }0 0 0 -24 -1 -1 0 0 0 0 0 0 256 4 }{PSTYLE "Test Item" 0 257 1 
{CSTYLE "" -1 -1 "" 0 1 101 105 114 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -50 
-1 -1 0 0 0 0 0 0 257 0 }{PSTYLE "R3 Font 0" -1 258 1 {CSTYLE "" -1 
-1 "Times" 0 12 255 0 0 1 2 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 
0 0 -1 0 }{PSTYLE "R3 Font 2" -1 259 1 {CSTYLE "" -1 -1 "Courier" 0 
10 0 0 0 1 2 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "" 0 265 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 
1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(linalg):\n" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 215 "You will see a warning about some
thing called trace and norm.  These don't concern us here, so just ign
ore the warning.  Note also that the with(linalg) command needs to be \+
done only once in any given Maple session." }}}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 61 "eq1 := x-2*y+3*z=9;\neq2 := -x+3*y=-4;\ne
q3 := 2*x-5*y+5*z=17;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "
solve(\{eq1,eq2,eq3\},\{x,y,z\});\n" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" 
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "A := matrix(3,4,[1,-2,3,9,
-1,3,0,-4,2,-5,5,17]);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 
"B := gausselim(A);\nbacksub(B);\n" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "gaussjord(A);\n" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "rref(A);\n" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 21 "rref(A);\nbacksub(%);\n" }}}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}{PARA 265 "" 0 "" {TEXT 258 9 "Exercises" }}{PARA 0 "" 0 "" 
{TEXT -1 2 "  " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 
0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }
}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "
" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 31 "p := y=a*x^4+b*x^3+c*x^2+d*x+e;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 123 "eq1 := subs(x=-2,y=3,p);\neq2 := s
ubs(x=-1,y=5,p);\neq3 := subs(x=0,y=1,p);\neq4 := subs(x=1,y=4,p);\neq
5 := subs(x=2,y=10,p);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 
"solve(\{eq1,eq2,eq3,eq4,eq5\},\{a,b,c,d,e\});\npoly := subs(%,p);\n" 
}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 75 "We can plot the data points and
 the polynomial with the following commands." }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 107 "data := [[-2,3],[-1,5],[0,1],[1,4],[2,10]];\npl
ot([data,rhs(poly)],x=-3..3,style=[POINT,LINE],axes=BOXED);\n\n" }}}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 4 "" 0 "" {TEXT 
-1 44 "More on Elementary Row Operations with Maple" }}{PARA 0 "" 0 "
" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "?swaprow;" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "A := array( [[1,2,x],[3,4
,y]] );\nswaprow(A, 1, 2);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 8 "?mulrow;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "mulrow(A, \+
2, 2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "?addrow;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "addrow(a,1,2,10);" }}}}
{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 
33 1 1 }