{VERSION 4 0 "SUN SPARC SOLARIS" "4.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 Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 "" 0 1 0 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 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 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plo
t" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 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 29 "fsolve(2*sin(x)-x^3-
1/5=0,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+)y-o+\"!#5" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "plot(2*sin(x)-x^3-1/5,x=-2..
0);" }}{PARA 13 "" 1 "" {GLPLOT2D 337 253 253 {PLOTDATA 2 "6%-%'CURVES
G6$7S7$$!\"#\"\"!$\"3'fj[j909)f!#<7$$!3xmmm\"p0k&>F-$\"3GnEx;%\\]V&F-7
$$!3FLL3<XZ=>F-$\"3]Y([E8)p!)\\F-7$$!3bmm;Wp\"e(=F-$\"3)3dZaJNF\\%F-7$
$!3hmm;4m(G$=F-$\"3-+Xd2nsDSF-7$$!3QLL3i.9!z\"F-$\"3ANzmFvg%e$F-7$$!3d
mmT!R=0v\"F-$\"35a3o&H_j>$F-7$$!3)****\\P8#\\4<F-$\"3bH;dxG'\\\"GF-7$$
!3!om;/siqm\"F-$\"3Q_V(e#4>UCF-7$$!3%****\\(y$pZi\"F-$\"39Goy985#4#F-7
$$!3ILLLyaE\"e\"F-$\"32.tH:m!Rv\"F-7$$!3mmm;>s%Ha\"F-$\"38-N)Hb[SZ\"F-
7$$!3/+++N*4)*\\\"F-$\"3e8F'f<a(y6F-7$$!3,+++Db\\c9F-$\"350-)>)yHG!*!#
=7$$!3*)*****\\1aZT\"F-$\"3(\\n?w+7(flFio7$$!3nmmT?)[oP\"F-$\"32`Rv5j2
wWFio7$$!3YLLL=exJ8F-$\"3w+N!>]E$*=#Fio7$$!3SLLLtIf$H\"F-$\"3p3Ap#zbF5
%!#>7$$!3;++vju<\\7F-$!3FxQy1(z<[\"Fio7$$!3aLLLB@')47F-$!3<g$Qsl\"z,IF
io7$$!3&****\\P'psm6F-$!3w=3li=G2XFio7$$!35++D\"4_c7\"F-$!3p;H\"*zm\"z
y&Fio7$$!3TLL$3x%z#3\"F-$!3E#Q&)QSk-(pFio7$$!3MLL3s$QM/\"F-$!3QAgmGk@A
zFio7$$!3omm;zr)4+\"F-$!3@c(*RxVV5))Fio7$$!3Iom;/K#*o&*Fio$!3P:+)eE*Q'
e*Fio7$$!3-,+]ih2&=*Fio$!3o#*G]`&)[95F-7$$!3snmmT3^q()Fio$!3PC0#)R#pI1
\"F-7$$!3q++++VAU$)Fio$!3!=xQZ$3*45\"F-7$$!33-++v%HK#zFio$!3)GTTVkrl7
\"F-7$$!3d,+]P/$y^(Fio$!3))p!*zsN*49\"F-7$$!3x,++DRqnqFio$!3/vss\"G8d9
\"F-7$$!3uMLLL_CjmFio$!3Q;!>BUh.9\"F-7$$!3R+++]#*RJiFio$!3p?&f$)G3_7\"
F-7$$!3enm;/E3SeFio$!3!QS]`TfN5\"F-7$$!3M+++],F7aFio$!30_>'z@O=2\"F-7$
$!3VNL$3(>t4]Fio$!3!4-X]UF[.\"F-7$$!3?,+](ej*)e%Fio$!3#[6H`W2G*)*Fio7$
$!3=MLL$e&exTFio$!3?)3khTu^Q*Fio7$$!3#4++v$4\"pu$Fio$!3'=mH\\\")fOz)Fi
o7$$!3;mmmm+7KLFio$!3!*)R/H#[jr\")Fio7$$!3Bnmm\"\\Oz!HFio$!3%G[=m-b$)[
(Fio7$$!3lLL$3Pls[#Fio$!3S6Gj*HB&pnFio7$$!3`++++Br+@Fio$!3Jos#*>q)y2'F
io7$$!3]LLLe)ywl\"Fio$!3&[S#QRMka_Fio7$$!3TnmmmWUh7Fio$!3)>aiE,#4'\\%F
io7$$!3D&****\\PY$*Q)F^q$!3\"4Nm\"ys**pOFio7$$!3i&****\\izbM%F^q$!3K5(
4#)y@!oGFio7$$F*F*$!35+++++++?Fio-%'COLOURG6&%$RGBG$\"#5!\"\"FfzFfz-%+
AXESLABELSG6$Q\"x6\"Q!6\"-%%VIEWG6$;F(Ffz%(DEFAULTG" 1 2 0 1 10 0 2 9 
1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 30 "plot(2*sin(x)-x^3-1/5,x=0..2);" }}{PARA 13 "
" 1 "" {GLPLOT2D 337 253 253 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"\"!F)$!
35+++++++?!#=7$$\"39LLLL3VfV!#>$!38vqxl%=#H6F,7$$\"3&pmm;H[D:)F0$!3IcY
ueU9nPF07$$\"3LLLLe0$=C\"F,$\"3-Qt\"zI;8e%F07$$\"3HLLL3RBr;F,$\"3'px2F
F_-G\"F,7$$\"3Ymm;zjf)4#F,$\"3%)40nhz-u?F,7$$\"3=LL$e4;[\\#F,$\"3D(ou.
*Hv#y#F,7$$\"3p****\\i'y]!HF,$\"3\"RamnO.O[$F,7$$\"3,LL$ezs$HLF,$\"3A$
3u))ect;%F,7$$\"3^****\\7iI_PF,$\"3%4?H;+D9![F,7$$\"3#pmmm@Xt=%F,$\"3'
HM_aS*)yR&F,7$$\"3QLLL3y_qXF,$\"3nNq>FdLreF,7$$\"3i******\\1!>+&F,$\"3
#o?ES_?/M'F,7$$\"3')******\\Z/NaF,$\"3aTmR/kFPnF,7$$\"3&*******\\$fC&e
F,$\"3qKISFeaVqF,7$$\"3ELL$ez6:B'F,$\"3\"RQ2/cM@D(F,7$$\"3Rmmm;=C#o'F,
$\"3B)*\\A!H$33uF,7$$\"3,mmmm#pS1(F,$\"33<iO8z/duF,7$$\"3]****\\i`A3vF
,$\"3emcAs=;7uF,7$$\"3slmmm(y8!zF,$\"36E[$[FMgF(F,7$$\"3V++]i.tK$)F,$
\"3CLeP3_%p,(F,7$$\"39++](3zMu)F,$\"3*=[fU#[DemF,7$$\"3\"pmm;H_?<*F,$
\"3#o)37&>x>;'F,7$$\"3dmm;zihl&*F,$\"35%pyh7f;f&F,7$$\"39LLL3#G,***F,$
\"3<oL!H9I$[[F,7$$\"3;LLezw5V5!#<$\"3[d#[m+&oHRF,7$$\"3*)***\\PQ#\\\"3
\"Fcs$\"3t)Go#e3z.IF,7$$\"3ALL$e\"*[H7\"Fcs$\"3e?iv..3n=F,7$$\"3#*****
**pvxl6Fcs$\"3M\"[P??waQ&F07$$\"3z****\\_qn27Fcs$!39SB.5G1z\"*F07$$\"3
%)***\\i&p@[7Fcs$!30fx.Q9PzCF,7$$\"3#)****\\2'HKH\"Fcs$!3KX:d>[-%R%F,7
$$\"3_mmmwanL8Fcs$!3Naw@U%*e\"G'F,7$$\"3&******\\2goP\"Fcs$!3!*Gj7)*Hn
w%)F,7$$\"3CLLeR<*fT\"Fcs$!3QkZ)*[i-j5Fcs7$$\"3'******\\)Hxe9Fcs$!3!=L
3!)=KoJ\"Fcs7$$\"3Ymm\"H!o-*\\\"Fcs$!3y8\"fZ$Qet:Fcs7$$\"3))***\\7k.6a
\"Fcs$!3=t5=1M+h=Fcs7$$\"3emmmT9C#e\"Fcs$!3.DOY>MDh@Fcs7$$\"3!****\\i!
*3`i\"Fcs$!3#=8IC4Mk\\#Fcs7$$\"3PLLL$*zym;Fcs$!3V`Zd&3[)RGFcs7$$\"3GLL
$3N1#4<Fcs$!3^s$\\G()yB@$Fcs7$$\"3jmm\"HYt7v\"Fcs$!3HD(Gz8nNg$Fcs7$$\"
3%*******p(G**y\"Fcs$!3t2>$e_\"[#)RFcs7$$\"3kmm;9@BM=Fcs$!3Qd+z$=-,W%F
cs7$$\"3DLLL`v&Q(=Fcs$!3c'QfID+4([Fcs7$$\"3/++DOl5;>Fcs$!3zNt\"=nvHN&F
cs7$$\"3/++v.Uac>Fcs$!3m[a><UuOeFcs7$$\"\"#F)$!3JO'[j909Q'Fcs-%'COLOUR
G6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"x6\"Q!6\"-%%VIEWG6$;F(Fez%(D
EFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curv
e 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "fsolve(2*sin(x)-x^3
-1/5=0,x,1..1.5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+B_!==\"!\"*" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "g:=i->sum(ithprime(j),j=1
..i);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gGR6#%\"iG6\"6$%)operator
G%&arrowGF(-%$sumG6$-%)ithprimeG6#%\"jG/F2;\"\"\"9$F(F(F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "g(2);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "g(10);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$H\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 7 "g(100);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"&LT#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g(300);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"'h5F" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g(2
00);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"'(e6\"" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 7 "g(150);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"&
p#f" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g(175);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#\"&#H$)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 7 "g(181);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"&s'*)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g(182);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"&j2*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "y=
a*exp(k*x);" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 18 0 "y = a*exp(k*x);
" "6#/%\"yG*&%\"aG\"\"\"-%$expG6#*&%\"kGF'%\"xGF'F'" }{TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {XPPEDIT 18 0 "x[i],y[
i];" "6$&%\"xG6#%\"iG&%\"yG6#F&" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 7 "E(k,a)=" }{XPPEDIT 18 0 "s
um((y[i]-a*exp(k*x[i]))^2,i = 1 .. n);" "6#-%$sumG6$*$),&&%\"yG6#%\"iG
\"\"\"*&%\"aGF--%$expG6#*&%\"kGF-&%\"xG6#F,F-F-!\"\"\"\"#F-/F,;F-%\"nG
" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{XPPEDIT 18 0 "z[i] = log(y[i]);" "6#/&%\"zG6#%\"iG-%$logG6#&%\"yG6#F'
" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{XPPEDIT 18 0 "x[i],z[i];" "6$&%\"xG6#%\"iG&%\"zG6#F&" }}{PARA 0 "" 0 
"" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {XPPEDIT 18 0 "z = log(y);" "6#/%\"
zG-%$logG6#%\"yG" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {XPPEDIT 18 0 "z = log(a*exp(k*x));" "6#/%\"zG-%$logG6
#*&%\"aG\"\"\"-%$expG6#*&%\"kGF*%\"xGF*F*" }{TEXT -1 0 "" }}{PARA 0 "
" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 2 "z=" }{XPPEDIT 18 0 
"log(a)+k*x;" "6#,&-%$logG6#%\"aG\"\"\"*&%\"kGF(%\"xGF(F(" }{TEXT -1 
0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 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 61 "data:=[[1.0,8.0],[3.0,-3.0],[2.0,7.0],[-5.0,4.0],[6
.0,-1.0]];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%dataG7'7$$\"#5!\"\"$
\"#!)F)7$$\"#IF)$!#IF)7$$\"#?F)$\"#qF)7$$!#]F)$\"#SF)7$$\"#gF)$!#5F)" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "plot(data,style=point);" 
}}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7'
7$$\"\"\"\"\"!$\"\")F*7$$\"\"$F*$!\"$F*7$$\"\"#F*$\"\"(F*7$$!\"&F*$\"
\"%F*7$$\"\"'F*$!\"\"F*-%'COLOURG6&%$RGBG$\"#5F@$F*F*FG-%+AXESLABELSG6
$Q!6\"FK-%&STYLEG6#%&POINTG-%%VIEWG6$%(DEFAULTGFT" 1 5 0 1 10 0 2 9 1 
4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 45 "err:=(pt,a,b,r)->(pt[1]-a)^2+(pt[2]-b)^2-r^2;
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$errGR6&%#ptG%\"aG%\"bG%\"rG6\"6
$%)operatorG%&arrowGF+,(*$),&&9$6#\"\"\"F69%!\"\"\"\"#F6F6*$),&&F46#F9
F69&F8F9F6F6*$)9'F9F6F8F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 54 "E:=(a,b,r)->sum(err(data[i],a,b,r)^2,i=1..nops(data));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"EGR6%%\"aG%\"bG%\"rG6\"6$%)operatorG%&ar
rowGF*-%$sumG6$*$)-%$errG6&&%%dataG6#%\"iG9$9%9&\"\"#\"\"\"/F9;F>-%%no
psG6#F7F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "sol:=solve
(\{diff(E(a,b,r),a)=0,\ndiff(E(a,b,r),b)=0,\ndiff(E(a,b,r),r)=0\},\{a,
b,r\});" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$solG6)<%/%\"bG$\"+HtJLD!
\"*/%\"aG$\"+NZlm6F+/%\"rG$\"\"!F3<%/F(^$$\"+?&RVb#F+$!+j][[RF+/F-^$$
\"+'G7H(>F+$!+P(>n#eF+F0<%/F-^$F=$\"+P(>n#eF+/F(^$F7$\"+j][[RF+F0<%/F-
^$$\"+>4[a>F+$\"+-')yh[F+/F(^$$\"+zU\"o^$F+$!+*f:WW(F+F0<%/F(^$FS$\"+*
f:WW(F+/F-^$FM$!+-')yh[F+F0<%/F($\"+FA,9>F+/F-$\"+Ru'Qc&!#5/F1$!+sS%y!
eF+<%/F1$\"+sS%y!eF+F[oF^o" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
7 "sol[7];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<%/%\"rG$\"+sS%y!e!\"*/%
\"bG$\"+FA,9>F(/%\"aG$\"+Ru'Qc&!#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "assign(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
2 "a;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+Ru'Qc&!#5" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "b;" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#$\"+FA,9>!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "r;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+sS%y!e!\"*" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "25 0 0" 2 }{VIEWOPTS 1 1 0 2 1 
1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }