{VERSION 3 0 "SUN SPARC SOLARIS" "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 "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 
1 0 0 255 1 0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 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 18 "f:=(x,y)->x^2+y^2;" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6$%\"xG%\"yG6\"6$%)operatorG%
&arrowGF),&*$)9$\"\"#\"\"\"\"\"\"*$)9%F1F2F3F)F)F)" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 199 "gradstep:=proc(f,pt,epsilon);\nx1:=pt[1];
\ny1:=pt[2];\ngradx:=eval(diff(f(x,y),x),\{x=x1,y=y1\});\ngrady:=eval(
diff(f(x,y),y),\{x=x1,y=y1\});\nx2:=x1-epsilon*gradx;\ny2:=y1-epsilon*
grady;\nRETURN([x2,y2]);\nend;" }}{PARA 7 "" 1 "" {TEXT -1 42 "Warning
, `x1` is implicitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 42 "Wa
rning, `y1` is implicitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 
45 "Warning, `gradx` is implicitly declared local" }}{PARA 7 "" 1 "" 
{TEXT -1 45 "Warning, `grady` is implicitly declared local" }}{PARA 7 
"" 1 "" {TEXT -1 42 "Warning, `x2` is implicitly declared local" }}
{PARA 7 "" 1 "" {TEXT -1 42 "Warning, `y2` is implicitly declared loca
l" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)gradstepGR6%%\"fG%#ptG%(epsilo
nG6(%#x1G%#y1G%&gradxG%&gradyG%#x2G%#y2G6\"F1C)>8$&9%6#\"\"\">8%&F66#
\"\"#>8&-%%evalG6$-%%diffG6$-9$6$%\"xG%\"yGFI<$/FIF4/FJF:>8'-FA6$-FD6$
FFFJFK>8(,&F4F8*&9&F8F?F8!\"\">8),&F:F8*&FX\"\"\"FOF8FY-%'RETURNG6#7$F
UFenF1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "gradstep(f,[1
,1],1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$!\"\"F$" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 6 "x1;y1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
%#x1G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%#y1G" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 21 "gradstep(f,[1,1],.3);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#7$$\"\"%!\"\"F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 205 "newplot:=proc(f,list);\n  if nops(list)=2 then\n    plot(f,li
st[1]..list[2]);\n  elif nops(list)=4 then\n    plot3d(f,list[1]..list
[2],list[3]..list[4]);\n  else\n    ERROR(`Wrong no. of parameters`);
\n  fi;\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(newplotGR6$%\"fG%%
listG6\"F)F)@'/-%%nopsG6#9%\"\"#-%%plotG6$9$;&F/6#\"\"\"&F/6#F0/F,\"\"
%-%'plot3dG6%F4F5;&F/6#\"\"$&F/6#F<-%&ERRORG6#%8Wrong~no.~of~parameter
sGF)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "?ERROR" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "f:=x->sin(x^2);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"fGR6#%\"xG6\"6$%)operatorG%&arrowGF(-%$sinG
6#*$)9$\"\"#\"\"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 
"g:=(a,b)->a^2+b^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gGR6$%\"aG%
\"bG6\"6$%)operatorG%&arrowGF),&*$)9$\"\"#\"\"\"\"\"\"*$)9%F1F2F3F)F)F
)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "newplot(f,[-2,5]);" }}
{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7cw7$$!\"#\"\"!$!1#GzI&\\-ov!
#;7$$!1L$3-)\\&='>!#:$!14DNPPq(\\'F-7$$!1nmTg*4P#>F1$!1YE*\\\"y&RI&F-7
$$!1+]iS\\c&)=F1$!1g,Fz:d?SF-7$$!1LL$3#*>u%=F1$!1qc$=Y$\\!o#F-7$$!1<H2
V,B9=F1$!1k/FSIy#\\\"F-7$$!1+DJl./\"y\"F1$!1.g$)3&R20$!#<7$$!1$3_ve]yu
\"F1$\"1!3_uHt-l)FM7$$!1n;z43m9<F1$\"1YjZ5ap,?F-7$$!1$e*[LaLx;F1$\"1cq
duS\"GA$F-7$$!1+v=d+,S;F1$\"1KgyKFHnVF-7$$!1<a)3o%o-;F1$\"1OGm/n]@aF-7
$$!1LLe/$f`c\"F1$\"1ONnGF&\\P'F-7$$!1LLL=P@!\\\"F1$\"1,A6bu>hzF-7$$!1L
L3K\"o]T\"F1$\"1#*o1Dg)G3*F-7$$!1<a)e\"Rnx8F1$\"11yE,Y\\p%*F-7$$!1+vo*
pz-M\"F1$\"1$G6p-0nu*F-7$$!1U&)e\"f#e@8F1$\"1=?-rp*e%)*F-7$$!1$e*[$[&)
GI\"F1$\"17-:][#)>**F-7$$!1D1Rv$)=%G\"F1$\"1O=92sKp**F-7$$!1m;Hn7\\l7F
1$\"1cizllH&***F-7$$!1+voam:[7F1$\"1tn%[zn\"****F-7$$!1LL3U?#3B\"F1$\"
1%G]3'[R%)**F-7$$!1n\"z%Hu[87F1$\"1lL$>\")y<&**F-7$$!1+](o\"G:'>\"F1$
\"1%eSoNR@!**F-7$$!1nmm\"f$[h6F1$\"1il**4d8b(*F-7$$!1L$ekO9o7\"F1$\"18
q&yw],b*F-7$$!1n;H<%=]0\"F1$\"1\"=D[go0(*)F-7$$!1***\\7oCA$)*F-$\"13Jt
XuII#)F-7$$!1KLe9_>Z$)F-$\"1B0V\\nL<kF-7$$!1++Dc#Gp'oF-$\"1,o(zJ]Ea%F-
7$$!1lmmT<HW`F-$\"1;k]2:Z<GF-7$$!1KL$3n_J+%F-$\"1#Rr(=Hn&f\"F-7$$!1(**
**\\sZL\\#F-$\"1W^5u\"zF@'FM7$$!1)*****\\bMN<F-$\"1\"=h!Q!p4,$FM7$$!1$
*****\\PVt(*FM$\"1PE*>Zb=b*!#=7$$!1\"*******f0@hFM$\"1[2T*)QsYPFiv7$$!
1*)****\\#y'oCFM$\"1=uwC>P%4'!#>7$$\"18+++&*p$=\"FM$\"1Adr,X9,9Fdw7$$
\"1:++]s2O[FM$\"1@Yp%=i(QBFiv7$$\"1M$3_]\\p9\"F-$\"1Z@KE_X:8FM7$$\"1om
T&G\"H5=F-$\"1e4*H(zcwKFM7$$\"1,](=#)o!*f#F-$\"1()3TqB-]nFM7$$\"1NLLej
%yQ$F-$\"1!Qt%4?BX6F-7$$\"1PLLLCCCZF-$\"15X)H=kL@#F-7$$\"1,+vo()yyiF-$
\"1%GR&p5*4%QF-7$$\"1LLL$oD[l(F-$\"1'pt\\fC+`&F-7$$\"1/+voibk\"*F-$\"1
-LYgIqXuF-7$$\"1,]i!o<-1\"F1$\"1#G9u]D'=!*F-7$$\"1nTN\"*z@N6F1$\"1x;i7
`z/'*F-7$$\"1ML3-$=-@\"F1$\"1X?44ZpV**F-7$$\"1fk`EnVF7F1$\"1!*f_A=Sz**
F-7$$\"1%e*)4:bYC\"F1$\"1%eVA$3m(***F-7$$\"14FWvN(=E\"F1$\"1s7z(o#o(**
*F-7$$\"1Me*)**>4z7F1$\"1#4AB;+(y**F-7$$\"1%3-)[)GNJ\"F1$\"1yx_\"*4z!)
)*F-7$$\"1M$3xplzM\"F1$\"1S[8a&=%)p*F-7$$\"1+DJ&GbAU\"F1$\"10@4nNp&**)
F-7$$\"1nm\"H([a'\\\"F1$\"1*>]xQ^`%yF-7$$\"1<HKuy7N:F1$\"1%R9zSv!oqF-7
$$\"1n\"Hd(3rt:F1$\"1af7$p,3<'F-7$$\"1<a8xQH7;F1$\"1W.pM*p$f^F-7$$\"1n
;ayo(3l\"F1$\"1\"3tz>hG/%F-7$$\"1+vo%\\jWo\"F1$\"1zj#=?l]*HF-7$$\"1LL$
36]!=<F1$\"1a&oJFsv)=F-7$$\"1n\"zpsO;v\"F1$\"1Ib\">Sk&HtFM7$$\"1+]7VLA
&y\"F1$!1tO**31TTXFM7$$\"1<zp3y\\@=F1$!1`g**HM]`<F-7$$\"1M3FuAxd=F1$!1
%)HwX*oz/$F-7$$\"1]P%)Rn/%*=F1$!1([_NO#)>J%F-7$$\"1nmT07KI>F1$!1**\\wj
!>#=bF-7$$\"1+D\"yF'zn>F1$!1w!)pzhQtmF-7$$\"1L$3-Nr_+#F1$!1Gc[#)HL/xF-
7$$\"1nTgAkuU?F1$!1V#)*z!eEz&)F-7$$\"1+++&\\@-3#F1$!1s#ewvIxE*F-7$$\"1
+v=UN)o6#F1$!1d!es8PRt*F-7$$\"1+]P*eXN:#F1$!1E<&*eW;s**F-7$$\"1](oHhw=
<#F1$!1%HaoY\"*)****F-7$$\"1+DcOw?!>#F1$!1)*4.0#=U'**F-7$$\"1]i:g'Q&3A
F1$!1V%H+)fwj)*F-7$$\"1++v$opoA#F1$!1U\"oY_yvp*F-7$$\"1]7`*4UBE#F1$!17
ZmZy&y=*F-7$$\"1+DJ:X\"yH#F1$!1'3)[-z8K%)F-7$$\"1^P4JpGLBF1$!1:r`:#o%R
uF-7$$\"1,](oMf(oBF1$!1s<#o%3\"oA'F-7$$\"1](=nTX\"3CF1$!1@i2K+U`YF-7$$
\"1+Dc'[JvW#F1$!1\\43*z,h)GF-7$$\"1]iScv\"p[#F1$!1>!zt+`n#)*FM7$$\"1++
DEOIEDF1$\"1\"[odl%H'))*FM7$$\"1L3xhPphDF1$\"1cGc.h![v#F-7$$\"1m;H(*Q3
(f#F1$\"1?fG/YMaWF-7$$\"1+D\"G.uCj#F1$\"1dW\\NN$e-'F-7$$\"1LLLoT'ym#F1
$\"1T3X8&e$3uF-7$$\"1+](=p]cq#F1$\"1F9'p%)\\1h)F-7$$\"1nmT:sVVFF1$\"10
$fA&fQo%*F-7$$\"1,v=x/LiFF1$\"1fHnp,D^(*F-7$$\"1M$e*QPA\"y#F1$\"1HvSBS
aH**F-7$$\"1n\"H2+<,!GF1$\"1*R(HY?6****F-7$$\"1,+]i-,>GF1$\"1Aja*=Pp&*
*F-7$$\"1</,p/D`GF1$\"1![.w$R\"3f*F-7$$\"1M3_v1\\()GF1$\"1-i$H<rJ&))F-
7$$\"1]7.#)3t@HF1$\"1**)z^m&zfxF-7$$\"1m;a)3rf&HF1$\"1**[R[aIUjF-7$$\"
1e9T$)youHF1$\"1\\4m81#oW&F-7$$\"1]7GyYS$*HF1$\"11vnDt-yWF-7$$\"1U5:t9
77IF1$\"1*y\\/`SoW$F-7$$\"1L3-o#Q3.$F1$\"1Vs]*yU`O#F-7$$\"1D1*G1b&\\IF
1$\"1545fnmY7F-7$$\"1</wd=FoIF1$\"1Qq=\\vb[5FM7$$\"14-j_'))p3$F1$!1JOK
@oHX5F-7$$\"1,+]Zaq0JF1$!1X+*f+G%)=#F-7$$\"1U&QG\\;L7$F1$!1C$)>!pKNC$F
-7$$\"1%3x\"Qv#49$F1$!1q_N$4b_E%F-7$$\"1Dc^$eQ&eJF1$!1x6pwRSS_F-7$$\"1
nT&)G'\\h<$F1$!1Dd4F5,chF-7$$\"1]7`><P6KF1$!1.77jh$*exF-7$$\"1L$3-\"Qf
YKF1$!13w'RM=<)*)F-7$$\"1++vV5T$G$F1$!1%*[=W)>-x*F-7$$\"1m;Hx#G-K$F1$!
1)Q7%eS)f***F-7$$\"1LL$3^XqN$F1$!1$36Fouki*F-7$$\"1+]PWF'QR$F1$!1I_(oW
%fk')F-7$$\"1$eR(>$e)HMF1$!1krZ+nb!>(F-7$$\"1mT5&*Q&eY$F1$!1(*)[C.lGE&
F-7$$\"1eky#o^Q[$F1$!1XXcIF'4;%F-7$$\"1](o/Z\\=]$F1$!1?&eA#e'y)HF-7$$
\"1T5:es%)>NF1$!1+]wvTAh<F-7$$\"1LL$e/Xy`$F1$!1-xv['=-+&FM7$$\"1U&)ehq
ocNF1$\"1;Wzm6Zb$)FM7$$\"1]PMx!Hbd$F1$\"1rboA29j@F-7$$\"1e*)4$4rVf$F1$
\"1\"psn=\"ReMF-7$$\"1nT&)3J@8OF1$\"1bUA%**))op%F-7$$\"1v$4Y7b?j$F1$\"
1!Rt'*Q_Y&eF-7$$\"1%ek.9(*3l$F1$\"1'eB6M5'3pF-7$$\"1#z>h:R(pOF1$\"12M!
Rk*3PyF-7$$\"1+](=<\"e)o$F1$\"1rI.[hH?')F-7$$\"1<H2t`([s$F1$\"1,)e3R>v
l*F-7$$\"1M3Fu&p6w$F1$\"1)y5J2u&****F-7$$\"1^(oaxjuz$F1$\"1[LYMNk+'*F-
7$$\"1ommwzvLQF1$\"171Z#=<(p%)F-7$$\"1=H23gJ_QF1$\"1kX/#)3&zi(F-7$$\"1
o\"z%RS(3(QF1$\"1J/A@T4EmF-7$$\"1=a)32K%*)QF1$\"15dXSKf#[&F-7$$\"1n;H-
,*z!RF1$\"1\">YCeK$>UF-7$$\"1<zpL\"[l#RF1$\"1m(*R(*fFhGF-7$$\"1nT5lh5X
RF1$\"1,BQOU-O9F-7$$\"1</^'>kO'RF1$!1td7v:fqEFiv7$$\"1nm\"zAAA)RF1$!1w
%[@psc\\\"F-7$$\"1DJX*eE1+%F1$!1Pn4&H0q#HF-7$$\"1%e*)4&4.>SF1$!16$f%fz
Q,VF-7$$\"1Vg_7`VPSF1$!1Or()3_&ye&F-7$$\"1,D1u'Re0%F1$!1Q\"\\J&GpcnF-7
$$\"1=a8(R[E4%F1$!1/RR!zyJj)F-7$$\"1M$3-7d%HTF1$!1<w2p[$\\u*F-7$$\"18G
joH\"z8%F1$!1>0XV%))y()*F-7$$\"1$Hdq\")oj9%F1$!1#ef&f6ri**F-7$$\"1s<[l
Y#[:%F1$!1H83!>*o)***F-7$$\"1^i!R^!GjTF1$!1>)[D:X`)**F-7$$\"15_v5A>!=%
F1$!1bR3kr**4)*F-7$$\"1oTg2R5(>%F1$!1I&o4)zwP%*F-7$$\"1&3-8IF4B%F1$!1V
e6,yAF\")F-7$$\"1,++&p]ZE%F1$!1Pz*ffvE9'F-7$$\"1=H23M8%G%F1$!13_L7`(pv
%F-7$$\"1Ne9@h^.VF1$!1Z$y\"=P&QB$F-7$$\"1^(=U$))*GK%F1$!1!*>&)3g#Rh\"F
-7$$\"1o;HZ:GUVF1$\"1&)*f2*43`eFiv7$$\"1%ek.Ek;O%F1$\"1=]e=0uO<F-7$$\"
1,vVtp/\"Q%F1$\"16nk&=6FP$F-7$$\"1</^'oH/S%F1$\"1&GI[j1'=\\F-7$$\"1MLe
*R7)>WF1$\"1q#RLIo\"GjF-7$$\"1](=#H&[rV%F1$\"1OSl(4czV(F-7$$\"1nT&)eY[
aWF1$\"10;4ZX,w$)F-7$$\"1%e*[)y?=Z%F1$\"1QwS*38z6*F-7$$\"1+]7=p:*[%F1$
\"1_YG=W\\V'*F-7$$\"13F%H)\\#y\\%F1$\"13LAk$)=?)*F-7$$\"1</wZI\\1XF1$
\"17)f%zx[P**F-7$$\"1D\"yD6h^^%F1$\"1jV<\"RJV***F-7$$\"1MeRx\"HQ_%F1$
\"1X_@i4-!***F-7$$\"1^7.2`;TXF1$\"1XfhDN,(z*F-7$$\"1nmmO9]eXF1$\"1i[ab
gVg$*F-7$$\"14Fpm`)pd%F1$\"10iI8C$fj)F-7$$\"1](=nHpaf%F1$\"1!ehc7#QhwF
-7$$\"1#zWnA`Rh%F1$\"1](p]O?>Y'F-7$$\"1M3xcrVKYF1$\"17!*GrXxp]F-7$$\"1
woz'3@4l%F1$\"1N2[&>1N_$F-7$$\"1=H#o,0%pYF1$\"1j;X+I.n=F-7$$\"1f*[o%*)
)yo%F1$\"1o4g\"=DX[\"FM7$$\"1+](o(GP1ZF1$!12tJs`I\"e\"F-7$$\"1^iScV1CZ
F1$!1hKyL#4\"*>$F-7$$\"1+v$f$evTZF1$!1-@nnqeLZF-7$$\"1](oaJZ%fZF1$!1V'
4SXm09'F-7$$\"1,++&zQrx%F1$!1>338EoytF-7$$\"1,D1a<_7[F1$!1b$[\\\\[W?*F
-7$$\"1,]78Z!z%[F1$!1%)4&>;Y@)**F-7$$\"1]P%[`Gf)[F1$!1N_BD!fA_*F-7$$\"
1+DccB&R#\\F1$!1OH`VQaaxF-7$$\"1v=UnU'H%\\F1$!1'y)4f\\*4W'F-7$$\"1]7Gy
h(>'\\F1$!1G7yO9:&*[F-7$$\"1E19*3))4)\\F1$!1Z@KdgPpJF-7$$\"\"&F*$!1Ix(
4]<NK\"F--%'COLOURG6&%$RGBG$\"#5!\"\"F*F*-%+AXESLABELSG6$%!GFdjn-%%VIE
WG6$;F(Ffin%(DEFAULTG" 2 379 379 379 2 0 1 0 2 9 0 4 2 1.000000 
45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 
0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "newplot(g,[-2,5
,-3,3]);" }}{PARA 13 "" 1 "" {INLPLOT "6#-%%GRIDG6%;$!\"#\"\"!$\"\"&F)
;$!\"$F)$\"\"$F)W(\\bm\":\":402A00000000000040272000000000004024800000
00000040222000000000004020000000000000401C4000000000004019000000000000
4016400000000000401400000000000040124000000000004011000000000000401040
0000000000401000000000000040104000000000004011000000000000401240000000
0000401400000000000040164000000000004019000000000000401C40000000000040
20000000000000402220000000000040248000000000004027200000000000402A0000
000000004027D638E38E38E44024F638E38E38E440225638E38E38E4401FEC71C71C71
C7401BAC71C71C71C74017EC71C71C71C74014AC71C71C71C74011EC71C71C71C7400F
58E38E38E38E400BD8E38E38E38E400958E38E38E38E4007D8E38E38E38E400758E38E
38E38E4007D8E38E38E38E400958E38E38E38E400BD8E38E38E38E400F58E38E38E38E
4011EC71C71C71C74014AC71C71C71C74017EC71C71C71C7401BAC71C71C71C7401FEC
71C71C71C740225638E38E38E44024F638E38E38E44027D638E38E38E44026038E38E3
8E394023238E38E38E394020838E38E38E39401C471C71C71C724018071C71C71C7240
14471C71C71C724011071C71C71C72400C8E38E38E38E340080E38E38E38E340048E38
E38E38E340020E38E38E38E340008E38E38E38E340000E38E38E38E340008E38E38E38
E340020E38E38E38E340048E38E38E38E340080E38E38E38E3400C8E38E38E38E34011
071C71C71C724014471C71C71C724018071C71C71C72401C471C71C71C724020838E38
E38E394023238E38E38E394026038E38E38E3940248800000000004021A80000000000
401E100000000000401950000000000040151000000000004011500000000000400C1F
FFFFFFFFFF40069FFFFFFFFFFF40021FFFFFFFFFFF3FFD3FFFFFFFFFFE3FF83FFFFFFF
FFFE3FF53FFFFFFFFFFE3FF43FFFFFFFFFFE3FF53FFFFFFFFFFE3FF83FFFFFFFFFFE3F
FD3FFFFFFFFFFE40021FFFFFFFFFFF40069FFFFFFFFFFF400C1FFFFFFFFFFF40115000
0000000040151000000000004019500000000000401E1000000000004021A800000000
0040248800000000004023638E38E38E394020838E38E38E39401BC71C71C71C714017
071C71C71C714012C71C71C71C71400E0E38E38E38E240078E38E38E38E240020E38E3
8E38E23FFB1C71C71C71C53FF41C71C71C71C53FEE38E38E38E38A3FE838E38E38E38A
3FE638E38E38E38A3FE838E38E38E38A3FEE38E38E38E38A3FF41C71C71C71C53FFB1C
71C71C71C540020E38E38E38E240078E38E38E38E2400E0E38E38E38E24012C71C71C7
1C714017071C71C71C71401BC71C71C71C714020838E38E38E394023638E38E38E3940
229638E38E38E3401F6C71C71C71C7401A2C71C71C71C740156C71C71C71C740112C71
C71C71C7400AD8E38E38E38D400458E38E38E38D3FFDB1C71C71C71B3FF4B1C71C71C7
1B3FEB638E38E38E363FE1638E38E38E363FD6C71C71C71C6B3FD2C71C71C71C6B3FD6
C71C71C71C6B3FE1638E38E38E363FEB638E38E38E363FF4B1C71C71C71B3FFDB1C71C
71C71B400458E38E38E38D400AD8E38E38E38D40112C71C71C71C740156C71C71C71C7
401A2C71C71C71C7401F6C71C71C71C740229638E38E38E34022200000000000401E80
0000000000401940000000000040148000000000004010400000000000400900000000
000040028000000000003FF9FFFFFFFFFFFF3FF0FFFFFFFFFFFF3FE3FFFFFFFFFFFE3F
D3FFFFFFFFFFFC3FBFFFFFFFFFFFF23FAFFFFFFFFFFFE43FBFFFFFFFFFFFF23FD3FFFF
FFFFFFFC3FE3FFFFFFFFFFFE3FF0FFFFFFFFFFFF3FF9FFFFFFFFFFFF40028000000000
004009000000000000401040000000000040148000000000004019400000000000401E
8000000000004022200000000000402200E38E38E38E401E41C71C71C71C401901C71C
71C71C401441C71C71C71C401001C71C71C71C4008838E38E38E394002038E38E38E39
3FF9071C71C71C723FF0071C71C71C723FE20E38E38E38E43FD01C71C71C71C83FB071
C71C71C71F3F5C71C71C71C7B93FB071C71C71C71F3FD01C71C71C71C83FE20E38E38E
38E43FF0071C71C71C723FF9071C71C71C724002038E38E38E394008838E38E38E3940
1001C71C71C71C401441C71C71C71C401901C71C71C71C401E41C71C71C71C402200E3
8E38E38E402238E38E38E38E401EB1C71C71C71D401971C71C71C71D4014B1C71C71C7
1D401071C71C71C71D4009638E38E38E3A4002E38E38E38E3A3FFAC71C71C71C733FF1
C71C71C71C733FE58E38E38E38E63FD71C71C71C71CC3FC638E38E38E3983FBC71C71C
71C7313FC638E38E38E3983FD71C71C71C71CC3FE58E38E38E38E63FF1C71C71C71C73
3FFAC71C71C71C734002E38E38E38E3A4009638E38E38E3A401071C71C71C71D4014B1
C71C71C71D401971C71C71C71D401EB1C71C71C71D402238E38E38E38E4022C8000000
0000401FD00000000001401A9000000000014015D00000000001401190000000000140
0BA0000000000140052000000000013FFF4000000000023FF64000000000023FEE8000
000000053FE48000000000053FDD00000000000A3FD900000000000A3FDD0000000000
0A3FE48000000000053FEE8000000000053FF64000000000023FFF4000000000024005
200000000001400BA0000000000140119000000000014015D00000000001401A900000
000001401FD000000000014022C800000000004023AE38E38E38E44020CE38E38E38E4
401C5C71C71C71C840179C71C71C71C840135C71C71C71C8400F38E38E38E3904008B8
E38E38E390400338E38E38E3903FFD71C71C71C7203FF671C71C71C7203FF171C71C71
C7203FECE38E38E38E413FEAE38E38E38E413FECE38E38E38E413FF171C71C71C7203F
F671C71C71C7203FFD71C71C71C720400338E38E38E3904008B8E38E38E390400F38E3
8E38E39040135C71C71C71C840179C71C71C71C8401C5C71C71C71C84020CE38E38E38
E44023AE38E38E38E44024EB8E38E38E3A40220B8E38E38E3A401ED71C71C71C74401A
171C71C71C744015D71C71C71C744012171C71C71C74400DAE38E38E38E740082E38E3
8E38E74003AE38E38E38E740002E38E38E38E73FFB5C71C71C71CE3FF85C71C71C71CE
3FF75C71C71C71CE3FF85C71C71C71CE3FFB5C71C71C71CE40002E38E38E38E74003AE
38E38E38E740082E38E38E38E7400DAE38E38E38E74012171C71C71C744015D71C71C7
1C74401A171C71C71C74401ED71C71C71C7440220B8E38E38E3A4024EB8E38E38E3A40
268000000000014023A000000000014021000000000001401D40000000000240190000
0000000240154000000000024012000000000002400E800000000005400A0000000000
0540068000000000054004000000000005400280000000000540020000000000054002
80000000000540040000000000054006800000000005400A000000000005400E800000
000005401200000000000240154000000000024019000000000002401D400000000002
40210000000000014023A00000000001402680000000000140286B8E38E38E3A40258B
8E38E38E3A4022EB8E38E38E3A40208B8E38E38E3A401CD71C71C71C754019171C71C7
1C754015D71C71C71C754013171C71C71C754010D71C71C71C75400E2E38E38E38EA40
0BAE38E38E38EA400A2E38E38E38EA4009AE38E38E38EA400A2E38E38E38EA400BAE38
E38E38EA400E2E38E38E38EA4010D71C71C71C754013171C71C71C754015D71C71C71C
754019171C71C71C75401CD71C71C71C7540208B8E38E38E3A4022EB8E38E38E3A4025
8B8E38E38E3A40286B8E38E38E3A402AAE38E38E38E54027CE38E38E38E540252E38E3
8E38E54022CE38E38E38E54020AE38E38E38E5401D9C71C71C71CA401A5C71C71C71CA
40179C71C71C71CA40155C71C71C71CA40139C71C71C71CA40125C71C71C71CA40119C
71C71C71CA40115C71C71C71CA40119C71C71C71CA40125C71C71C71CA40139C71C71C
71CA40155C71C71C71CA40179C71C71C71CA401A5C71C71C71CA401D9C71C71C71CA40
20AE38E38E38E54022CE38E38E38E540252E38E38E38E54027CE38E38E38E5402AAE38
E38E38E5402D480000000001402A6800000000014027C8000000000140256800000000
0140234800000000014021680000000001401F900000000002401CD00000000002401A
9000000000024018D0000000000240179000000000024016D000000000024016900000
0000024016D0000000000240179000000000024018D00000000002401A900000000002
401CD00000000002401F90000000000240216800000000014023480000000001402568
00000000014027C80000000001402A680000000001402D48000000000140301C71C71C
71C8402D58E38E38E38F402AB8E38E38E38F402858E38E38E38F402638E38E38E38F40
2458E38E38E38F4022B8E38E38E38F402158E38E38E38F402038E38E38E38F401EB1C7
1C71C71E401D71C71C71C71E401CB1C71C71C71E401C71C71C71C71E401CB1C71C71C7
1E401D71C71C71C71E401EB1C71C71C71E402038E38E38E38F402158E38E38E38F4022
B8E38E38E38F402458E38E38E38F402638E38E38E38F402858E38E38E38F402AB8E38E
38E38F402D58E38E38E38F40301C71C71C71C84031C071C71C71C840305071C71C71C8
402E00E38E38E38F402BA0E38E38E38F402980E38E38E38F4027A0E38E38E38F402600
E38E38E38F4024A0E38E38E38F402380E38E38E38F4022A0E38E38E38F402200E38E38
E38F4021A0E38E38E38F402180E38E38E38F4021A0E38E38E38F402200E38E38E38F40
22A0E38E38E38F402380E38E38E38F4024A0E38E38E38F402600E38E38E38F4027A0E3
8E38E38F402980E38E38E38F402BA0E38E38E38F402E00E38E38E38F40305071C71C71
C84031C071C71C71C8403390000000000040322000000000004030D00000000000402F
400000000000402D200000000000402B4000000000004029A000000000004028400000
000000402720000000000040264000000000004025A000000000004025400000000000
402520000000000040254000000000004025A000000000004026400000000000402720
000000000040284000000000004029A00000000000402B400000000000402D20000000
0000402F4000000000004030D000000000004032200000000000403390000000000040
358B1C71C71C7240341B1C71C71C724032CB1C71C71C7240319B1C71C71C7240308B1C
71C71C72402F3638E38E38E3402D9638E38E38E3402C3638E38E38E3402B1638E38E38
E3402A3638E38E38E340299638E38E38E340293638E38E38E340291638E38E38E34029
3638E38E38E340299638E38E38E3402A3638E38E38E3402B1638E38E38E3402C3638E3
8E38E3402D9638E38E38E3402F3638E38E38E340308B1C71C71C7240319B1C71C71C72
4032CB1C71C71C7240341B1C71C71C7240358B1C71C71C724037B1C71C71C71C403641
C71C71C71C4034F1C71C71C71C4033C1C71C71C71C4032B1C71C71C71C4031C1C71C71
C71C4030F1C71C71C71C403041C71C71C71C402F638E38E38E38402E838E38E38E3840
2DE38E38E38E38402D838E38E38E38402D638E38E38E38402D838E38E38E38402DE38E
38E38E38402E838E38E38E38402F638E38E38E38403041C71C71C71C4030F1C71C71C7
1C4031C1C71C71C71C4032B1C71C71C71C4033C1C71C71C71C4034F1C71C71C71C4036
41C71C71C71C4037B1C71C71C71C403A04000000000040389400000000004037440000
0000004036140000000000403504000000000040341400000000004033440000000000
4032940000000000403204000000000040319400000000004031440000000000403114
0000000000403104000000000040311400000000004031440000000000403194000000
0000403204000000000040329400000000004033440000000000403414000000000040
35040000000000403614000000000040374400000000004038940000000000403A0400
00000000403C81C71C71C71D403B11C71C71C71D4039C1C71C71C71D403891C71C71C7
1D403781C71C71C71D403691C71C71C71D4035C1C71C71C71D403511C71C71C71D4034
81C71C71C71D403411C71C71C71D4033C1C71C71C71D403391C71C71C71D403381C71C
71C71D403391C71C71C71D4033C1C71C71C71D403411C71C71C71D403481C71C71C71D
403511C71C71C71D4035C1C71C71C71D403691C71C71C71D403781C71C71C71D403891
C71C71C71D4039C1C71C71C71D403B11C71C71C71D403C81C71C71C71D403F2B1C71C7
1C73403DBB1C71C71C73403C6B1C71C71C73403B3B1C71C71C73403A2B1C71C71C7340
393B1C71C71C7340386B1C71C71C734037BB1C71C71C7340372B1C71C71C734036BB1C
71C71C7340366B1C71C71C7340363B1C71C71C7340362B1C71C71C7340363B1C71C71C
7340366B1C71C71C734036BB1C71C71C7340372B1C71C71C734037BB1C71C71C734038
6B1C71C71C7340393B1C71C71C73403A2B1C71C71C73403B3B1C71C71C73403C6B1C71
C71C73403DBB1C71C71C73403F2B1C71C71C7340410000000000024040480000000002
403F400000000003403E100000000003403D000000000003403C100000000003403B40
0000000003403A900000000003403A0000000000034039900000000003403940000000
0003403910000000000340390000000000034039100000000003403940000000000340
39900000000003403A000000000003403A900000000003403B400000000003403C1000
00000003403D000000000003403E100000000003403F40000000000340404800000000
024041000000000002" 3 379 379 379 2 0 1 0 2 1 0 1 2 1.000000 
45.000000 45.000000 14010 14091 14086 14104 14112 15010 15070 20540 0 
17560 0 0 0 0 0 0 0 1 0 0 0 0 27668 83 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 19 "newplot(g,[1,2,3]);" }}{PARA 8 "" 1 "" 
{TEXT -1 43 "Error, (in newplot) Wrong no. of parameters" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 215 "findmin:=proc(f,guess,epsilon);\n \+
 npt:=guess;\n  nv:=f(npt[1],npt[2]);\n  ov:=nv+1;\n  while (nv<ov) do
\n    opt:=npt;\n    ov:=nv;\n    npt:=gradstep(f,opt,epsilon);\n    n
v:=f(npt[1],npt[2]);\n  od;\n  RETURN(opt,ov);\nend;" }}{PARA 7 "" 1 "
" {TEXT -1 43 "Warning, `npt` is implicitly declared local" }}{PARA 7 
"" 1 "" {TEXT -1 42 "Warning, `nv` is implicitly declared local" }}
{PARA 7 "" 1 "" {TEXT -1 42 "Warning, `ov` is implicitly declared loca
l" }}{PARA 7 "" 1 "" {TEXT -1 43 "Warning, `opt` is implicitly declare
d local" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(findminGR6%%\"fG%&guessG
%(epsilonG6&%$nptG%#nvG%#ovG%$optG6\"F/C'>8$9%>8%-9$6$&F26#\"\"\"&F26#
\"\"#>8&,&F5F;F;F;?(F/F;F;F/2F5F@C&>8'F2>F@F5>F2-%)gradstepG6%F7FF9&>F
5F6-%'RETURNG6$FFF@F/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
18 "f:=(a,b)->a^2+b^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6$%\"
aG%\"bG6\"6$%)operatorG%&arrowGF),&*$)9$\"\"#\"\"\"\"\"\"*$)9%F1F2F3F)
F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "findmin(f,[1,1],.1)
;" }}{PARA 7 "" 1 "" {TEXT -1 32 "Warning, computation interrupted" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 237 "findmin:=proc(f,guess,epsi
lon);\n  npt:=guess;\n  nv:=f(npt[1],npt[2]);\n  ov:=nv+1;\n  for i fr
om 1 to 200 while (nv<ov) do\n    opt:=npt;\n    ov:=nv;\n    npt:=gra
dstep(f,opt,epsilon);\n    nv:=f(npt[1],npt[2]);\n  od;\n  RETURN(opt,
ov,i);\nend;" }}{PARA 7 "" 1 "" {TEXT -1 43 "Warning, `npt` is implici
tly declared local" }}{PARA 7 "" 1 "" {TEXT -1 42 "Warning, `nv` is im
plicitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 42 "Warning, `ov` \+
is implicitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, \+
`i` is implicitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 43 "Warni
ng, `opt` is implicitly declared local" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%(findminGR6%%\"fG%&guessG%(epsilonG6'%$nptG%#nvG%#ovG%\"iG%$op
tG6\"F0C'>8$9%>8%-9$6$&F36#\"\"\"&F36#\"\"#>8&,&F6F<F<F<?(8'F<F<\"$+#2
F6FAC&>8(F3>FAF6>F3-%)gradstepG6%F8FI9&>F6F7-%'RETURNG6%FIFAFDF0F0F0" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "findmin(f,[1,1],.1);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6%7$$\"+zW*o=&!#HF$$\"+o[x!Q&!#[\"$,#" }
}}{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 "" }}}}{MARK "19 0 0" 0 }
{VIEWOPTS 1 1 0 2 1 1805 }