{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 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 "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 7 "?linalg" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "with(linalg):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 23 "v1:=vector([1,0,-2,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#
v1G-%'vectorG6#7&\"\"\"\"\"!!\"#F)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "v2:=vector([0,2,-3,1]);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%#v2G-%'vectorG6#7&\"\"!\"\"#!\"$\"\"\"" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 22 "v3:=vector([1,0,1,0]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#v3G-%'vectorG6#7&\"\"\"\"\"!F)F*" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 24 "GramSchmidt([v1,v2,v3]);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#7%7&\"\"\"\"\"!!\"#F%7&#!\"(\"\"'\"\"##F'\"\"$#!\"\"F
+7&#\"\"%\"\"&#\"#A\"#N#\"#;F7#F3F7" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "A:=matrix(6,2,[0,1,2,1,4,1,7
,1,10,1,12,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7
(7$\"\"!\"\"\"7$\"\"#F+7$\"\"%F+7$\"\"(F+7$\"#5F+7$\"#7F+" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "b:=vector([5000.0,5075,5175,5300,54
00,5500]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG-%'vectorG6#7($\"&
++&!\"\"\"%v]\"%v^\"%+`\"%+a\"%+b" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 28 "B:=multiply(transpose(A),A);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"BG-%'matrixG6#7$7$\"$8$\"#N7$F+\"\"'" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "d:=multiply(transpose(A),b);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"dG-%'vectorG6#7$\"']z=$\"'+XJ!\"\"
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "linsolve(B,d);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7$$\"*e0r7%!\"($\"+U)=4+&!
\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "y:=41.27*x + 5001;" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG,&%\"xG$\"%FT!\"#\"%,]\"\"\"" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "subs(x=30,y);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#$\"'5Ri!\"#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "evalm(A), evalm(b);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6$-%'matrixG6#7(7$\"\"!\"\"\"7$\"\"#F)7$
\"\"%F)7$\"\"(F)7$\"#5F)7$\"#7F)-%'vectorG6#7($\"&++&!\"\"\"%v]\"%v^\"
%+`\"%+a\"%+b" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "leastsqrs(
A,b);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7$$\"*e0r7%!\"($
\"+U)=4+&!\"'" }}}{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 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "x:=vector([0,2,4,7,10,12]);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG-%'vectorG6#7(\"\"!\"\"#\"\"
%\"\"(\"#5\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "y:=vector
([5000,5075,5175,5300,5400,5500]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%\"yG-%'vectorG6#7(\"%+]\"%v]\"%v^\"%+`\"%+a\"%+b" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 34 "points:=[seq([x[i],y[i]],i=1..6)];" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'pointsG7(7$\"\"!\"%+]7$\"\"#\"%v]7$
\"\"%\"%v^7$\"\"(\"%+`7$\"#5\"%+a7$\"#7\"%+b" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 25 "plot(points,style=point);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 312 234 234 {PLOTDATA 2 "6&-%'CURVESG6$7(7$\"\"!$\"%+]F(7$$
\"\"#F($\"%v]F(7$$\"\"%F($\"%v^F(7$$\"\"(F($\"%+`F(7$$\"#5F($\"%+aF(7$
$\"#7F($\"%+bF(-%'COLOURG6&%$RGBG$F<!\"\"F(F(-%+AXESLABELSG6$%!GFM-%&S
TYLEG6#%&POINTG-%%VIEWG6$%(DEFAULTGFU" 1 5 0 1 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "u:
=leastsqrs(A,b);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uG-%'vectorG6#
7$$\"*e0r7%!\"($\"+U)=4+&!\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 16 "f:=41.27*t+5001;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG,&%\"t
G$\"%FT!\"#\"%,]\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "p
lot(f,t=0..12);" }}{PARA 13 "" 1 "" {GLPLOT2D 312 234 234 {PLOTDATA 2 
"6%-%'CURVESG6$7S7$\"\"!$\"%,]F(7$$\"1++++&ech#!#;$\"1+&HE#[z6]!#77$$
\"1+++v*G:*[F.$\"1D)z+M(=@]F17$$\"1+++]L)4X(F.$\"1]aG3-vJ]F17$$\"1+++X
.u-5!#:$\"1]\"QS4$QU]F17$$\"1++]Fy:f7F?$\"1D4aVa'H0&F17$$\"1++]d'*)o\\
\"F?$\"1D];Omxi]F17$$\"1++](>ZIu\"F?$\"1D3%ybNH2&F17$$\"1++]xOi(*>F?$
\"1D/<H>W$3&F17$$\"1++]FPQ^AF?$\"1DRV1Y\"R4&F17$$\"1+++IrS7DF?$\"1+^DU
qo/^F17$$\"1+++&o;Bu#F?$\"1]**e4a<9^F17$$\"1+++!RS6+$F?$\"1+`*Q1d[7&F1
7$$\"1+++]o-hKF?$\"1+&*4yDeN^F17$$\"1+++5cZ6NF?$\"1+ZU)f=f9&F17$$\"1++
]xq!*QPF?$\"1D%)3&p/`:&F17$$\"1+++!4X$4SF?$\"1+V'=nlk;&F17$$\"1+++g:WQ
UF?$\"1+7=$[?f<&F17$$\"1++]<_$\\]%F?$\"1DiUw'=p=&F17$$\"1+++gs#3u%F?$
\"1+--TRl'>&F17$$\"1++]<#Q'**\\F?$\"1DiBp]L2_F17$$\"1++]_u3Y_F?$\"1vY;
Hg]<_F17$$\"1+++v8B.bF?$\"1]i%)e$=\"G_F17$$\"1++]n(p$RdF?$\"1DZI!zjyB&
F17$$\"1+++Dp2%*fF?$\"1]ZpabP[_F17$$\"1++]xgkeiF?$\"1D%=OK%Hf_F17$$\"1
++]-V&*)['F?$\"1vT1W\"*zo_F17$$\"1+++&\\$pPnF?$\"1]'Q0hk!z_F17$$\"1+++
?am%*pF?$\"1+M)=%)p'*G&F17$$\"1+++:B1YsF?$\"1]+u\"*\\/+`F17$$\"1++]P<I
*[(F?$\"1Dmq#[$35`F17$$\"1+++XwPfxF?$\"1]\"4a^H7K&F17$$\"1******fG0-!)
F?$\"1+A`@ZCJ`F17$$\"1+++]/;h#)F?$\"1+:x\"4Q>M&F17$$\"1****\\P/&f\\)F?
$\"1Dcbuyi^`F17$$\"1,++5zj_()F?$\"1+dam8Ai`F17$$\"1****\\<3;%**)F?$\"1
D#Qp,*=s`F17$$\"1++]Z=iY#*F?$\"1Djk$33EQ&F17$$\"1******\\'[M\\*F?$\"1+
byDYz#R&F17$$\"1****\\PM&=v*F?$\"1DcO\"**eMS&F17$$\"1+++'zs++\"!#9$\"1
+#4H/IPT&F17$$\"1++]5Q_D5F^x$\"1]LfwOBCaF17$$\"1++vxSw]5F^x$\"1Du)[L]Y
V&F17$$\"1+++is&R2\"F^x$\"1+u-i@AWaF17$$\"1++]o#R05\"F^x$\"1]*4hb#>baF
17$$\"1+++KXJC6F^x$\"1+kN2Y+laF17$$\"1++v@Rm\\6F^x$\"1Di]+jYvaF17$$\"1
++DAl#R<\"F^x$\"1vDtv%za[&F17$$\"#7F($\"1+++++C'\\&F1-%'COLOURG6&%$RGB
G$\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"t6\"%!G-%%VIEWG6$;F(Fez%(DEFAULTG" 
1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 32 "plot1:=plot(points,style=point):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "plot2:=plot(f,t=0..12):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "plots[display](\{plot1,plot2
\});" }}{PARA 13 "" 1 "" {GLPLOT2D 312 234 234 {PLOTDATA 2 "6&-%'CURVE
SG6%7(7$\"\"!$\"%+]F(7$$\"\"#F($\"%v]F(7$$\"\"%F($\"%v^F(7$$\"\"(F($\"
%+`F(7$$\"#5F($\"%+aF(7$$\"#7F($\"%+bF(-%'COLOURG6&%$RGBG$F<!\"\"F(F(-
%&STYLEG6#%&POINTG-F$6$7S7$F($\"%,]F(7$$\"1++++&ech#!#;$\"1+&HE#[z6]!#
77$$\"1+++v*G:*[FW$\"1D)z+M(=@]FZ7$$\"1+++]L)4X(FW$\"1]aG3-vJ]FZ7$$\"1
+++X.u-5!#:$\"1]\"QS4$QU]FZ7$$\"1++]Fy:f7Fbo$\"1D4aVa'H0&FZ7$$\"1++]d'
*)o\\\"Fbo$\"1D];Omxi]FZ7$$\"1++](>ZIu\"Fbo$\"1D3%ybNH2&FZ7$$\"1++]xOi
(*>Fbo$\"1D/<H>W$3&FZ7$$\"1++]FPQ^AFbo$\"1DRV1Y\"R4&FZ7$$\"1+++IrS7DFb
o$\"1+^DUqo/^FZ7$$\"1+++&o;Bu#Fbo$\"1]**e4a<9^FZ7$$\"1+++!RS6+$Fbo$\"1
+`*Q1d[7&FZ7$$\"1+++]o-hKFbo$\"1+&*4yDeN^FZ7$$\"1+++5cZ6NFbo$\"1+ZU)f=
f9&FZ7$$\"1++]xq!*QPFbo$\"1D%)3&p/`:&FZ7$$\"1+++!4X$4SFbo$\"1+V'=nlk;&
FZ7$$\"1+++g:WQUFbo$\"1+7=$[?f<&FZ7$$\"1++]<_$\\]%Fbo$\"1DiUw'=p=&FZ7$
$\"1+++gs#3u%Fbo$\"1+--TRl'>&FZ7$$\"1++]<#Q'**\\Fbo$\"1DiBp]L2_FZ7$$\"
1++]_u3Y_Fbo$\"1vY;Hg]<_FZ7$$\"1+++v8B.bFbo$\"1]i%)e$=\"G_FZ7$$\"1++]n
(p$RdFbo$\"1DZI!zjyB&FZ7$$\"1+++Dp2%*fFbo$\"1]ZpabP[_FZ7$$\"1++]xgkeiF
bo$\"1D%=OK%Hf_FZ7$$\"1++]-V&*)['Fbo$\"1vT1W\"*zo_FZ7$$\"1+++&\\$pPnFb
o$\"1]'Q0hk!z_FZ7$$\"1+++?am%*pFbo$\"1+M)=%)p'*G&FZ7$$\"1+++:B1YsFbo$
\"1]+u\"*\\/+`FZ7$$\"1++]P<I*[(Fbo$\"1Dmq#[$35`FZ7$$\"1+++XwPfxFbo$\"1
]\"4a^H7K&FZ7$$\"1******fG0-!)Fbo$\"1+A`@ZCJ`FZ7$$\"1+++]/;h#)Fbo$\"1+
:x\"4Q>M&FZ7$$\"1****\\P/&f\\)Fbo$\"1Dcbuyi^`FZ7$$\"1,++5zj_()Fbo$\"1+
dam8Ai`FZ7$$\"1****\\<3;%**)Fbo$\"1D#Qp,*=s`FZ7$$\"1++]Z=iY#*Fbo$\"1Dj
k$33EQ&FZ7$$\"1******\\'[M\\*Fbo$\"1+byDYz#R&FZ7$$\"1****\\PM&=v*Fbo$
\"1DcO\"**eMS&FZ7$$\"1+++'zs++\"!#9$\"1+#4H/IPT&FZ7$$\"1++]5Q_D5Fgz$\"
1]LfwOBCaFZ7$$\"1++vxSw]5Fgz$\"1Du)[L]YV&FZ7$$\"1+++is&R2\"Fgz$\"1+u-i
@AWaFZ7$$\"1++]o#R05\"Fgz$\"1]*4hb#>baFZ7$$\"1+++KXJC6Fgz$\"1+kN2Y+laF
Z7$$\"1++v@Rm\\6Fgz$\"1Di]+jYvaFZ7$$\"1++DAl#R<\"Fgz$\"1vDtv%za[&FZ7$F
@$\"1+++++C'\\&FZFD-%+AXESLABELSG6$%!GFc]l-%%VIEWG6$;F(F@%(DEFAULTG" 
1 2 0 1 0 2 9 1 4 2 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 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 
"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 13 "   Page 379, " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 44 "x:=vector([1,2,3,4,4.5,5,5,6.5,7.5,8,9,10]);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"xG-%'vectorG6#7.\"\"\"\"\"#\"\"$\"\"%$\"#X!\"\"\"
\"&F0$\"#lF/$\"#vF/\"\")\"\"*\"#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 60 "y:=vector([6,5,5.5,4.75,5.5,4,5.25,4.25,5.25,4.5,5.75
,5.5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG-%'vectorG6#7.\"\"'\"
\"&$\"#b!\"\"$\"$v%!\"#F+\"\"%$\"$D&F0$\"$D%F0F2$\"#XF-$\"$v&F0F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "points:=[seq([x[i],y[i]],i=1
..12)];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'pointsG7.7$\"\"\"\"\"'7$
\"\"#\"\"&7$\"\"$$\"#b!\"\"7$\"\"%$\"$v%!\"#7$$\"#XF0F.7$F+F27$F+$\"$D
&F57$$\"#lF0$\"$D%F57$$\"#vF0F;7$\"\")F77$\"\"*$\"$v&F57$\"#5F." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "plot(points,style=point);" }
}{PARA 13 "" 1 "" {GLPLOT2D 312 234 234 {PLOTDATA 2 "6&-%'CURVESG6$7.7
$$\"\"\"\"\"!$\"\"'F*7$$\"\"#F*$\"\"&F*7$$\"\"$F*$\"1+++++++b!#:7$$\"
\"%F*$\"1++++++]ZF77$$\"1+++++++XF7F57$F0F97$F0$\"1++++++]_F77$$\"1+++
++++lF7$\"1++++++]UF77$$\"1+++++++vF7FB7$$\"\")F*F>7$$\"\"*F*$\"1+++++
+]dF77$$\"#5F*F5-%'COLOURG6&%$RGBG$FV!\"\"F*F*-%+AXESLABELSG6$%!GFjn-%
&STYLEG6#%&POINTG-%%VIEWG6$%(DEFAULTGFbo" 1 5 0 1 0 2 9 1 4 2 
1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 16 "A:=matrix(12,3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%&a
rrayG6%;\"\"\"\"#7;F)\"\"$7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 69 "for i to 12 do\n   A[i,1]:=x[i]^2:\n   A[i,2]:=x[i]:\n   A[i,3]:
=1.0\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(A);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7.7%\"\"\"F($\"#5!\"\"7%\"
\"%\"\"#F)7%\"\"*\"\"$F)7%\"#;F-F)7%$\"%D?!\"#$\"#XF+F)7%\"#D\"\"&F)F:
7%$\"%DUF7$\"#lF+F)7%$\"%DcF7$\"#vF+F)7%\"#k\"\")F)7%\"#\")F0F)7%\"$+
\"F*F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "b:=y;" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"bG%\"yG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "leastsqrs(A,b);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%
'vectorG6#7%$\"*&\\c?^!#5$!*nQ.#f!\"*$\"+5E9UkF," }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 27 "a:=.051; b:=-.592; c:=6.44;" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%\"aG$\"#^!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%\"bG$!$#f!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG$\"$W'!\"#" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "f:=a*t^2+b*t+c;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"fG,(*$)%\"tG\"\"#\"\"\"$\"#^!\"$F($!$#fF
-$\"$W'!\"#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "plot(f
,t=0..11);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%
'CURVESG6$7S7$\"\"!$\"1++++++Sk!#:7$$\"1LLLepo(R#!#;$\"1\\#pC()))4I'F+
7$$\"1nmTg:!R[%F/$\"1Ar&zw1[='F+7$$\"1LL$32o+$oF/$\"1)HJMQ^%fgF+7$$\"1
ML$e\\'y\">*F/$\"14!H$)fN*QfF+7$$\"1n;a3!GU:\"F+$\"1RT-w8kCeF+7$$\"1L$
3F&)[@P\"F+$\"1'4q`H5Ps&F+7$$\"1+]PkKz(f\"F+$\"1*y*e'\\1Vi&F+7$$\"1L$3
x.b6$=F+$\"1A]0&ylp_&F+7$$\"1+](oToP1#F+$\"1GI@T_YNaF+7$$\"1nm;p)RII#F
+$\"1m3/AS5Z`F+7$$\"1LLe%H!z8DF+$\"1x)3&pB6u_F+7$$\"1++]d`/^FF+$\"1Q,(
o#>O(>&F+7$$\"1++]7YF*)HF+$\"1*ybvKtg7&F+7$$\"1++]UE&)=KF+$\"1\"f!ok3&
G1&F+7$$\"1L$3x[JtU$F+$\"1c^t;k45]F+7$$\"1nm;**HBvOF+$\"1y'**>GOJ&\\F+
7$$\"1mmm'4Q_)QF+$\"1D1Bvyy4\\F+7$$\"1+]P\\R_HTF+$\"1Z:W#>B]'[F+7$$\"1
mmm@$edM%F+$\"1C/[euZI[F+7$$\"1+]P*p,Ie%F+$\"1#=qt7i!)z%F+7$$\"1+]7)\\
8*3[F+$\"1!*[w48`sZF+7$$\"1nmTg(GY/&F+$\"12\\o>?W^ZF+7$$\"1n;a`*)3h_F+
$\"1?VLXs1PZF+7$$\"1LLe90d%\\&F+$\"1BG\\<)>ps%F+7$$\"1L$3xB#4PdF+$\"1,
$>)*)pEAZF+7$$\"1+]i5\"3#[fF+$\"1dDgk45BZF+7$$\"1LL3P!>i<'F+$\"1EAM\"4
3\"HZF+7$$\"1*****\\jw<T'F+$\"1GPb#4$)3u%F+7$$\"1***\\()yBAk'F+$\"1e;
\"p\\zyv%F+7$$\"1**\\PfK>loF+$\"1lpO$R![zZF+7$$\"1***\\7%Gw7rF+$\"10#4
]b0%4[F+7$$\"1mmm@^@NtF+$\"1F3\"H2F;%[F+7$$\"1****\\7/tsvF+$\"1C0sO@g
\")[F+7$$\"1L$3xcazy(F+$\"15)*p\\\\zA\\F+7$$\"1,+]<9DB!)F+$\"10#p&*)eB
t\\F+7$$\"1m;/;ukW#)F+$\"1-.Y\"\\`e-&F+7$$\"1+](o-qgZ)F+$\"1F\\@i%)>'3
&F+7$$\"1mm;HzK-()F+$\"1)zdm%zZ]^F+7$$\"1**\\P%)*)>R*)F+$\"1.[%QSnLA&F
+7$$\"1MLLjRLn\"*F+$\"1%>ma!*y*)H&F+7$$\"1LLeH\\j+%*F+$\"1\"3JF\"Hz\"Q
&F+7$$\"1n;/YS+K'*F+$\"1[W$Q?/%paF+7$$\"1,++N#3Y%)*F+$\"1@@@,QsabF+7$$
\"1n;ziw#)35!#9$\"1(=jw#)z\"ecF+7$$\"1LLLa;iI5Fay$\"1H')oxG%ev&F+7$$\"
1+v$\\feQ0\"Fay$\"1t0S-'3`'eF+7$$\"1+D17$*4w5Fay$\"1o!REpR_(fF+7$$\"#6
F($\"1++++++*4'F+-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"t6
\"%!G-%%VIEWG6$;F(Fdz%(DEFAULTG" 1 2 0 1 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "pl
ot1:=plot(points,style=point):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 23 "plot2:=plot(f,t=0..11):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 30 "plots[display](\{plot1,plot2\});" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6%7.7$$\"\"\"\"\"!$\"\"
'F*7$$\"\"#F*$\"\"&F*7$$\"\"$F*$\"1+++++++b!#:7$$\"\"%F*$\"1++++++]ZF7
7$$\"1+++++++XF7F57$F0F97$F0$\"1++++++]_F77$$\"1+++++++lF7$\"1++++++]U
F77$$\"1+++++++vF7FB7$$\"\")F*F>7$$\"\"*F*$\"1++++++]dF77$$\"#5F*F5-%'
COLOURG6&%$RGBG$FV!\"\"F*F*-%&STYLEG6#%&POINTG-F$6$7S7$F*$\"1++++++SkF
77$$\"1LLLepo(R#!#;$\"1\\#pC()))4I'F77$$\"1nmTg:!R[%Fdo$\"1Ar&zw1[='F7
7$$\"1LL$32o+$oFdo$\"1)HJMQ^%fgF77$$\"1ML$e\\'y\">*Fdo$\"14!H$)fN*QfF7
7$$\"1n;a3!GU:\"F7$\"1RT-w8kCeF77$$\"1L$3F&)[@P\"F7$\"1'4q`H5Ps&F77$$
\"1+]PkKz(f\"F7$\"1*y*e'\\1Vi&F77$$\"1L$3x.b6$=F7$\"1A]0&ylp_&F77$$\"1
+](oToP1#F7$\"1GI@T_YNaF77$$\"1nm;p)RII#F7$\"1m3/AS5Z`F77$$\"1LLe%H!z8
DF7$\"1x)3&pB6u_F77$$\"1++]d`/^FF7$\"1Q,(o#>O(>&F77$$\"1++]7YF*)HF7$\"
1*ybvKtg7&F77$$\"1++]UE&)=KF7$\"1\"f!ok3&G1&F77$$\"1L$3x[JtU$F7$\"1c^t
;k45]F77$$\"1nm;**HBvOF7$\"1y'**>GOJ&\\F77$$\"1mmm'4Q_)QF7$\"1D1Bvyy4
\\F77$$\"1+]P\\R_HTF7$\"1Z:W#>B]'[F77$$\"1mmm@$edM%F7$\"1C/[euZI[F77$$
\"1+]P*p,Ie%F7$\"1#=qt7i!)z%F77$$\"1+]7)\\8*3[F7$\"1!*[w48`sZF77$$\"1n
mTg(GY/&F7$\"12\\o>?W^ZF77$$\"1n;a`*)3h_F7$\"1?VLXs1PZF77$$\"1LLe90d%
\\&F7$\"1BG\\<)>ps%F77$$\"1L$3xB#4PdF7$\"1,$>)*)pEAZF77$$\"1+]i5\"3#[f
F7$\"1dDgk45BZF77$$\"1LL3P!>i<'F7$\"1EAM\"43\"HZF77$$\"1*****\\jw<T'F7
$\"1GPb#4$)3u%F77$$\"1***\\()yBAk'F7$\"1e;\"p\\zyv%F77$$\"1**\\PfK>loF
7$\"1lpO$R![zZF77$$\"1***\\7%Gw7rF7$\"10#4]b0%4[F77$$\"1mmm@^@NtF7$\"1
F3\"H2F;%[F77$$\"1****\\7/tsvF7$\"1C0sO@g\")[F77$$\"1L$3xcazy(F7$\"15)
*p\\\\zA\\F77$$\"1,+]<9DB!)F7$\"10#p&*)eBt\\F77$$\"1m;/;ukW#)F7$\"1-.Y
\"\\`e-&F77$$\"1+](o-qgZ)F7$\"1F\\@i%)>'3&F77$$\"1mm;HzK-()F7$\"1)zdm%
zZ]^F77$$\"1**\\P%)*)>R*)F7$\"1.[%QSnLA&F77$$\"1MLLjRLn\"*F7$\"1%>ma!*
y*)H&F77$$\"1LLeH\\j+%*F7$\"1\"3JF\"Hz\"Q&F77$$\"1n;/YS+K'*F7$\"1[W$Q?
/%paF77$$\"1,++N#3Y%)*F7$\"1@@@,QsabF77$$\"1n;ziw#)35!#9$\"1(=jw#)z\"e
cF77$$\"1LLLa;iI5F\\]l$\"1H')oxG%ev&F77$$\"1+v$\\feQ0\"F\\]l$\"1t0S-'3
`'eF77$$\"1+D17$*4w5F\\]l$\"1o!REpR_(fF77$$\"#6F*$\"1++++++*4'F7FW-%+A
XESLABELSG6$%!GFf^l-%%VIEWG6$;F*F_^l%(DEFAULTG" 1 2 0 1 0 2 9 1 4 2 
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 "" {TEXT 
-1 34 "    Radio active material problem:" }}{PARA 0 "" 0 "" {TEXT -1 
0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "A:=matrix(7,2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"AG-%&arrayG6%;\"\"\"\"\"(;F)\"\"#7\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 27 "x:=vector([0,1,2,3,4,5,6]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"xG-%'vectorG6#7)\"\"!\"\"\"\"\"#\"\"$\"\"%\"\"&\"\"
'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "y:=vector([12.2,11.5,1
0.7,9.8,8.6,6.8,4.9]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG-%'vec
torG6#7)$\"$A\"!\"\"$\"$:\"F+$\"$2\"F+$\"#)*F+$\"#')F+$\"#oF+$\"#\\F+
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "points:=[seq([x[i],y[i]
],i=1..7)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'pointsG7)7$\"\"!$\"$
A\"!\"\"7$\"\"\"$\"$:\"F*7$\"\"#$\"$2\"F*7$\"\"$$\"#)*F*7$\"\"%$\"#')F
*7$\"\"&$\"#oF*7$\"\"'$\"#\\F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 25 "plot(points,style=point);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 
300 300 {PLOTDATA 2 "6&-%'CURVESG6$7)7$\"\"!$\"1++++++?7!#97$$\"\"\"F(
$\"1++++++]6F+7$$\"\"#F($\"1++++++q5F+7$$\"\"$F($\"1,++++++)*!#:7$$\"
\"%F($\"1+++++++')F;7$$\"\"&F($\"1+++++++oF;7$$\"\"'F($\"1+++++++\\F;-
%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$%!GFU-%&STYLEG6#%&POINT
G-%%VIEWG6$%(DEFAULTGFgn" 1 5 0 1 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "for i to 7 d
o\n   A[i,1]:=exp(-ln(2.0)*x[i]/84):      A[i,2]:=exp(-ln(2.0)*x[i]/11
5):\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(A);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7)7$\"\"\"F(7$$\"+,?#y\"**
!#5$\"+8w!*R**F,7$$\"+C$>j$)*F,$\"+Oj<!))*F,7$$\"+@k[b(*F,$\"+**R!3#)*
F,7$$\"+&y<`n*F,$\"+W%)yh(*F,7$$\"+gz!ef*F,$\"+Fv7.(*F,7$$\"+I:&p^*F,$
\"+=\">[k*F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "b:=y;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG%\"yG" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 15 "leastsqrs(A,b);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#-%'vectorG6#7$$\"+;E$oA&!\"($!+@8e)4&F)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "x1:=522; x2:=-509;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%#x1G\"$A&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G!$4&" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "f:=x1*exp(-ln(2)*t/84)+x2*exp(-ln(2
)*t/115);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG,&-%$expG6#,$*&-%#l
nG6#\"\"#\"\"\"%\"tGF/#!\"\"\"#%)\"$A&-F'6#,$F*#F2\"$:\"!$4&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "plot(f,t=0..6);" }}{PARA 13 
"" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7S7$\"\"!$\"#
8F(7$$\"1+++]#HyI\"!#;$\"1Yv'*HU!QG\"!#97$$\"1++]([kdW#F.$\"1&QnX2O(p7
F17$$\"1+++v;\\DPF.$\"1#z;<FTRD\"F17$$\"1+++D<q8]F.$\"1#p'Rj)p!Q7F17$$
\"1++]P\"*y&H'F.$\"1MVtN=IA7F17$$\"1++](G[W[(F.$\"1pK$*Gxq27F17$$\"1++
]()fB:()F.$\"1\\dej:i#>\"F17$$\"1++](Q=\"))**F.$\"1Oa`\\j/x6F17$$\"1++
vj=pD6!#:$\"1q*e'*G[:;\"F17$$\"1+++lN?c7FX$\"1<t<H\\jX6F17$$\"1++]U$e6
P\"FX$\"1#*Q5s@kJ6F17$$\"1+++&>q0]\"FX$\"1)yX;@;f6\"F17$$\"1+++DM^I;FX
$\"1\\J[cR:+6F17$$\"1+++0ytb<FX$\"1Dw*p(3*\\3\"F17$$\"1++vQNXp=FX$\"1d
&fa3W72\"F17$$\"1+++XDn/?FX$\"1\"QY4&f#\\0\"F17$$\"1+++!y?#>@FX$\"1KZK
Hi7T5F17$$\"1++v3wY_AFX$\"1HAE#R,^-\"F17$$\"1+++IOTqBFX$\"1P'*od8%4,\"
F17$$\"1++v3\">)*\\#FX$\"13STK;Ka**FX7$$\"1++DEP/BEFX$\"17@8fe*o!)*FX7
$$\"1++](o:;v#FX$\"1[kyC4M`'*FX7$$\"1++v$)[opGFX$\"1r9]l1d7&*FX7$$\"1+
+]i%Qq*HFX$\"1T'z$e$*)4O*FX7$$\"1++vQIKHJFX$\"1'HA\"*eAQ?*FX7$$\"1++D^
rZWKFX$\"196Y@MCn!*FX7$$\"1++]Zn%)oLFX$\"1]`R1&z*>*)FX7$$\"1+++5FL(\\$
FX$\"1%[Rdn3\"o()FX7$$\"1++]d6.BOFX$\"1ip^A^z>')FX7$$\"1++vo3lWPFX$\"1
G3$R&3aw%)FX7$$\"1++]A))ozQFX$\"1U%34JlxJ)FX7$$\"1+++Ik-,SFX$\"1=$)y%*
GNv\")FX7$$\"1+++D-eITFX$\"1]#QuwiN-)FX7$$\"1++v=_(zC%FX$\"1)yaQ'[D')y
FX7$$\"1+++b*=jP%FX$\"1UxE;!)ROxFX7$$\"1++v3/3(\\%FX$\"1\"Gh6<Rcf(FX7$
$\"1++vB4JBYFX$\"1Q(=\\'*e([uFX7$$\"1+++DVsYZFX$\"1bWENnS0tFX7$$\"1++v
=n#f([FX$\"1OqoSZfbrFX7$$\"1+++!)RO+]FX$\"1n?$>Uj:,(FX7$$\"1++]_!>w7&F
X$\"1\\WLf%HX'oFX7$$\"1++v)Q?QD&FX$\"13[!G=r*=nFX7$$\"1+++5jyp`FX$\"1_
Z:5YW&e'FX7$$\"1++]Ujp-bFX$\"1?t#3OuEV'FX7$$\"1+++gEd@cFX$\"1#H/MXviH'
FX7$$\"1++v3'>$[dFX$\"1.[)oq&4^hFX7$$\"1++D6EjpeFX$\"1iUoV9Q7gFX7$$\"
\"'F($\"124ERndjeFX-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"
t6\"%!G-%%VIEWG6$;F(Fdz%(DEFAULTG" 1 2 0 1 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "pl
ot1:=plot(points,style=point):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 22 "plot2:=plot(f,t=0..6):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 30 "plots[display](\{plot1,plot2\});" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6%7)7$\"\"!$\"1++++++?7
!#97$$\"\"\"F($\"1++++++]6F+7$$\"\"#F($\"1++++++q5F+7$$\"\"$F($\"1,+++
+++)*!#:7$$\"\"%F($\"1+++++++')F;7$$\"\"&F($\"1+++++++oF;7$$\"\"'F($\"
1+++++++\\F;-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%&STYLEG6#%&POINTG-F$6$7S
7$F($\"#8F(7$$\"1+++]#HyI\"!#;$\"1Yv'*HU!QG\"F+7$$\"1++]([kdW#Fin$\"1&
QnX2O(p7F+7$$\"1+++v;\\DPFin$\"1#z;<FTRD\"F+7$$\"1+++D<q8]Fin$\"1#p'Rj
)p!Q7F+7$$\"1++]P\"*y&H'Fin$\"1MVtN=IA7F+7$$\"1++](G[W[(Fin$\"1pK$*Gxq
27F+7$$\"1++]()fB:()Fin$\"1\\dej:i#>\"F+7$$\"1++](Q=\"))**Fin$\"1Oa`\\
j/x6F+7$$\"1++vj=pD6F;$\"1q*e'*G[:;\"F+7$$\"1+++lN?c7F;$\"1<t<H\\jX6F+
7$$\"1++]U$e6P\"F;$\"1#*Q5s@kJ6F+7$$\"1+++&>q0]\"F;$\"1)yX;@;f6\"F+7$$
\"1+++DM^I;F;$\"1\\J[cR:+6F+7$$\"1+++0ytb<F;$\"1Dw*p(3*\\3\"F+7$$\"1++
vQNXp=F;$\"1d&fa3W72\"F+7$$\"1+++XDn/?F;$\"1\"QY4&f#\\0\"F+7$$\"1+++!y
?#>@F;$\"1KZKHi7T5F+7$$\"1++v3wY_AF;$\"1HAE#R,^-\"F+7$$\"1+++IOTqBF;$
\"1P'*od8%4,\"F+7$$\"1++v3\">)*\\#F;$\"13STK;Ka**F;7$$\"1++DEP/BEF;$\"
17@8fe*o!)*F;7$$\"1++](o:;v#F;$\"1[kyC4M`'*F;7$$\"1++v$)[opGF;$\"1r9]l
1d7&*F;7$$\"1++]i%Qq*HF;$\"1T'z$e$*)4O*F;7$$\"1++vQIKHJF;$\"1'HA\"*eAQ
?*F;7$$\"1++D^rZWKF;$\"196Y@MCn!*F;7$$\"1++]Zn%)oLF;$\"1]`R1&z*>*)F;7$
$\"1+++5FL(\\$F;$\"1%[Rdn3\"o()F;7$$\"1++]d6.BOF;$\"1ip^A^z>')F;7$$\"1
++vo3lWPF;$\"1G3$R&3aw%)F;7$$\"1++]A))ozQF;$\"1U%34JlxJ)F;7$$\"1+++Ik-
,SF;$\"1=$)y%*GNv\")F;7$$\"1+++D-eITF;$\"1]#QuwiN-)F;7$$\"1++v=_(zC%F;
$\"1)yaQ'[D')yF;7$$\"1+++b*=jP%F;$\"1UxE;!)ROxF;7$$\"1++v3/3(\\%F;$\"1
\"Gh6<Rcf(F;7$$\"1++vB4JBYF;$\"1Q(=\\'*e([uF;7$$\"1+++DVsYZF;$\"1bWENn
S0tF;7$$\"1++v=n#f([F;$\"1OqoSZfbrF;7$$\"1+++!)RO+]F;$\"1n?$>Uj:,(F;7$
$\"1++]_!>w7&F;$\"1\\WLf%HX'oF;7$$\"1++v)Q?QD&F;$\"13[!G=r*=nF;7$$\"1+
++5jyp`F;$\"1_Z:5YW&e'F;7$$\"1++]Ujp-bF;$\"1?t#3OuEV'F;7$$\"1+++gEd@cF
;$\"1#H/MXviH'F;7$$\"1++v3'>$[dF;$\"1.[)oq&4^hF;7$$\"1++D6EjpeF;$\"1iU
oV9Q7gF;7$FG$\"124ERndjeF;FK-%+AXESLABELSG6$%!GFh]l-%%VIEWG6$;F(FG%(DE
FAULTG" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "75 0 0" 0 }{VIEWOPTS 1 
1 0 1 1 1803 }