{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 Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart:with(linalg) :" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm an d trace have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "x:=[1,2,3,4,5]; y:=[2,3,2,2,1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG7'\"\"\"\"\"#\"\"$\"\"%\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG7'\"\"#\"\"$F&F&\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "add(x[k],k=1..5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "add(x[k]^2,k=1..5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#b" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A:=matrix(3,3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "for i t o 3 do for j to 3 do A[i,j]:=add(x[k]^(i+j-2),k=1..5) end do end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%\"\"&\"#:\"#b7%F)F*\"$D#7%F*F,\"$z *" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "B:=[seq(add(y[k]*x[k]^ i,k=1..5),i=0..2)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG7%\"#5\"# F\"#*)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A:=augment(A,B); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&\"\"&\"#:\"# b\"#57&F+F,\"$D#\"#F7&F,F/\"$z*\"#*)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A:=addrow(A,1,2,-3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&\"\"&\"#:\"#b\"#57&\"\"!F-\"#g!\"$7&F,\"$D#\" $z*\"#*)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "A:=addrow(A,1,3 ,-11);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&\"\"& \"#:\"#b\"#57&\"\"!F-\"#g!\"$7&F/F0\"$u$!#@" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A:=addrow(A,2,3,-6);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&\"\"&\"#:\"#b\"#57&\"\"!F-\"#g!\"$7&F/F/\" #9F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "swaprow(A,1,2);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7&\"\"!\"#5\"#g!\"$7&\" \"&\"#:\"#bF)7&F(F(\"#9F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "c:=-3/14;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG#!\"$\"#9" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "b:=(-3-60*c)/10;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG#\"#p\"#q" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 20 "a:=(10-55*c-15*b)/5;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG#\"\"(\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "x :='x':" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "LSP:=a+b*x+c*x^2; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$LSPG,(#\"\"(\"\"&\"\"\"*&#\"#p \"#qF)%\"xGF)F)*&#\"\"$\"#9F)*$)F.\"\"#F)F)!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 " Warning, the name changecoords has been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "PL1:=pointplot([[1,2],[2,3],[3,2],[4,2],[ 5,1]]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "PL2:=plot(LSP,x= 0.5..5.5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display(PL1,P L2);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6&-%'POINT SG6'7$$\"\"\"\"\"!$\"\"#F)7$F*$\"\"$F)7$F-F*7$$\"\"%F)F*7$$\"\"&F)F'-% 'CURVESG6$7S7$$\"3++++++++]!#=$\"3>9dG9dGR=!#<7$$\"3sKLL3x&)*3'F=$\"3 \\ci(y=:3#>F@7$$\"3-nm\"H2P\"QqF=$\"3S[@#p*>h()>F@7$$\"3*QLLeRwX5)F=$ \"3E-&p\\!z7e?F@7$$\"3iML$3x%3y\"*F=$\"3&*zA&eb)=C@F@7$$\"3mm;z%4\\Y- \"F@$\"3Ih!oKWJ]=#F@7$$\"3OL$eR-/P7\"F@$\"3z5Y(yBqqB#F@7$$\"3%)**\\il' piA\"F@$\"3Kg?l2@_'G#F@7$$\"3UL$e*)>VBL\"F@$\"3f,\"GZ#H#HL#F@7$$\"3:+] 7`l2Q9F@$\"3mD:%R*fPuBF@7$$\"3%ommTIOoa\"F@$\"3L,SFnm,7CF@7$$\"3YLL3_> jU;F@$\"3m\\5[`:(4W#F@7$$\"37++]i^Z]')oCF@7$$\"33++](=h( e=F@$\"397zy!y^=\\#F@7$$\"3/++]P[6j>F@$\"3ygeF(z^#4DF@7$$\"3kL$e*[z(y0 #F@$\"3#[Hr$Q$45_#F@7$$\"3)pmmTXg0<#F@$\"30FX*z:\")*HDF@7$$\"3%ommmJJieCF@7$$\"3GLL3_?`(*HF@$\"3Y)3#y20JHCF@7$$\"3fL$e*)>p x5$F@$\"3Wg()o6>v$R#F@7$$\"33+]Pf4t.KF@$\"3%=5+G$zbeBF@7$$\"3uLLe*GstI $F@$\"3U$\\Q]^9hJ#F@7$$\"30+++DRW9MF@$\"3W%)zdH>NF@ $\"3+2bEq00:AF@7$$\"3F+]i!RU0i$F@$\"3'>![$))4$*)f@F@7$$\"3+++v=S2LPF@$ \"37Tz;7E\\$4#F@7$$\"3Jmmm\"p)=MQF@$\"3q7LOb'*>H?F@7$$\"3B++](=]@%RF@$ \"3CCs21jrb>F@7$$\"35L$e*[$z*RSF@$\"3Y+ao*R:[)=F@7$$\"3e++]iC$p9%F@$\" 3WYO1u'3E!=F@7$$\"3/m;H2qcZUF@$\"3Tn!4$=?y?vV$RCTIA\"F@7$$\"3Cn;HdO=y[F@$\"3by,8\\w?46F@7$$\"3a+++D>#[(\\F@$ \"3S?%exNF/+\"F@7$$\"3SnmT&G!e&3&F@$\"3nZGN+`I3()F=7$$\"3#RLLL)Qk%=&F@ $\"3bdiJ**\\j/vF=7$$\"37+]iSjE!H&F@$\"3!R^#)f-W\\<'F=7$$\"3a+]P40O\"R& F@$\"3-!H2B+zu&[F=7$$\"3++++++++bF@$\"37Wr&G9dGR$F=-%'COLOURG6&%$RGBG$ \"#5!\"\"$F)F)Fb\\l-%+AXESLABELSG6$Q\"x6\"Q!Fg\\l-%%VIEWG6$;$F5Fa\\l$ \"#bFa\\l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "add(y[k]^2,k=1..5)-evalm(B &* [a,b,c]);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6##\"#;\"#N" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "add((y[k]-eval(LSP,x=k))^2,k=1..5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"#;\"#N" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "sqrt(%/(5-3.));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+QW\"4y%!#5" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "restart: with(linalg):" }} {PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm and tra ce have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "x:=[1,2,3,4,5]; y:=[2,3,2,2,1]; w:=[4,2,1,1,2]; " }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG7'\"\"\"\"\"#\"\"$\"\"%\"\"&" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG7'\"\"#\"\"$F&F&\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG7'\"\"%\"\"#\"\"\"F(F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A:=matrix(3,3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "for i to 3 do for j to 3 do A[i,j]:=add(w[k ]*x[k]^(i+j-2),k=1..5) end do end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrix G6#7%7%\"#5\"#D\"#()7%F)F*\"$h$7%F*F,\"%B;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 46 "B:=[seq(add(w[k]*y[k]*x[k]^i,k=1..5),i=0..2)];" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A:=augment(A,B);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"BG7%\"#?\"#W\"$K\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&\"#5\"#D\"#()\"#?7&F+F,\"$h$\"#W7&F,F/\"%B ;\"$K\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A:=addrow(A,1,2, -5/2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&\"#5\" #D\"#()\"#?7&\"\"!#\"#\\\"\"##\"$(GF2!\"'7&F,\"$h$\"%B;\"$K\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "A:=addrow(A,1,3,-87/10);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&\"#5\"#D\"#()\"# ?7&\"\"!#\"#\\\"\"##\"$(GF2!\"'7&F/F3#\"%h')F*!#U" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 25 "A:=addrow(A,2,3,-287/49);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&\"#5\"#D\"#()\"#?7&\"\"!#\"#\\ \"\"##\"$(GF2!\"'7&F/F/#\"$G\"\"\"&#!#[\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "c:=-48/7/(128/5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG#!#:\"#c" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "b:= (-6-287/2*c)/(49/2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG#\"$>&\" $#R" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a:=(20-87*c-25*b)/10 ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG#\"#]\"#\\" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "x:='x':" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 18 "WLSP:=a+b*x+c*x^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%WLSPG,(#\"#]\"#\\\"\"\"*&#\"$>&\"$#RF)%\"xGF)F)*&#\"#:\"#cF)*$)F .\"\"#F)F)!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plo ts):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords ha s been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "PL1:= pointplot([[1,2],[2,3],[3,2],[4,2],[5,1]]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "PL2:=plot(WLSP,x=0.5..5.5):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 17 "display(PL1,PL2);" }}{PARA 13 "" 1 "" {GLPLOT2D 494 494 494 {PLOTDATA 2 "6&-%'POINTSG6'7$$\"\"\"\"\"!$\"\"#F )7$F*$\"\"$F)7$F-F*7$$\"\"%F)F*7$$\"\"&F)F'-%'CURVESG6$7S7$$\"3+++++++ +]!#=$\"3r(QpMnLah\"!#<7$$\"3sKLL3x&)*3'F=$\"3:%**yFTats\"F@7$$\"3-nm \"H2P\"QqF=$\"3M^%G@6f&>=F@7$$\"3*QLLeRwX5)F=$\"3;DUqFy\\<>F@7$$\"3iML $3x%3y\"*F=$\"3)*\\.p\"RK*4?F@7$$\"3mm;z%4\\Y-\"F@$\"3%o3BW*yz&4#F@7$$ \"3OL$eR-/P7\"F@$\"3?t7$*oK%*p@F@7$$\"3%)**\\il'piA\"F@$\"3KNbx*Rx6C#F @7$$\"3UL$e*)>VBL\"F@$\"36i$f!o)>*3BF@7$$\"3:+]7`l2Q9F@$\"3mR5d5kWqBF@ 7$$\"3%ommTIOoa\"F@$\"3A@%QER&[FCF@7$$\"3YLL3_>jU;F@$\"35\"y**)flZsCF@ 7$$\"37++]i^Z]F@$\"3MM_Om*ese#F@7$$\"3kL$e*[z(y0#F@$\"3l\"Hguie1h#F@7$$ \"3)pmmTXg0<#F@$\"3<#zC`z@Aj#F@7$$\"3%ommmJpx5$F@$\"3!pz!HGa+[DF@7$$\" 33+]Pf4t.KF@$\"3)y67%pd#G^#F@7$$\"3uLLe*GstI$F@$\"3Opdby&*GpCF@7$$\"30 +++DRW9MF@$\"3TL^51#p#=CF@7$$\"3:++DJE>>NF@$\"3sX*4h`7CO#F@7$$\"3F+]i! RU0i$F@$\"3*Qd%yFLx-BF@7$$\"3+++v=S2LPF@$\"3w$yFnD2,B#F@7$$\"3Jmmm\"p) =MQF@$\"3a.B6-r-f@F@7$$\"3B++](=]@%RF@$\"3?%panu(3x?F@7$$\"35L$e*[$z*R SF@$\"3;(36X#fW(*>F@7$$\"3e++]iC$p9%F@$\"3s0p>U(4X!>F@7$$\"3/m;H2qcZUF @$\"3i`Z\\q$o9\"=F@7$$\"3!3+DJ5fFN%F@$\"3g\"F@7$$\"3w**\\ilAFjXF@$\"3QNyj$owV[\"F@7$$\"3yLLL$)*ppm %F@$\"3=S,FF&*Gl8F@7$$\"3)RL$3xe,tZF@$\"3uUm(4\"zaP7F@7$$\"3Cn;HdO=y[F @$\"3&=t+I=9\\5\"F@7$$\"3a+++D>#[(\\F@$\"3e6%)QF=-%'COLOURG6&%$RGBG$\"#5!\"\"$F)F)Fb\\l-%+AXESLABELS G6$Q\"x6\"Q!Fg\\l-%%VIEWG6$;$F5Fa\\l$\"#bFa\\l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "RSS:=add(w[k]*y[k]^2,k=1..5) -1.*evalm([a,b,c] &* B);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$RSSG$\" )bxQp!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "sqrt(RSS/(5-3) *5/add(w[k],k=1..5));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+Oc'\\;%!# 5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "x:=[1,2,3,4,5]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "f[1]:=x->1/x:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "f[2]:=x->1:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 13 "f[3]:=x->x^3:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A:=matrix(3,3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "for i to 3 do for j to 3 do A[i,j]:=add(f[i](x[k])*f[ j](x[k]),k=1..5) end do end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%# \"%p_\"%+O#\"$P\"\"#g\"#b7%F+\"\"&\"$D#7%F.F1\"&:0#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "B:=[seq(add(y[k]*f[i](x[k]),k=1..5),i=1.. 3)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG7%#\"#t\"#:\"#5\"$L$" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A:=augment(A,B);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&#\"%p_\"%+O#\"$P\"\"#g \"#b#\"#t\"#:7&F-\"\"&\"$D#\"#57&F0F6\"&:0#\"$L$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "A:=addrow(A,1,2,-A[2,1]/A[1,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&#\"%p_\"%+O#\"$P\"\"#g\"# b#\"#t\"#:7&\"\"!#\"%wvF+#\"&vm'\"$z%#\"&'o7F+7&F0\"$D#\"&:0#\"$L$" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "A:=addrow(A,1,3,-A[3,1]/A[1 ,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7&#\"%p_ \"%+O#\"$P\"\"#g\"#b#\"#t\"#:7&\"\"!#\"%wvF+#\"&vm'\"$z%#\"&'o7F+7&F5F 8#\"(&oO))F:#\"&2>(F:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "A: =addrow(A,2,3,-A[3,2]/A[2,2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\" AG-%'matrixG6#7%7&#\"%p_\"%+O#\"$P\"\"#g\"#b#\"#t\"#:7&\"\"!#\"%wvF+# \"&vm'\"$z%#\"&'o7F+7&F5F5#\"):NnPF7#!'rUJ\"%)y$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "c:=A[3,4]/A[3,3];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG#!'U&G'\"):NnP" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "b:=(A[2,4]-c*A[2,3])/A[2,2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG#\"(BLD#\"'t\\o" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "a:=(A[1,4]-c*A[1,3]-b*A[1,2])/A[1,1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG#!(+6*))\"(.Z`(" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 7 "x:='x':" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "LSF:=a*f[1](x)+b*f[2](x)+c*f[3](x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$LSFG,(*(\"(+6*))\"\"\"\"(.Z`(!\"\"%\"xGF*F*#\"(BLD#\"'t\\oF(* (\"'U&G'F(\"):NnPF*F+\"\"$F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "PL3:=plot(LSF,x=0.5..5.5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display(PL1,PL3);" }}{PARA 13 "" 1 "" {GLPLOT2D 494 494 494 {PLOTDATA 2 "6&-%'POINTSG6'7$$\"\"\"\"\"!$\"\"#F)7$F*$\"\"$F)7 $F-F*7$$\"\"%F)F*7$$\"\"&F)F'-%'CURVESG6$7X7$$\"3++++++++]!#=$\"3)zj_p ko_F*F=7$$\"3=LL3FWYs_F=$\"3i5d_yk7\\5!#<7$$\"3Omm;a)G\\a&F=$\"3]7v8B8 qe6FE7$$\"3b***\\7G$Rbo _.#[8FE7$$\"3W+]i!R(*Rc'F=$\"3]&e;SK=s[\"FE7$$\"3-nm\"H2P\"QqF=$\"3'[ \\d6FFsg\"FE7$$\"3+,]PMnNrvF=$\"3r#zQs\"FE7$$\"3*QLLeRwX5)F=$\"3%* >3&fdyZ#=FE7$$\"3iML$3x%3y\"*F=$\"3ii')H0.1\"*>FE7$$\"3mm;z%4\\Y-\"FE$ \"3WJcxF22?@FE7$$\"3OL$eR-/P7\"FE$\"36Pid0H'e@#FE7$$\"3%)**\\il'piA\"F E$\"3m[WD8Jg'H#FE7$$\"3UL$e*)>VBL\"FE$\"3a9!Htd?XO#FE7$$\"3:+]7`l2Q9FE $\"3Y`(Q@Qz%>CFE7$$\"3%ommTIOoa\"FE$\"3Y#Q;D$G/lCFE7$$\"3YLL3_>jU;FE$ \"3#RP4;2Mt\\#FE7$$\"37++]i^Z]FE$\"33;_V([MBc#FE7$$\"3kL$e*[z(y0#FE$\"3 ya\"yh&)Q3d#FE7$$\"3)pmmTXg0<#FE$\"3A\"4w3.\"RvDFE7$$\"3%ommmJpx5$FE$ \"3Z;*R9Av\"4CFE7$$\"33+]Pf4t.KFE$\"39@\\1mArsBFE7$$\"3uLLe*GstI$FE$\" 3lLPx!3q#HBFE7$$\"30+++DRW9MFE$\"3qPi!G4=*zAFE7$$\"3:++DJE>>NFE$\"3t>h khp=FAFE7$$\"3F+]i!RU0i$FE$\"3!\\G;WCA><#FE7$$\"3+++v=S2LPFE$\"3ob*y60 (f0@FE7$$\"3Jmmm\"p)=MQFE$\"3fN_r2nZT?FE7$$\"3B++](=]@%RFE$\"3i(f1a93# o>FE7$$\"35L$e*[$z*RSFE$\"3ogn1dzX(*=FE7$$\"3e++]iC$p9%FE$\"3`.pjteG:= FE7$$\"3/m;H2qcZUFE$\"3;1*f#G 7FE7$$\"3Cn;HdO=y[FE$\"3t8`L$=456\"FE7$$\"3a+++D>#[(\\FE$\"37@.U(e.J)* *F=7$$\"3SnmT&G!e&3&FE$\"3/2b\">@+?j)F=7$$\"3#RLLL)Qk%=&FE$\"33z,cl%>) otF=7$$\"37+]iSjE!H&FE$\"3srF.a,0kfF=7$$\"3a+]P40O\"R&FE$\"3)z@5_.?Dc% F=7$$\"3++++++++bFE$\"3_@+:=i:$*HF=-%'COLOURG6&%$RGBG$\"#5!\"\"$F)F)F[ ^l-%+AXESLABELSG6$Q\"x6\"Q!F`^l-%%VIEWG6$;$F5Fj]l$\"#bFj]l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Cur ve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "RSS:=add(y[k]^2,k= 1..5)-1.*evalm([a,b,c] &* B);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$RS SG$\")2()>S!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "sqrt(RSS /(5-3));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+`-B$[%!#5" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{MARK "67 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }