{VERSION 5 0 "IBM INTEL LINUX" "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 "" 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 "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 
0 0 0 0 0 0 0 0 0 2 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "W
arning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 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 12 "with(plots);" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg);" }}{PARA 7 "" 1 "" 
{TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#7Z%(animateG%*animate3dG%-animatecurve
G%&arrowG%-changecoordsG%,complexplotG%.complexplot3dG%*conformalG%,co
nformal3dG%,contourplotG%.contourplot3dG%*coordplotG%,coordplot3dG%-cy
linderplotG%,densityplotG%(displayG%*display3dG%*fieldplotG%,fieldplot
3dG%)gradplotG%+gradplot3dG%,graphplot3dG%-implicitplotG%/implicitplot
3dG%(inequalG%,interactiveG%-listcontplotG%/listcontplot3dG%0listdensi
typlotG%)listplotG%+listplot3dG%+loglogplotG%(logplotG%+matrixplotG%(o
deplotG%'paretoG%,plotcompareG%*pointplotG%,pointplot3dG%*polarplotG%,
polygonplotG%.polygonplot3dG%4polyhedra_supportedG%.polyhedraplotG%'re
plotG%*rootlocusG%,semilogplotG%+setoptionsG%-setoptions3dG%+spacecurv
eG%1sparsematrixplotG%+sphereplotG%)surfdataG%)textplotG%+textplot3dG%
)tubeplotG" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected name
s norm and trace have been redefined and unprotected\n" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#7^r%.BlockDiagonalG%,GramSchmidtG%,JordanBlockG%)L
UdecompG%)QRdecompG%*WronskianG%'addcolG%'addrowG%$adjG%(adjointG%&ang
leG%(augmentG%(backsubG%%bandG%&basisG%'bezoutG%,blockmatrixG%(charmat
G%)charpolyG%)choleskyG%$colG%'coldimG%)colspaceG%(colspanG%*companion
G%'concatG%%condG%)copyintoG%*crossprodG%%curlG%)definiteG%(delcolsG%(
delrowsG%$detG%%diagG%(divergeG%(dotprodG%*eigenvalsG%,eigenvaluesG%-e
igenvectorsG%+eigenvectsG%,entermatrixG%&equalG%,exponentialG%'extendG
%,ffgausselimG%*fibonacciG%+forwardsubG%*frobeniusG%*gausselimG%*gauss
jordG%(geneqnsG%*genmatrixG%%gradG%)hadamardG%(hermiteG%(hessianG%(hil
bertG%+htransposeG%)ihermiteG%*indexfuncG%*innerprodG%)intbasisG%(inve
rseG%'ismithG%*issimilarG%'iszeroG%)jacobianG%'jordanG%'kernelG%*lapla
cianG%*leastsqrsG%)linsolveG%'mataddG%'matrixG%&minorG%(minpolyG%'mulc
olG%'mulrowG%)multiplyG%%normG%*normalizeG%*nullspaceG%'orthogG%*perma
nentG%&pivotG%*potentialG%+randmatrixG%+randvectorG%%rankG%(ratformG%$
rowG%'rowdimG%)rowspaceG%(rowspanG%%rrefG%*scalarmulG%-singularvalsG%&
smithG%,stackmatrixG%*submatrixG%*subvectorG%)sumbasisG%(swapcolG%(swa
prowG%*sylvesterG%)toeplitzG%&traceG%*transposeG%,vandermondeG%*vecpot
entG%(vectdimG%'vectorG%*wronskianG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 "restart;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "P:=200*
(0.65-0.01*x)*exp(0.025*x)-0.45*x;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%\"PG,&*(\"$+#\"\"\",&$\"#l!\"#F(*&$F(F,F(%\"xGF(!\"\"F(-%$expG6#,$*&
$\"#D!\"$F(F/F(F(F(F(*&$\"#XF,F(F/F(F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "plot(P,x=0..65);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 
300 300 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"\"!F)$\"$I\"F)7$$\"3WLL$3-:o
T\"!#<$\"3Q$f\"yc!Q6J\"!#:7$$\"3zm;z%>y&\\EF/$\"31Ry=RO[?8F27$$\"3<LLe
9$\\f.%F/$\"3,X,\"[uj0L\"F27$$\"3NML3--^JaF/$\"3I***p*Q$*>S8F27$$\"3,n
;HK#Q/#oF/$\"3h?XxfKA\\8F27$$\"3PL$e9J_\"3\")F/$\"31?p8HK.d8F27$$\"3c+
]7`c]T%*F/$\"3;8@_\\4]k8F27$$\"3ULekeh/#3\"!#;$\"3ix1.2'*\\r8F27$$\"32
+D1>&*\\>7FT$\"3P)e$Gl]nx8F27$$\"3\"om;a>()3O\"FT$\"3@G&HzA<JQ\"F27$$
\"3_L$3x`@a[\"FT$\"3![bno3\"3(Q\"F27$$\"39++D6xhD;FT$\"3sAd$f6O0R\"F27
$$\"3!****\\Pa*Qm<FT$\"3%=%p!4qWGR\"F27$$\"39++v)G\\?!>FT$\"3'***3qe&z
QR\"F27$$\"3cLekL8CD?FT$\"3K!yy%*fIPR\"F27$$\"3!pm;/fG<<#FT$\"3wh7$o!H
5#R\"F27$$\"3!omm;^AeH#FT$\"38#\\>Tl-%*Q\"F27$$\"37+D\"GCt,W#FT$\"3\"=
T[]XBYQ\"F27$$\"3^mm;*4[zc#FT$\"3-iF7/5#)y8F27$$\"3V+D\"yOP\"3FFT$\"3<
II@Tcjq8F27$$\"3A+vV.2jTGFT$\"3F7Aq'o^4O\"F27$$\"3@n;z%*p\"4)HFT$\"3'R
Yev4Z([8F27$$\"3=n\"H2HD)3JFT$\"3$f#G4ef_N8F27$$\"3wL$3xm\"zYKFT$\"33i
*\\mUi*=8F27$$\"3KLeke**4!R$FT$\"3-X]&\\&=1*H\"F27$$\"3$)*\\(=Z-&[^$FT
$\"3w!GS=:f$z7F27$$\"3sL$ek(Re\\OFT$\"3z0$HorOaD\"F27$$\"3$*****\\-rx)
y$FT$\"3B,%G5sjwA\"F27$$\"3>+]i?/&\\#RFT$\"3?4'oc$zH(>\"F27$$\"3W+D\"y
50n0%FT$\"3&\\l_$Gdsk6F27$$\"3\"***\\PCi*H?%FT$\"3v_'ff)flC6F27$$\"3Rm
m;*HXWL%FT$\"3.A-y-q$\\3\"F27$$\"3S++vV_zuWFT$\"3#=(HUT9TQ5F27$$\"3/Le
k`J(>g%FT$\"3t<RuospB**FT7$$\"3S++D,A,TZFT$\"3Q-#[%\\Hlv$*FT7$$\"3Pm\"
z%4r$=([FT$\"3#[6q*eU(\\\"))FT7$$\"3^+D1Moe3]FT$\"3qUt]!Q'fz\")FT7$$\"
3VmmT&o%GU^FT$\"3m)fm@%)fp](FT7$$\"3K+DJXRD#G&FT$\"3HONzWx>XnFT7$$\"3-
MLLy41<aFT$\"3'=E&*)>ou_fFT7$$\"3aL$3-k?\\b&FT$\"36d%))QAf$z]FT7$$\"3_
n\"zWvQ;p&FT$\"3n+P1Q#Go9%FT7$$\"3p++]-&os\"eFT$\"3'\\O^,9R&GKFT7$$\"3
Nn;/rVDhfFT$\"3M@3&fmm)*4#FT7$$\"3,MLL[q.!4'FT$\"3nm.\"4&zy<5FT7$$\"3y
+D\"GCYtA'FT$!3BdAD^/\"[:#F/7$$\"3\"3](=i'o(ejFT$!3d\")>**yhuw9FT7$$\"
#lF)$!3H***********\\#HFT-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELS
G6$Q\"x6\"Q!Fd[l-%%VIEWG6$;F(Fez%(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 14 "dP:=diff(P,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%#dPG,(*&$\"$+#!\"#\"\"\"-%$expG6#,$*&$\"#D!\"$F*%\"xGF*F*F*!\"\"*($\"
%+]F2F*,&$\"#lF)F**&$F*F)F*F3F*F4F*F+F*F*$\"#XF)F4" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 17 "dP2:=diff(P,x$2);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$dP2G,&*&$\"&++\"!\"&\"\"\"-%$expG6#,$*&$\"#D!\"$F*%
\"xGF*F*F*!\"\"*($\"'+]7!\"'F*,&$\"#l!\"#F**&$F*F<F*F3F*F4F*F+F*F*" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "#simple version of Newton's
 method" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "y[1]:=40.0;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"yG6#\"\"\"$\"$+%!\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "for i from 1 to 5 do " }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 15 "assign(x=y[i]);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 27 "y[i+1]:=evalf(y[i]-dP/dP2);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "unassign('x');" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "o
d;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"yG6#\"\"#$\"+$4(HoE!\")" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"yG6#\"\"$$\"+/pbj?!\")" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>&%\"yG6#\"\"%$\"+X%y.&>!\")" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>&%\"yG6#\"\"&$\"+p$>o%>!\")" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"yG6#\"\"'$\"+Xf\"o%>!\")" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 40 "#Maple implementation of Netwon's method" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "fsolve(dP,x);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#$\"+Wf\"o%>!\")" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "fsolve(dP,x,20..30);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#-%'fsolveG6%,(*&$\"$+#!\"#\"\"\"-%$expG6#,$*&$\"#D!\"$F+%\"xGF+F+F+
!\"\"*($\"%+]F3F+,&$\"#lF*F+*&$F+F*F+F4F+F5F+F,F+F+$\"#XF*F5F4;\"#?\"#
I" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "fsolve(dP,x=10);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+Wf\"o%>!\")" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 36 "#Newton's method in higher dimension" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 25 "f:=x1^4-3*x1*x2+(x2+2)^2;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"fG,(*$)%#x1G\"\"%\"\"\"F**(\"\"$F*F(F*%#x2GF*!\"\"*
$),&F-F*\"\"#F*F2F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "pl
ot3d(f,x1=-2..2, x2=-10..10,axes=normal);" }}{PARA 13 "" 1 "" 
{GLPLOT3D 400 300 300 {PLOTDATA 3 "6%-%%GRIDG6%;$!\"#\"\"!$\"\"#F);$!#
5F)$\"#5F)X,%)anythingG6\"6\"[gl'!%\"!!#\\bm\":\":40340000000000004028
B8E38E38E388401871C71C71C7103FF3FFFFFFFFFFF0C001C71C71C71C78C01138E38E
38E390C014000000000000C01138E38E38E38FC001C71C71C71C733FF4000000000000
401871C71C71C71E4028B8E38E38E3904034000000000000403D071C71C71C724043B8
E38E38E38E4049A0000000000040501C71C71C71C84053C1C71C71C71C4057C0000000
0000405C171C71C71C724060638E38E38E384062E80000000000406598E38E38E38E40
687638E38E38E3406B80000000000040344C0CA4587E6C40287BA781948B0C40164CA4
587E6B683FD30329161F9A40C00CBC0CA4587E78C0185E06522C3F34C01CCFCD6E9E06
50C01BB35BA781948DC01508B0FCD6E9E0C0019F9ADD3C0CA64001EE9E06522C3D4020
26522C3F35BB402E981948B0FCD74037E87E6B74F0324040F43F35BA781A4046A60652
2C3F36404D09948B0FCD7040520F74F03291624055F30329161F9A405A2F74F0329162
405EC4CA4587E6B64061D981948B0FCD40647D0FCD6E9E0540674D0FCD6E9E06406A49
81948B0FCD4035B74F03291620402A7CD6E9E065204018A4587E6B74E03FDDD3C0CA45
8740C00EB74F03291628C01B06522C3F35BCC0209161F9ADD3C0C020D87E6B74F034C0
1CB0FCD6E9E068C01222C3F35BA783BFE0329161F9ADE04013A4587E6B74EF40276E9E
06522C3E4033E9161F9ADD3C403D7E6B74F0329140443BA781948B10404A69E06522C3
F44050A4F0329161FA40546DD3C0CA458840588F9ADD3C0CA4405D0A4587E6B74E4060
EEE9E06522C440638522C3F35BA6406647CD6E9E0651406936E9E06522C44038100000
000000402E58E38E38E38C401EB1C71C71C7103FF8FFFFFFFFFFF0C009471C71C71C78
C019F8E38E38E38CC020E00000000000C021FC71C71C71C6C02051C71C71C71CC017C0
0000000002C0029C71C71C71CA4005638E38E38E3840221FFFFFFFFFFF4030D71C71C7
1C72403A01C71C71C71C4042480000000000404840E38E38E38E404EEB8E38E38E3840
5324000000000040572B1C71C71C71405B8B1C71C71C7040602200000000004062AAE3
8E38E38D40656038E38E38E24068420000000000403B29161F9ADD3E4031DADD3C0CA4
584023E06522C3F356400B48B0FCD6E9D8BFFBA781948B0FD0C015E9E06522C3F0C01F
5BA781948B10C0219F9ADD3C0CA4C020CA4587E6B74FC01A5BA781948B10C00B29161F
9ADD3D3FF30329161F9AD9401CA4587E6B74EE402D0B0FCD6E9E0540374587E6B74F03
4040B48B0FCD6E9E4046781948B0FCD8404CED6E9E06522C40520A4587E6B74E4055F6
B74F032915405A3C0CA4587E6A405EDA4587E6B74E4061E8B0FCD6E9DF406490B0FCD6
E9DF40676522C3F35BA7403EDA4587E6B75240352161F9ADD3C04029981948B0FCD240
1769161F9ADD383FD30329161F9AC0C00EF4F0329161F0C01A96E9E06522C0C0201291
61F9ADD2C020129161F9ADD3C01A96E9E06522C3C00EF4F0329161FA3FD30329161F9A
E0401769161F9ADD3A4029981948B0FCD640352161F9ADD3C0403EDA4587E6B74E4044
FB5BA781948B404B3B5BA781948A4051169161F9ADD34054E8587E6B74EF4059130329
161F99405D969161F9ADD340613981948B0FCC4063D42C3F35BA7740669B48B0FCD6E9
40418000000000024038DC71C71C71C740301C71C71C71C64021800000000000400638
E38E38E390BFFCE38E38E38E30C013FFFFFFFFFFFCC01B38E38E38E389C01CE38E38E3
8E36C018FFFFFFFFFFFEC00F1C71C71C71C6BFC1C71C71C71C504013FFFFFFFFFFFF40
270E38E38E38E3403371C71C71C71C403CBFFFFFFFFFFF4043B8E38E38E38F4049C38E
38E38E3840504000000000004053F71C71C71C714058071C71C71C70405C6FFFFFFFFF
FF406098E38E38E38D40632638E38E38E24065E000000000004043BDBA781948B2403C
ED3C0CA4587E4033C29161F9ADD14027F6E9E06522C240165F9ADD3C0CA83FE2FCD6E9
E06550C00824587E6B74E8C014F5BA781948ADC0184B0FCD6E9E04C016122C3F35BA76
C00C961F9ADD3C09BFCEB74F032915F84011EDD3C0CA458840252FCD6E9E0652403217
E6B74F0329403AFB74F03291624042A148B0FCD6EA4048769E06522C3F404EFDBA7819
48B040531B4F0329161F405710A4587E6B74405B5EDD3C0CA458406002FCD6E9E06440
6282FCD6E9E06440652F6E9E06522C40461948B0FCD6EB40409CD6E9E065224037A458
7E6B74ED402EE522C3F35BA6402148B0FCD6E9E14009CD6E9E065234BFE9ADD3C0CA45
70C00B87E6B74F0322C012C3F35BA78192C01235BA781948AFC008329161F9ADD0BFBB
A781948B0F704010CA4587E6B74F4023C8B0FCD6E9E04030F9ADD3C0CA464039729161
F9ADD34041A781948B0FCE40474781948B0FCD404D9948B0FCD6E940524E6B74F03291
405629161F9ADD3B405A5CA4587E6B74405EE9161F9ADD3A4061E735BA781948406486
522C3F35BA40488800000000014042D638E38E38E3403BAC71C71C71C440330FFFFFFF
FFFF4027AE38E38E38E34018071C71C71C743FF900000000000CBFF7E38E38E38E2CC0
09471C71C71C6DC00B7FFFFFFFFFFDC0029C71C71C71C53FC638E38E38E3C040104000
000000004022AE38E38E38E4403001C71C71C71D40381000000000004040C0E38E38E3
8F40462B8E38E38E39404C48000000000040518B1C71C71C7140554B1C71C71C714059
640000000000405DD5C71C71C71A40615038E38E38E34063E20000000000404B01948B
0FCD7040451A781948B0FC403FCA4587E6B74C4036C329161F9ADC402E3F35BA781947
4021BF35BA78194A40100CA4587E6B783FE148B0FCD6EA00BFF8B0FCD6E9E05CC001E6
B74F032913BFF8B0FCD6E9E0613FE148B0FCD6E9EC40100CA4587E6B754021BF35BA78
1949402E3F35BA78194A4036C329161F9ADD403FCA4587E6B75040451A781948B0FD40
4B01948B0FCD6E4050CD3C0CA4587E4054729161F9ADD3405870CA4587E6B7405CC7E6
B74F03274060BBF35BA781944063406522C3F35B404D801948B0FCD8404763A781948B
0F4041F8FCD6E9E063403A80329161F9AC403271F9ADD3C0CA40278E9E06522C40401A
00CA4587E6BA4004E522C3F35BAF3FBCA4587E6B7580BFEFF9ADD3C0CA3ABFE7161F9A
DD3C043FEE3F35BA781954401000CA4587E6B74020E3F35BA78195402C8E9E06522C40
403580329161F9AE403E1CA4587E6B7640440E522C3F35BA4049C01948B0FCD7405011
D3C0CA458740539C7E6B74F0324057800CA4587E6B405BBC7E6B74F031406028E9E065
22C34062A006522C3F3640500000000000004049AE38E38E38E340440E38E38E38E240
3E3FFFFFFFFFFE4035C71C71C71C71402D638E38E38E3A40220000000000014012C71C
71C71C753FFC71C71C71C7263FD00000000000163FBC71C71C71C7603FF5C71C71C71C
77401000000000000040200E38E38E38E4402AE38E38E38E3A4034400000000000403C
71C71C71C71E4043038E38E38E394048800000000000404EAE38E38E38E34052C71C71
C71C714056900000000000405AB1C71C71C71B405F2C71C71C71C64062000000000000
4051400CA4587E6C404BF8FCD6E9E064404623A781948B0E4041001948B0FCD640391C
A4587E6B7440319CA4587E6B754027006522C3F35D401B1D3C0CA45882400B8FCD6E9E
06573FF80329161F9AE33FEE3F35BA7819503FFC74F0329161FE401000CA4587E6B740
1E729161F9ADD440293948B0FCD6EA403300329161F9AD403AC74F032916214041F8FC
D6E9E0654047401948B0FCD7404D38FCD6E9E0644051F1D3C0CA45874055A00CA4587E
6B4059A729161F9ADC405E0729161F9ADC40616006522C3F36405280CA4587E6B8404E
4522C3F35BA640483A781948B0FA4042E1948B0FCD6E403C74F0329161F940348A4587
E6B74F402C06522C3F35BC4021BF35BA78194A40147E6B74F0329440061948B0FCD6EC
3FFCA4587E6B74F44001A781948B0FD040100CA4587E6B75401CD3C0CA4587E7402794
8B0FCD6E9E4031C329161F9ADD40391F9ADD3C0CA54040EFCD6E9E0652404601948B0F
CD6E404BC522C3F35BA740511D3C0CA4587D4054B0CA4587E6B740589D3C0CA4587D40
5CE29161F9ADD24060C06522C3F35C4053C4000000000040504B1C71C71C71404A5638
E38E38E14044C7FFFFFFFFFF403FD71C71C71C70403781C71C71C71C40309000000000
004026038E38E38E3A401B5C71C71C71CA40104000000000014005638E38E38E3A4005
638E38E38E3A4010400000000000401B5C71C71C71C74026038E38E38E3A4030900000
000000403781C71C71C71E403FD71C71C71C724044C80000000000404A5638E38E38E3
40504B1C71C71C714053C40000000000405795C71C71C71B405BC071C71C71C6406022
000000000040550CA4587E6B75405179161F9ADD3C404C7CD6E9E065204046B948B0FC
D6E84041A781948B0FCD403A8F0329161F9B4033329161F9ADD4402A735BA781948C40
2148B0FCD6E9E24015CA4587E6B750400D22C3F35BA7824009CD6E9E06522E4010CA45
87E6B74F401A3C0CA4587E6C40249E06522C3F36402EE522C3F35BA64035F9ADD3C0CA
47403DE4587E6B74F040439948B0FCD6EA4048F22C3F35BA78404EFCD6E9E065214052
DCA4587E6B75405693C0CA4587E5405AA3C0CA4587E6405F0CA4587E6B7540565EDD3C
0CA4584052B0A4587E6B74404EB69E06522C3C4048BDBA781948AF4043769E06522C3E
403DC29161F9ADD34035FB74F0329162402F2FCD6E9E065440252FCD6E9E0653401BED
D3C0CA458840130A4587E6B74F400F69E06522C3F44011EDD3C0CA45874019B4F03291
61FA40238522C3F35BA8402CF6E9E06522C3403497E6B74F032A403C17E6B74F032940
427DBA781948B14047A148B0FCD6EA404D769E06522C3E4051FEDD3C0CA45940559B4F
0329161E405990A4587E6B74405DDEDD3C0CA4584057C000000000004053F71C71C71C
714050871C71C71C70404ADFFFFFFFFFFE4045638E38E38E38404098E38E38E38E4039
000000000000403231C71C71C71D40298E38E38E38E44021800000000000401871C71C
71C71D401371C71C71C71D4013FFFFFFFFFFFF401A1C71C71C71C74022E38E38E38E3A
402B7FFFFFFFFFFF403371C71C71C71E403A871C71C71C72404180000000000040466E
38E38E38E3404C0E38E38E38E240513000000000004054B1C71C71C71B40588C71C71C
71C6405CC000000000004059369161F9ADD44055530329161F9A4051C8587E6B74EF40
4D2D22C3F35BA640477B5BA781948A40427B5BA781948B403C5A4587E6B75040352161
F9ADD3C2402E981948B0FCD84025B48B0FCD6E9F401F30329161F9AF40188587E6B74F
04401769161F9ADD3C401BDADD3C0CA4594022ED6E9E06522D402AB48B0FCD6E9D4032
A161F9ADD3C240394C0CA4587E6C4040AD22C3F35BA740456606522C3F36404AD0B0FC
D6E9DF4050769161F9ADD44053DDADD3C0CA4440579DADD3C0CA44405BB69161F9ADD4
405ACA4587E6B7504056CC0CA4587E6B405326B74F032915404FB48B0FCD6E9C4049CD
6E9E06522C4044981948B0FCD74040148B0FCD6E9F40388587E6B74F0540324587E6B7
4F05402AD22C3F35BA7A4023E06522C3F35C401F6B74F0329164401CA4587E6B74F140
1F6B74F03291634023E06522C3F35D402AD22C3F35BA7740324587E6B74F0440388587
E6B74F034040148B0FCD6E9E4044981948B0FCD64049CD6E9E06522B404FB48B0FCD6E
9E405326B74F0329154056CC0CA4587E6A405ACA4587E6B74E405C8400000000004058
6B1C71C71C724054AB1C71C71C70405143FFFFFFFFFF404C6B8E38E38E38404700E38E
38E38E4042480000000001403C81C71C71C71F4035D71C71C71C744030900000000001
402958E38E38E390402458E38E38E39140222000000000014022AE38E38E38E4402603
8E38E38E3A402C1FFFFFFFFFFF403281C71C71C71D4038571C71C71C71403F90000000
000040441638E38E38E440491638E38E38E2404EC80000000000405295C71C71C71B40
562071C71C71C6405A040000000000405E6DD3C0CA458A405A3A4587E6B74F40565F9A
DD3C0CA44052DDD3C0CA4588404F69E06522C3F44049C9E06522C3F44044DBA781948B
1240409F35BA78194A403A29161F9ADD3F4034774F03291622403029161F9ADD3E402A
7CD6E9E0652740276E9E06522C4240272781948B0FD04029A781948B0FD0402EEE9E06
522C4040337E6B74F032934038E9161F9ADD3C403FB74F0329161F4043F48B0FCD6E9E
4048BF35BA781948404E3BA781948B10405234F0329161F84055A4F0329161F840596D
D3C0CA458840604981948B0FCE405C44CA4587E6B840584F74F03291624054B3032916
1F9B40516F74F0329162404D09948B0FCD704047E606522C3F384043743F35BA781B40
3F687E6B74F03640394C0CA4587E6E40349329161F9AE040313DD3C0CA458A402E9819
48B0FCDB402D7BA781948B14402F26522C3F35BF4031CC0CA4587E6D4035687E6B74F0
35403A687E6B74F03440406606522C3F36404449948B0FCD6E4048DEE9E06522C3404E
2606522C3F3640520F74F0329161405564CA4587E6B64059130329161F9B4061800000
000001405E971C71C71C73405A871C71C71C724056D00000000001405371C71C71C71E
40506C71C71C71C8404B8000000000034046D8E38E38E3914042E38E38E38E3C403F40
0000000005403A1C71C71C71CB40365C71C71C71CB40340000000000044033071C71C7
1C75403371C71C71C7204035400000000002403871C71C71C720403D071C71C71C7440
4180000000000140452E38E38E38E440498E38E38E38E3404EA00000000001405231C7
1C71C71C40556C71C71C71C64059000000000000-%+AXESLABELSG6%%#x1G%#x2GQ!F4
-%*AXESSTYLEG6#%'NORMALG" 1 2 0 1 10 0 2 1 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "
dfdx1:=diff(f,x1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&dfdx1G,&*&\"
\"%\"\"\")%#x1G\"\"$F(F(*&F+F(%#x2GF(!\"\"" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 18 "dfdx2:=diff(f,x2);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%&dfdx2G,(*&\"\"$\"\"\"%#x1GF(!\"\"*&\"\"#F(%#x2GF(F(\"\"%F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "fsolve(\{dfdx1,dfdx2\},\{x1=
0,x2=0\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/%#x2G$!+\"y,')>%!\"*/
%#x1G$!+@Xtl9F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "fsolve(
\{dfdx1,dfdx2\},\{x1=1,x2=1\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/
%#x2G$!+\"y,')>%!\"*/%#x1G$!+@Xtl9F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 36 "fsolve(\{dfdx1,dfdx2\},\{x1=10,x2=10\});" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#<$/%#x2G$!+\"y,')>%!\"*/%#x1G$!+@Xtl9F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "#Method of Random Search" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 89 "g:=3.2+1.7*(6*((x-1)^2+(y-5)^2)^0.455+8*((x-3)^2+(y
-5)^2)^0.455+8*((x-5)^2+(y-5)^2)^0.455" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 79 "+21*((x-1)^2+(y-3)^2)^0.455+6*((x-3)^2+(y-3)^2)^0.455+3*((x-5)
^2+(y-3)^2)^0.455" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "+18*((x-1)^2+(
y-1)^2)^0.455+8*((x-3)^2+(y-1)^2)^0.455+6*((x-5)^2+(y-1)^2)^0.455)/84;
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"gG,6$\"#K!\"\"\"\"\"*&$\"+9dG9
7!#5F)),&*$),&%\"xGF)F)F(\"\"#F)F)*$),&%\"yGF)\"\"&F(F4F)F)$\"$b%!\"$F
)F)*&$\"+>w/>;F-F)),&*$),&F3F)\"\"$F(F4F)F)F5F)F:F)F)*&F>F)),&*$),&F3F
)F9F(F4F)F)F5F)F:F)F)*&$\"++++]UF-F)),&F0F)*$),&F8F)FEF(F4F)F)F:F)F)*&
F+F)),&FBF)FQF)F:F)F)*&$\"+s&G92'!#6F)),&FIF)FQF)F:F)F)*&$\"+Vr&Gk$F-F
)),&F0F)*$),&F8F)F)F(F4F)F)F:F)F)*&F>F)),&FBF)F\\oF)F:F)F)*&F+F)),&FIF
)F\\oF)F:F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "#we want t
o minimize g" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "plot3d(g,x=
0..6,y=0..6,axes=normal);" }}{PARA 13 "" 1 "" {GLPLOT3D 400 300 300 
{PLOTDATA 3 "6%-%%GRIDG6%;$\"\"!F($\"\"'F(F&X,%)anythingG6\"6\"[gl'!%
\"!!#\\bm\":\":4021EC967489976A40216FDFA87CCD3D4020FB46C38A50284020915
C53777852402034A2870D652C401FCCE6A60D722C401F4CCAB7F8820D401EE60C2EEFB
76F401E9631E3E5A10B401E5CB44F975BCE401E3B6DEC704C67401E3636D4F7CFE5401
E513DED943F45401E8E3901DBAB1C401EEAC5A8E4BFD2401F61E454A5FE61401FEE9CF
25D6FFF402046B7FAA413BB40209E44507C1FC64020FDAEA3A07E34402164F8FE31D2C
94021D3ECB4615817402249CEF73902294022C58CA6F5C2E540234613F94AEF6640218
5E168664D104021019C201FE7F7402084DE580892714020134AC1CF2B9B401F627CD4A
0A84F401EC238E811CA9F401E427D157104F6401DDC44DBA9DC7E401D8A91DDEF68A54
01D4C220974CDA1401D2394FABF55D5401D178EC12F7F2F401D30E9DD658DAC401D742
15217AE19401DDC4EA3CDE6D3401E600906E3043F401EF7C9C32237A1401F9F664D877
F1B40202AB2A28173DF40208D292E9C63B94020F7E60A9A023D40216B32E2E57CA0402
1E60C64FB6563402266CB5C24B46E4022EC0890ED827640212985AB63BBDC40209D6B0
3F132FC4020173A6180B660401F371BBC39540D401E659C12F790D9401DC5B3E42E59A
A401D4CA574FB360A401CEAC67C7E2864401C9870B0E0FD41401C53F1FB93A212401C2
0193A729C88401C06606C83C38D401C19877EDC4FCF401C6693AD5FA40E401CE0600A2
C394E401D73F6AC971D94401E176BBC8E4EC4401EC6EE535010D3401F81CA04CEF11E4
02024F47BAAB6FA402092100597A426402109DA0BE3ED0F40218A36607D15A34022102
D80C4DE2D40229A098A3CC6B34020DA21C94907884020470EB17282C5401F6E5268B1C
0D8401E5B3A4AC39069401D727CA1BB42EC401CDF1229365800401C769F5596D470401
C1C21EA5910E2401BCA007350EF15401B7F6BB747DA13401B3DA244A0D1CC401B0B6AF
2C45767401B0AE67418457F401B6DDDF2FA26B8401C02A816B6F5FD401CA73F982C153
D401D54EAD5D2EA99401E0A4B815F1EE0401EC76C197FC605401F8E197F140E1C40203
3F72AD3B9B64020B1742BA4992C4021383EE98F41A54021C34016AB650E4022513B052
6CF7B40209A3247642573402002F06AFBB0CC401EDA67FBB299D1401DB105325A9B7C4
01C81C13603CAEA401C2D08C31F3B6F401BD2EA04D96B97401B7BD1FD7F7171401B291
C3DC22739401ADB12A0DAC5C3401A9154CAA654D4401A4A5BA44850E84019FC7F381E7
AD9401AAD557A59D006401B57827AABAB9B401C04EC86C00CD4401CB76393672393401
D6FA718A2B442401E2DFEDB72A22C401EF232E63E686A401FB98E34433505402067556
BB07A864020F34360F44055402181BA3A1AC100402212AC7D723F4340206AF11DD8E98
1401FA6CAA054CBD2401E7E803C3B0B6B401D63A718E856D6401C74233B1CC348401BD
B08306D7032401B6DEDBB1686E9401B0FA894FE0D21401ABA7020954A76401A6D54BB4
E7451401A298D2B0E6AB44019F5ED240979BB4019F4A89EE10B7E401A5792C9168D6F4
01AECFC323C785C401B92D01C914B8E401C424B9FF66E24401CFA1B73386702401DBA6
D3FA10D07401E853F35148FB5401F6456705B2D9D402032DF03DA5DE04020BD68ADC00
55440214C924746D83E4021DEF8389EB51940204BB24B3A265C401F6D2DD9BFBADC401
E4FA9D13A6EB8401D48B46AC22F16401C69A767B99EAC401BBE7C3AB03483401B3C51A
477884D401AD31751A5BB35401A7AB6AB2872E1401A31350A98C96B4019F9562F28A20
64019DCBB5852FDF54019EE59ED9434E6401A3B51C578F17E401AB66B3E0BB2BB401B4
C82A557B5EE401BF38C2467D37B401CA7C8843A948E401D68D183379F54401E3905F47
DB7F8401F1DA3AE59C3C140200D0A3096E64B402094F20AABCA474021234CB0B9D0BB4
021B60EE25FA81A40203A92615D504B401F514AA681F6F1401E3DB8FC01851D401D42D
A5D829FC3401C6A674F2CA583401BB9933622B08C401B2CBD3C7B9859401ABC0B90521
267401A61A4ADAD8C1E401A1BC5C5DEE5E94019ED0B28415CD34019DC7B474897EA401
9F36EB43FCD63401A369D55C6060E401AA0EFCB1E95FA401B288AECA56B84401BC590B
636CF33401C73E4010218D9401D3294CF38ECC1401E0310C1A53049401EE7D02ACD009
F401FE1BC929D98E840207730D5AE1DF8402104B7DFCFA988402197772A003F4D40203
5A48744A232401F4CE31E45780B401E401BB3A5EE26401D4BF21ADE3C37401C773F00A
A0D35401BC5860581F6ED401B35335CE4D7B6401AC1B018694D00401A66F2D1262D364
01A23A56A12E4414019F9BB39B506C04019EDE6EC7637C4401A0572935C3891401A429
EA678F9C0401AA28E4B082BAD401B1F36ACB8EF2B401BB2D4524AEB62401C59DCBE95A
977401D1355D4F80D26401DE04FA0A29F0F401EC2865AE22DCD401FBA50778FF8C7402
062B3D68ED4684020EFE68BF62776402182BBED37CF5740203B9D8B3D79FA401F5CA22
F62F204401E537BDAF78F57401D6252C18D4C80401C8FF5A6BD25AA401BE01D662AB4B
0401B512D43E668E8401ADEB7FF9C02CB401A85275ACBA422401A4351736473D8401A1
AB5DA33A5C5401A0F1219D4CBB6401A24CF4D5CD306401A5DD5901D4DDE401AB779CBA
1623F401B2C727CD668F6401BB7E6470EC8E4401C56E4392A7BA0401D08C97233E0144
01DCF331C12A48E401EACE86F9AA9A7401FA2DB29802A2F402056FA570E1DE34020E48
11B618864402177B2AE2CC89C40204BF590FCCCA6401F7FB7D4C6CA6A401E77727BB42
728401D85A360C0BBEC401CB3DB521AFD54401C08A01412D53F401B7F875F49CBE7401
B114A8E3BD291401ABA0B516A3882401A78CEBC1213FD401A4ECBC1B8D478401A3FA2E
9B71C74401A5182C86B94B1401A883FA38A294F401ADF32C0D2FC53401B4F476701FF4
F401BD3D22D82D604401C6A63B2B8C015401D129AD02C627D401DCEFF3F90512C401EA
5D047D72AC1401F9B0EEED2284B402054467958AC034020E2D6CB666FA940217694475
0049F402066C2BC8B3E2A401FB77287A59774401EAEA1480F4F2E401DB7CBB02159344
01CE1C2A280F048401C40C462DE128E401BC294288D3A27401B5A79C9ADA7B1401B05F
EBCBFD4A1401AC4E001C68FF0401A97CE3F191974401A81338C62D062401A8B22E39ED
2A0401AC3B4D4A61EB2401B1C00FC9AD26E401B8919D468E9CD401C07A8693C11F2401
C95FCBA6A843F401D3354659347AC401DE13740BDFDA2401EABAEA9397546401FA4AF2
04A562F40205C141EB612C54020EBEDE8FB470840217FEF824F8A9240208C5561CAC2A
C40200325F03B8A46401EFF6ADF81FF5E401E052D07FDECF4401D1564B218F72C401C9
4D715652418401C20A3E8F14B4E401BBCE69F68BC20401B6A72D6D1FC16401B29A57B8
AFCA8401AFAA91219517E401ADD4B337F0888401ACEDD75572BDE401B19E3363547414
01B731769F13695401BDC630695558F401C552DDC810235401CDC813B6309F3401D713
CFC4354A5401E11E4F5D198DB401EB9E57347EA6E401FCBE8F75EB80B4020719EDC758
36240210132D089465B4021945E446CB4264020BCA1E8415E90402036A23DFA75F8401
F6E205884B71E401E8026275E5951401DB1CE170D79A6401D1727DD7BC4E8401C9DF7A
45E6F0E401C39A0EF7E1823401BE7BEBF87CFA9401BA7F55332C0EB401B7AA8E9E3795
1401B61D8B7FE8BF3401B673BFDA92F60401B98CFB6BA7864401BE7E8E81E6C7A401C4
A2399E49FBE401CBCD7E2B81C06401D3F0207E750F5401DD06F558FE54F401E73108FA
EE719401F33309E05FDE340201170F6DEBA514020970A7C09C63F4021233C2E8389A84
021B401D74BEBA74020F6EAE130DB7E402074F6698F3CE6401FF52DF6FE4038401F153
63C443797401E52CFA03E23D4401DB41D63BFF451401D34CA5EC10783401CCDE9A973F
317401C7BDE22B766A0401C3D858321CE35401C136D5FED9FD2401C003912B0A449401
C0933837BB186401C31E30D3CEB53401C7627D404B94C401CD02268200CF3401D3CA5A
9039340401DBAAB98B26014401E4AF57CD8B419401EF0D98D25666E401FB3152B40F0F
A40204AEF9DF2869D4020C981EAA96A3E402150DC1A466D484021DE3995A96ADF40213
A07549B8D214020BC1EE8DD84BD4020466D6463F314401FB6D4AC139A9B401EFB8B208
141D1401E5E0C84FB7B98401DDD143E83F9B3401D7522255E4AAC401D23586E5C119A4
01CE670ADA9F364401CBEC24C0483D0401CAE20103774DE401CB718037E6C4B401CDAD
7FA8F7BFC401D17AA778093B7401D6A81710D9359401DD11A42C4A45F401E4AC6D4810
248401ED896FE24A31C401F7D50E438ED3840201E36792E45DF40208B901FF92BBB402
1051C48B006EC40218814B80CEDCC402211F2432FB2FF402184E5F0508F0540210A886
139CBA14020987D0821CB24402030F2E1615AA5401FAC0A2D561A1E401F11B6E8826BA
3401E9259031AEDDB401E2B8E232ABF22401DDAFFDF462504401D9F75AF785246401D7
910468EB430401D6907DDD765B2401D70E13F406B9D401D912F0E8E36B9401DC8E4021
5683B401E1609DA43CB32401E770AE03FABCF401EEB8A04AF4D66401F74B1AF2E4AAF4
0200A7D42DA40BA4020677E308CAD9C4020D1AAF5D00C92402147BA9E5D11994021C75
B776817A140224E30A78BA8444021D6D91DD0B78940215F63011725174020EFF34EE41
C9740208AB57C81808A402031F627EF2688401FCE06538BC0AD401F52BFC79E27DA401
EEF3553A39784401EA0F09587FFF7401E66C05DFE951F401E40BBE63F6751401E300A4
2CD7294401E36406C89C960401E540A78F73CFD401E884953DE1FF3401ED0FDFA59598
1401F2CABD96974D9401F9B0C5830B2E440200EB0EDBFEF1540205B47500AC3C74020B
50F6DD49D6040211CAC70C9BE054021908DA84E1BC340220DF55374F6E840229264938
5CBB640222FA6E2895ACD4021BA963F5A462F40214CD06FDAA72F4020E894BA27E89C4
020914E4A25E42A4020495C132F103E40200F1E362858AF401FBFDCE810DDA2401F74B
EB8467AF8401F3BE1191677C0401F15723CD74B80401F02D7ADC9E9A9401F06D1D1A91
3CB401F23258F1B45ED401F559EF8EF7234401F9B154528967F401FF1CA658602F4402
02CAC4DE50C73402069683C95AF9E4020B0DCCFBBC8F94021067BDB6B9B1C40216C723
7394D0B4021DFB73D31F53640225BF71EDEBD6F4022DE7E8873717240228F733283A27
D40221CB48C836E294021B01C9DAC420940214B45610976704020F39992B225E24020B
09D728D529A40207B78C40E952640204F6E6E4E484640202B9532DFF73E40200FC4D9F
32AE0401FF8279BA865BB401FE207872ACDC3401FE20822AB33A5401FFF23008B18934
02018F9D05F34CA40203A99DF3F5760402063BFF3993FEC4020942D3DEF18C94020CBF
465F9CF3640210C2FE7B9002340215B21FE4AC99B4021C1EEAF08D121402236A9543B7
1084022B24532641BC8402332D9B91075F64022F67C4D7DDC2B402286AE9B193A90402
21C3C7D7910424021B767A19B26024021573AFB318FC24021216BB3A1CED74020F0E14
949BFC24020C72C9B2DBC824020A4A53CCF0AC34020897009DABDD340207597C6FF29A
040206908044B50004020630BFCAD520C402076402F740F2E40208FD6E9A524DF4020B
054814C44534020D79E546719324021057C00D4A7344021399B228BFF734021736F962
AD3E24021B0D80093A1D84022234E89B7A79B402298A060F75FAA40231236E0FB64B24
0238FE86A176A8A402364AE6B9514C54022F8DC435711E0402292C769218C65402233D
91FE3F3CE4021E153E1372A694021A2A548D496C4402170F351B852924021478E9B26E
162402125A0386B34F040210B0CA34716C44020F7ECA306F2534020ECBC30EE0BF0402
0EBE41FEBB46F4020F8E1DC2402C44021100E44D9B90E40212ED829AF23F04021549E4
FC20656402181294064A9484021B4873588610D4021EFC6CA5C9A0E40223920D0C6977
A402299BD14B7B514402307C53E3990CE40237C52548D3FC34023F5A82B921EB64023D
9645F9DC38E4023724167B1B68A40231199472EBB8F4022B942180351AB40226C4E637
4752940222CECCFDBE5164021F97EDC3C1BA14021CF839813DC544021ADBB105C399F4
02193C1F6FDE219402181B1AFC623C34021782A919946934021787832BB9DD44021837
B0720365640219832CB4EA3D94021B536CA395D7B4021D9D02FB24B7F402205DD85397
44E402239DACF6EB4464022776B805C1E9E4022C1E4DFF3ACDD40231B7665AC37E7402
38146E6F37DD84023EF55F15C1EA3402463505752E4EA4024539A63B459114023F13D0
3258808402395B8C04775AE40234285D33CFA684022F95299FA78D94022BB19FF94BC9
C402287709CA7F5F840225D3A9BC0203E40223B9A112A9BA04022222B816C038D40221
0F6B765E6884022085F4741A946402208F9784BD0074022130DDB16591D4022263E5BA
154F6402241E4CBA27889402265941D1EE3AE4022914B1A7E154D4022C58FD01B6B4F4
023038A68EC764F40234CB8B10740DD4023A1B2A050970740240138DA11058A4024692
338BF04194024D7979A1029294024D24B7008B06B4024746F6758B4E540241D7430DA4
B2F4023CE6CDB3822DB4023885FEEA484B340234BE6CDC29C1C402318F6F1B1778F402
2EF1C02E426944022CDDCAF468F524022B4F42234105D4022A45DCF07587E40229C48F
12DBBFD40229CF53B7BF0AF4022A67D30E5EA494022B8B9AB66E99D4022D361F06038E
14022F64587CA62E540232174932283C240235550F4F5EB36402392818A2369194023D
9A84C5466DF40242ADDC041449F402485647D6513B54024E7F273A6453E402551316E6
F4C33-%*AXESSTYLEG6#%'NORMALG-%+AXESLABELSG6%%\"xG%\"yGQ!F." 1 2 0 1 
10 0 2 1 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "dgdx:=diff(g,x);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%%dgdxG,4*($\"+*****\\_&!#6\"\"\",&*$),&%\"xGF*F*!\"
\"\"\"#F*F**$),&%\"yGF*\"\"&F0F1F*F*$!$X&!\"$,&*&F1F*F/F*F*F1F0F*F**($
\"+mmmmtF)F*,&*$),&F/F*\"\"$F0F1F*F*F2F*F7,&*&F1F*F/F*F*\"\"'F0F*F**(F
=F*,&*$),&F/F*F6F0F1F*F*F2F*F7,&*&F1F*F/F*F*\"#5F0F*F**($\"+++vL>!#5F*
,&F,F**$),&F5F*FCF0F1F*F*F7F:F*F**(F'F*,&F@F*FTF*F7FDF*F**($\"+++]iFF)
F*,&FIF*FTF*F7FLF*F**($\"+++]d;FRF*,&F,F**$),&F5F*F*F0F1F*F*F7F:F*F**(
F=F*,&F@F*F[oF*F7FDF*F**(F'F*,&FIF*F[oF*F7FLF*F*" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 16 "dgdy:=diff(g,y);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%%dgdyG,4*($\"+*****\\_&!#6\"\"\",&*$),&%\"xGF*F*!\"\"
\"\"#F*F**$),&%\"yGF*\"\"&F0F1F*F*$!$X&!\"$,&*&F1F*F5F*F*\"#5F0F*F**($
\"+mmmmtF)F*,&*$),&F/F*\"\"$F0F1F*F*F2F*F7F:F*F**(F>F*,&*$),&F/F*F6F0F
1F*F*F2F*F7F:F*F**($\"+++vL>!#5F*,&F,F**$),&F5F*FDF0F1F*F*F7,&*&F1F*F5
F*F*\"\"'F0F*F**(F'F*,&FAF*FOF*F7FRF*F**($\"+++]iFF)F*,&FGF*FOF*F7FRF*
F**($\"+++]d;FMF*,&F,F**$),&F5F*F*F0F1F*F*F7,&*&F1F*F5F*F*F1F0F*F**(F>
F*,&FAF*FinF*F7F\\oF*F**(F'F*,&FGF*FinF*F7F\\oF*F*" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 36 "sols:=fsolve(\{dgdx,dgdy\},\{x=2,y=5\});" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%solsG<$/%\"xG$\"+ey[;;!\"*/%\"yG$
\"+?p!fw#F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "#Random sear
ch procedure" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "randomize()
;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "zr1:=1000;" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 20 "for i from 1 to 5 do" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 21 "die1:=rand(1..6000); " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "di
e2:=rand(1..6000);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "xr1:=evalf(di
e1()/1000):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "yr1:=evalf(die2()/10
00):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "assign(x=xr1);" }}{PARA 0 "
> " 0 "" {MPLTEXT 1 0 14 "assign(y=yr1);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "zr1new:=g:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "if z
r1new <= zr1 then zr1:=zr1new fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
61 "printf(`current minimum value of the objective function is`);" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "zr1;" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 14 "unassign('x');" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "unassign(
'y');" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "od; " }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"+CR#>.\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$zr1G\"
%+5" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%die1Gf*6\"6#%\"tGF&F&C&>%&_s
eedG-%%iremG6$*&T#\"\"\"F+F1T%>8$F+?(F&F1F1T'%%trueGC$>F+F,>F4,&*&T)F1
F4F1F1F+F1,&-F-6$F4T+F1T-F1F&6#F+6.%\"aG%\"aG%\"pG%\"pG%(concatsG%(con
catsG%\"sG%\"sG%(divisorG%(divisorG%'offsetG%'offsetG" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%%die2Gf*6\"6#%\"tGF&F&C&>%&_seedG-%%iremG6$*&T#
\"\"\"F+F1T%>8$F+?(F&F1F1T'%%trueGC$>F+F,>F4,&*&T)F1F4F1F1F+F1,&-F-6$F
4T+F1T-F1F&6#F+6.%\"aG%\"aG%\"pG%\"pG%(concatsG%(concatsG%\"sG%\"sG%(d
ivisorG%(divisorG%'offsetG%'offsetG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%$xr1G$\"++++ZU!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$yr1G$\"+++
+Z`!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'zr1newG$\"+(>c%R')!\"*" 
}}{PARA 6 "" 1 "" {TEXT -1 50 "current minimum value of the objective \+
function is" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+(>c%R')!\"*" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%die1Gf*6\"6#%\"tGF&F&C&>%&_seedG-%%
iremG6$*&T#\"\"\"F+F1T%>8$F+?(F&F1F1T'%%trueGC$>F+F,>F4,&*&T)F1F4F1F1F
+F1,&-F-6$F4T+F1T-F1F&6#F+6.%\"aG%\"aG%\"pG%\"pG%(concatsG%(concatsG%
\"sG%\"sG%(divisorG%(divisorG%'offsetG%'offsetG" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%%die2Gf*6\"6#%\"tGF&F&C&>%&_seedG-%%iremG6$*&T#\"\"\"
F+F1T%>8$F+?(F&F1F1T'%%trueGC$>F+F,>F4,&*&T)F1F4F1F1F+F1,&-F-6$F4T+F1T
-F1F&6#F+6.%\"aG%\"aG%\"pG%\"pG%(concatsG%(concatsG%\"sG%\"sG%(divisor
G%(divisorG%'offsetG%'offsetG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$xr
1G$\"++++3T!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$yr1G$\"++++tS!\"
*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'zr1newG$\"+!op:s(!\"*" }}
{PARA 6 "" 1 "" {TEXT -1 50 "current minimum value of the objective fu
nction is" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+!op:s(!\"*" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%%die1Gf*6\"6#%\"tGF&F&C&>%&_seedG-%%iremG6
$*&T#\"\"\"F+F1T%>8$F+?(F&F1F1T'%%trueGC$>F+F,>F4,&*&T)F1F4F1F1F+F1,&-
F-6$F4T+F1T-F1F&6#F+6.%\"aG%\"aG%\"pG%\"pG%(concatsG%(concatsG%\"sG%\"
sG%(divisorG%(divisorG%'offsetG%'offsetG" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%%die2Gf*6\"6#%\"tGF&F&C&>%&_seedG-%%iremG6$*&T#\"\"\"F+F1T%>8$
F+?(F&F1F1T'%%trueGC$>F+F,>F4,&*&T)F1F4F1F1F+F1,&-F-6$F4T+F1T-F1F&6#F+
6.%\"aG%\"aG%\"pG%\"pG%(concatsG%(concatsG%\"sG%\"sG%(divisorG%(diviso
rG%'offsetG%'offsetG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$xr1G$\"++++
d=!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$yr1G$\"++++'o\"!\"*" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'zr1newG$\"+\"H8#4n!\"*" }}{PARA 6 "
" 1 "" {TEXT -1 50 "current minimum value of the objective function is
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+\"H8#4n!\"*" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%%die1Gf*6\"6#%\"tGF&F&C&>%&_seedG-%%iremG6$*&T#\"\"
\"F+F1T%>8$F+?(F&F1F1T'%%trueGC$>F+F,>F4,&*&T)F1F4F1F1F+F1,&-F-6$F4T+F
1T-F1F&6#F+6.%\"aG%\"aG%\"pG%\"pG%(concatsG%(concatsG%\"sG%\"sG%(divis
orG%(divisorG%'offsetG%'offsetG" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%
die2Gf*6\"6#%\"tGF&F&C&>%&_seedG-%%iremG6$*&T#\"\"\"F+F1T%>8$F+?(F&F1F
1T'%%trueGC$>F+F,>F4,&*&T)F1F4F1F1F+F1,&-F-6$F4T+F1T-F1F&6#F+6.%\"aG%
\"aG%\"pG%\"pG%(concatsG%(concatsG%\"sG%\"sG%(divisorG%(divisorG%'offs
etG%'offsetG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$xr1G$\"++++bI!\"*" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$yr1G$\"++++X[!\"*" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%'zr1newG$\"+bJ%of(!\"*" }}{PARA 6 "" 1 "" {TEXT 
-1 50 "current minimum value of the objective function is" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#$\"+\"H8#4n!\"*" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%%die1Gf*6\"6#%\"tGF&F&C&>%&_seedG-%%iremG6$*&T#\"\"\"F+F1T%>8$
F+?(F&F1F1T'%%trueGC$>F+F,>F4,&*&T)F1F4F1F1F+F1,&-F-6$F4T+F1T-F1F&6#F+
6.%\"aG%\"aG%\"pG%\"pG%(concatsG%(concatsG%\"sG%\"sG%(divisorG%(diviso
rG%'offsetG%'offsetG" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%die2Gf*6\"6
#%\"tGF&F&C&>%&_seedG-%%iremG6$*&T#\"\"\"F+F1T%>8$F+?(F&F1F1T'%%trueGC
$>F+F,>F4,&*&T)F1F4F1F1F+F1,&-F-6$F4T+F1T-F1F&6#F+6.%\"aG%\"aG%\"pG%\"
pG%(concatsG%(concatsG%\"sG%\"sG%(divisorG%(divisorG%'offsetG%'offsetG
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$xr1G$\"++++DO!\"*" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%$yr1G$\"++++k:!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%'zr1newG$\"+(ppQN(!\"*" }}{PARA 6 "" 1 "" {TEXT -1 
50 "current minimum value of the objective function is" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#$\"+\"H8#4n!\"*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "assign(sols);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 2 "g;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+K/)HY'!\"*" }}}
{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 "28 46 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }