{VERSION 5 0 "APPLE_PPC_MAC" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Out put" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE " " -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 239 "restart;\nwith(plot s):\nN_city:=16;\nPath:=[seq(i,i=1..N_city),1];\nPosition:=seq([evalf( rand()/10^12),evalf(rand()/10^12)],i=1..N_city):\nReal_Path:=[seq(Posi tion[Path[i]],i=1..N_city),Position[1]]:\nPLOT(CURVES(Real_Path));\nSa ved_Path:=[Path]:" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name ch angecoords has been redefined\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%' N_cityG\"#;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%PathG73\"\"\"\"\"#\" \"$\"\"%\"\"&\"\"'\"\"(\"\")\"\"*\"#5\"#6\"#7\"#8\"#9\"#:\"#;F&" }} {PARA 13 "" 1 "" {GLPLOT2D 255 162 162 {PLOTDATA 2 "6#-%'CURVESG6#737$ $\"+\"p'>uU!#5$\"+Lp56KF*7$$\"+P2LOMF*$\"+O9cUZF*7$$\"+!>(e%e&F*$\"+0$ QvY(F*7$$\"+3AA1K!#6$\"+=7uHsF*7$$\"+Rh0VgF*$\"+u.!eX(F*7$$\"+F&>\")f# F*$\"+s[v+JF*7$$\"+0\\zrzF*$\"+;%fp\"RF:7$$\"+nr0V))F:$\"+T$))\\g*F*7$ $\"+zX?H\")F*$\"+&>qu`%F*7$$\"+`RJSkF*$\"+t%\\i?*F*7$$\"+,``5&*F*$\"+s I'[Y\"F*7$$\"+Nw!fb\"F*$\"+Pn#RH%F*7$$\"+5^Ga_F*$\"+!41gs#F*7$$\"+%*4g (>#F*$\"+Q$H)fnF*7$$\"+&4NZX)F*$\"+$)yqknF*7$$\"+#z(Q8GF*$\"+/!f\\#zF* F'" 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 259 "for i from 1 to N_city \+ do\n for j from i+1 to N_city do\n Dist:=evalf(sqrt((Position[i][1]- Position[j][1])^2+\n (Position[i][2]-Position[j][2])^2),20); \n Distance[i][j]:=Dist;\n Distance[j][i]:=Dist;\n# printf(\"%4d ,%4d,%10.5f\\n\",i,j,Dist);\nod;\nod;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 172 "Calc_dist:=proc(tmp_path)\nlocal n_max,tmp,i;\nn_max :=nops(tmp_path);\ntmp:=0;i:=1;\nwhile (i%*Calc_distGf*6#%)tmp_pathG 6%%&n_maxG%$tmpG%\"iG6\"F,C'>8$-%%nopsG6#9$>8%\"\"!>8&\"\"\"?(F,F9F9F, 2F8F/C$>F5,&F5F9&&%)DistanceG6#&F36#F86#&F36#,&F8F9F9F9F9>F8FHF5F,F,F, " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "sel_city:=rand(2..N_cit y):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 625 "Temp:=0.1;\nfinal_d ist:=Calc_dist(Path):\nmax_count:=10:\nfor count from 1 to max_count d o\nfor count2 from 1 to 1000 do\n sel_i:=sel_city():\n sel_j:=sel_ci ty():\n if (sel_i=sel_j) then next fi:\n tmp_Path:=Path:\n tmp_Path [sel_i]:=Path[sel_j]:\n tmp_Path[sel_j]:=Path[sel_i]:\n tmp_dist:=Ca lc_dist(tmp_Path):\n dE:=tmp_dist-final_dist:\n #if dE<0 then\n if \+ (exp(-dE/Temp)>=evalf(rand()/10^12)) then\n Path:=tmp_Path:\n fi nal_dist:=tmp_dist:\n Saved_Path:=[op(Saved_Path),Path]:\n #prin tf(\"%4d %10.5f \\n\",count,final_dist); #print(Path);\n end if;\nod: \n#PLOT(CURVES([seq(Position[Path[i]],i=1..N_city),Position[1]]));\nod ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%TempG$\"\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "max_n:=nops(Saved_Path);\nPath_dist :=[seq(Calc_dist(Saved_Path[i]),i=1..max_n)]:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&max_nG\"$9)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "listplot(Path_dist);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6#-%'CURVESG6#7j]n7$$\"\"\"\"\"!$\"+zyJ,'*!\"*7$$\"\"#F*$ \"+'Q%3B'*F-7$$\"\"$F*$\"+`\"=FF*F-7$$\"\"%F*$\"+TzR#y)F-7$$\"\"&F*$\" +y>51!)F-7$$\"\"'F*$\"+/f.MuF-7$$\"\"(F*$\"+#>/s;(F-7$$\"\")F*$\"+&f*z poF-7$$\"\"*F*$\"+\\Go^jF-7$$\"#5F*$\"+97(>@'F-7$$\"#6F*$\"+e%>06'F-7$ $\"#7F*$\"+YWOSeF-7$$\"#8F*$\"+mG/pbF-7$$\"#9F*$\"+gG?b`F-7$$\"#:F*$\" +N(px2&F-7$$\"#;F*$\"+x@1x]F-7$$\"#F*$\"+'o>r9&F-7$$\"#?F*$\"+n/>[_F-7$$\"#@F*$\"+mnwP`F-7$$\"#AF *$\"+kCMp^F-7$$\"#BF*$\"+I=(z3&F-7$$\"#CF*$\"+u'40+&F-7$$\"#DF*Fdr7$$ \"#EF*$\"+p!y5:&F-7$$\"#FF*$\"+I8E`_F-7$$\"#GF*$\"+YO[2^F-7$$\"#HF*$\" +o_'H*[F-7$$\"#IF*$\"+YQt!)\\F-7$$\"#JF*$\"+&[%[F-7$$\"#QF*$\"+6;jA\\F-7$$\"#RF*$\"+*4_eu%F-7$$\"#SF*$ \"+qmw.]F-7$$\"#TF*$\"+)zkS)[F-7$$\"#UF*$\"+iF:*p%F-7$$\"#VF*$\"+o&oKq %F-7$$\"#WF*$\"+<0/#\\%F-7$$\"#XF*$\"+qOBuXF-7$$\"#YF*$\"+6AeeWF-7$$\" #ZF*$\"+1,')*\\%F-7$$\"#[F*$\"+vnB5WF-7$$\"#\\F*$\"+i,i&p%F-7$$\"#]F*F [z7$$\"#^F*$\"+d'*3LXF-7$$\"#_F*$\"+:6u[YF-7$$\"#`F*$\"+6noMXF-7$$\"#a F*$\"+zwq'f%F-7$$\"#bF*$\"+myrZ\\F-7$$\"#cF*$\"+!H*y1]F-7$$\"#dF*$\"+2 u%3B&F-7$$\"#eF*$\"+>v$eR&F-7$$\"#fF*$\"+>lWw_F-7$$\"#gF*$\"+p@gY_F-7$ $\"#hF*$\"+Dg#*[^F-7$$\"#iF*$\"+,.]J]F-7$$\"#jF*$\"+N`]-_F-7$$\"#kF*$ \"+&o\\BB&F-7$$\"#lF*Fd^l7$$\"#mF*$\"++bD?`F-7$$\"#nF*Fd^l7$$\"#oF*Fi^ l7$$\"#pF*$\"+F`QD`F-7$$\"#qF*$\"+n)Qe2&F-7$$\"#rF*$\"+BJLM]F-7$$\"#sF *$\"+^3-q[F-7$$\"#tF*$\"+n0+t[F-7$$\"#uF*$\"+)R]G#\\F-7$$\"#vF*$\"+$o, +#\\F-7$$\"#wF*$\"+n%p6(\\F-7$$\"#xF*$\"+*)=%\\&\\F-7$$\"#yF*$\"+Rv4D \\F-7$$\"#zF*$\"+\"eT=<&F-7$$\"#!)F*Fibl7$$\"#\")F*$\"+Pha\")[F-7$$\"# #)F*$\"+f))R1[F-7$$\"#$)F*$\"+`wr]^F-7$$\"#%)F*$\"+x\")p3`F-7$$\"#&)F* $\"+VJpP^F-7$$\"#')F*$\"+mXw'>&F-7$$\"#()F*$\"+J)QR8&F-7$$\"#))F*F_el7 $$\"#*)F*$\"+h*z\\>&F-7$$\"#!*F*$\"+Xh%z)\\F-7$$\"#\"*F*$\"+(o/37&F-7$ $\"##*F*$\"+$)p.dYF-7$$\"#$*F*$\"+AK9?ZF-7$$\"#%*F*F[gl7$$\"#&*F*$\"+* )=ctZF-7$$\"#'*F*F[gl7$$\"#(*F*$\"+ro/#\\%F-7$$\"#)*F*$\"+!)R1h\\F-7$$ \"#**F*$\"+E%)>'3&F-7$$\"$+\"F*$\"+,w$*R]F-7$$\"$,\"F*$\"+V+BR]F-7$$\" $-\"F*$\"+E5w(f%F-7$$\"$.\"F*$\"+en-VYF-7$$\"$/\"F*$\"+3C=8YF-7$$\"$0 \"F*$\"+wm\"zc%F-7$$\"$1\"F*$\"+aP!Rp%F-7$$\"$2\"F*$\"+;/wdYF-7$$\"$3 \"F*$\"+0&3Wn%F-7$$\"$4\"F*$\"+vrh$o%F-7$$\"$5\"F*$\"+2H))GZF-7$$\"$6 \"F*F\\\\m7$$\"$7\"F*$\"+\"F*$\"+^eF%Q%F-7$$\"$?\"F*$\"+K[0 WWF-7$$\"$@\"F*$\"+mmDwXF-7$$\"$A\"F*Fa_m7$$\"$B\"F*F\\_m7$$\"$C\"F*Fa _m7$$\"$D\"F*$\"+x<-TWF-7$$\"$E\"F*$\"+'R6tI%F-7$$\"$F\"F*$\"+WlusOHZF-7$$\"$O\"F*$\"+%fya)[F-7$$ \"$P\"F*$\"+qrSE[F-7$$\"$Q\"F*$\"+u!R&Q\\F-7$$\"$R\"F*$\"+!)[lU\\F-7$$ \"$S\"F*$\"+hx]l]F-7$$\"$T\"F*$\"+Ly(p-&F-7$$\"$U\"F*$\"+o&y,(\\F-7$$ \"$V\"F*$\"+3&*GoYF-7$$\"$W\"F*$\"+-e2#e%F-7$$\"$X\"F*F^fm7$$\"$Y\"F*$ \"+rO%fn%F-7$$\"$Z\"F*$\"+96e2ZF-7$$\"$[\"F*$\"+$)R(**p%F-7$$\"$\\\"F* $\"+\"Hk#f[F-7$$\"$]\"F*$\"+zTF%p%F-7$$\"$^\"F*$\"+rQ)\\`%F-7$$\"$_\"F *$\"+w!)[eXF-7$$\"$`\"F*$\"+rw)e_%F-7$$\"$a\"F*$\"+9_$ec%F-7$$\"$b\"F* $\"+k$G9[%F-7$$\"$k\"F*$ \"+#y&Q_XF-7$$\"$l\"F*$\"+Z@9NYF-7$$\"$m\"F*$\"+Q\\^$z%F-7$$\"$n\"F*$ \"+8#R/t%F-7$$\"$o\"F*$\"+%=J7)\\F-7$$\"$p\"F*$\"+IW(z(\\F-7$$\"$q\"F* Fi]n7$$\"$r\"F*$\"+M;#R4&F-7$$\"$s\"F*$\"+Bu`#G&F-7$$\"$t\"F*$\"+l#z+I &F-7$$\"$u\"F*$\"+F9u_ZF-7$$\"$v\"F*$\"+\"yTZc%F-7$$\"$w\"F*$\"+]\"*** )R%F-7$$\"$x\"F*$\"+N%)R'G%F-7$$\"$y\"F*$\"+T'pDI%F-7$$\"$z\"F*$\"+?S \"y8%F-7$$\"$!=F*$\"+fw\\]TF-7$$\"$\"=F*$\"+x9)f2%F-7$$\"$#=F*$\"+*er4 C%F-7$$\"$$=F*$\"+rx[:VF-7$$\"$%=F*$\"+0G\\'[%F-7$$\"$&=F*$\"+4uOWXF-7 $$\"$'=F*Fgbn7$$\"$(=F*$\"+m\"4QZ%F-7$$\"$)=F*$\"+UeDuXF-7$$\"$*=F*$\" +j9,RZF-7$$\"$!>F*Ficn7$$\"$\">F*$\"+]1a:XF-7$$\"$#>F*$\"+SI`wYF-7$$\" $$>F*$\"+s0E%f%F-7$$\"$%>F*$\"+#Hy%fZF-7$$\"$&>F*$\"+Y]l\\YF-7$$\"$'>F *$\"+.0p5XF-7$$\"$(>F*$\"+KYB$Q%F-7$$\"$)>F*$\"+i9mEWF-7$$\"$*>F*$\"+6 srTWF-7$$\"$+#F*Fifn7$$\"$,#F*$\"+ZWXqSF-7$$\"$-#F*$\"+GDm9UF-7$$\"$.# F*$\"+o=x&G%F-7$$\"$/#F*F[hn7$$\"$0#F*$\"+t_7nTF-7$$\"$1#F*$\"+A5=#=%F -7$$\"$2#F*$\"+oxYDUF-7$$\"$3#F*$\"+mM/dSF-7$$\"$4#F*$\"+I'[\"pSF-7$$ \"$5#F*$\"+\")G4aSF-7$$\"$6#F*$\"+6paLTF-7$$\"$7#F*$\"+F*[zJ%F-7$$\"$8 #F*$\"+@)QP\"RF-7$$\"$9#F*$\"+9sy;QF-7$$\"$:#F*$\"+!*>)z-%F-7$$\"$;#F* $\"+5To**RF-7$$\"$<#F*$\"+H^!*RRF-7$$\"$=#F*F_\\o7$$\"$>#F*Fj[o7$$\"$? #F*$\"+4I?oRF-7$$\"$@#F*$\"+*=naE%F-7$$\"$A#F*$\"+d'RxM%F-7$$\"$B#F*$ \"+$)eZoVF-7$$\"$C#F*$\"+:M?'G%F-7$$\"$D#F*$\"+f\"4xK%F-7$$\"$E#F*$\"+ F;)*4WF-7$$\"$F#F*F^^o7$$\"$G#F*$\"+\"4zG(RF-7$$\"$H#F*$\"+N[Q9SF-7$$ \"$I#F*$\"+tU!GD%F-7$$\"$J#F*Fj_o7$$\"$K#F*$\"+nB6KRF-7$$\"$L#F*$\"+,U ^;SF-7$$\"$M#F*Fg`o7$$\"$N#F*$\"+Bmg!*QF-7$$\"$O#F*$\"+B^&p&RF-7$$\"$P #F*$\"+?[T4RF-7$$\"$Q#F*$\"+fBS>OF-7$$\"$R#F*$\"+#[Sf$RF-7$$\"$S#F*$\" +!Qp5.%F-7$$\"$T#F*$\"+\")>T*y$F-7$$\"$U#F*$\"+*=-70%F-7$$\"$V#F*$\"+s \"z#pPF-7$$\"$W#F*$\"+\"*GUJUF-7$$\"$X#F*$\"+!y_\"4TF-7$$\"$Y#F*$\"+LX #)ySF-7$$\"$Z#F*$\"+B.\\UUF-7$$\"$[#F*$\"+I'>BZ%F-7$$\"$\\#F*$\"+9-,`X F-7$$\"$]#F*Feeo7$$\"$^#F*$\"+A(Q'GXF-7$$\"$_#F*$\"+f3egYF-7$$\"$`#F*$ \"+&)4B!o%F-7$$\"$a#F*$\"+ao!)yYF-7$$\"$b#F*$\"+4r3\"\\%F-7$$\"$c#F*$ \"+e%y_]%F-7$$\"$d#F*$\"+Y4:=WF-7$$\"$e#F*F[ho7$$\"$f#F*$\"+\"e6Rb%F-7 $$\"$g#F*$\"+)Gki\\%F-7$$\"$h#F*$\"+O$)*=k%F-7$$\"$i#F*$\"+YGlf[F-7$$ \"$j#F*Fbio7$$\"$k#F*$\"+.S')zZF-7$$\"$l#F*$\"+..B8XF-7$$\"$m#F*$\"+>n /4UF-7$$\"$n#F*$\"+:3'f7%F-7$$\"$o#F*$\"+?RrHRF-7$$\"$p#F*$\"+k?lvQF-7 $$\"$q#F*$\"+K.EoVF-7$$\"$r#F*$\"+QX.OUF-7$$\"$s#F*$\"+&yijE%F-7$$\"$t #F*$\"+C_n\">%F-7$$\"$u#F*$\"+M%4!GSF-7$$\"$v#F*$\"+!zB+>%F-7$$\"$w#F* $\"+]1b5TF-7$$\"$x#F*$\"+fzWPPF-7$$\"$y#F*$\"+>VwCPF-7$$\"$z#F*$\"+8v' [t$F-7$$\"$!GF*$\"+#pt]m$F-7$$\"$\"GF*$\"+=2!3&RF-7$$\"$#GF*$\"+w@XmSF -7$$\"$$GF*$\"+ti\\mRF-7$$\"$%GF*$\"+Z#p2o$F-7$$\"$&GF*$\"+x0crOF-7$$ \"$'GF*$\"+C)))=q$F-7$$\"$(GF*$\"+FZ%=!QF-7$$\"$)GF*$\"+oK>'o$F-7$$\"$ *GF*F\\do7$$\"$!HF*$\"+J#f^3%F-7$$\"$\"HF*$\"+gR*\\%RF-7$$\"$#HF*$\"+4 `=fRF-7$$\"$$HF*$\"+6'\\^\"RF-7$$\"$%HF*Fibp7$$\"$&HF*Fdbp7$$\"$'HF*Fi bp7$$\"$(HF*$\"+on$[2%F-7$$\"$)HF*$\"+7F)p4%F-7$$\"$*HF*$\"+vJ())>%F-7 $$\"$+$F*$\"+7pXTZF-7$$\"$,$F*$\"+'p&RZ\\F-7$$\"$-$F*$\"+e]\"[+&F-7$$ \"$.$F*$\"+`cia_F-7$$\"$/$F*$\"+h'o&p]F-7$$\"$0$F*$\"+m!e(>[F-7$$\"$1$ F*$\"+]ee'f%F-7$$\"$2$F*$\"+74_8[F-7$$\"$3$F*$\"+F28eYF-7$$\"$4$F*$\"+ @P$F*$ \"+R*pSJ%F-7$$\"$?$F*$\"+&opXN%F-7$$\"$@$F*$\"+*pjzU%F-7$$\"$A$F*$\"+` RY(Q%F-7$$\"$B$F*$\"+.'>wN%F-7$$\"$C$F*$\"+T(4!GXF-7$$\"$D$F*$\"+z$=#G XF-7$$\"$E$F*$\"+d(Q!f[F-7$$\"$F$F*Ff\\q7$$\"$G$F*$\"+E!3;U%F-7$$\"$H$ F*$\"+6z([A%F-7$$\"$I$F*$\"+wW)3=%F-7$$\"$J$F*$\"+2s*)3UF-7$$\"$K$F*$ \"+B'4u%RF-7$$\"$L$F*$\"+\"3hI1%F-7$$\"$M$F*$\"+7Wo_TF-7$$\"$N$F*$\"+$ e2/K%F-7$$\"$O$F*$\"+_UyIUF-7$$\"$P$F*$\"+%zK^6%F-7$$\"$Q$F*F[`q7$$\"$ R$F*F\\_q7$$\"$S$F*$\"+0j'=&QF-7$$\"$T$F*$\"+S*4\"pPF-7$$\"$U$F*$\"+AG '>*QF-7$$\"$V$F*$\"+IIv`TF-7$$\"$W$F*$\"+Nh]dRF-7$$\"$X$F*$\"+C*ye6%F- 7$$\"$Y$F*$\"+ZSnMSF-7$$\"$Z$F*$\"+:l%p6%F-7$$\"$[$F*$\"+Fi`CTF-7$$\"$ \\$F*$\"+@%RY8%F-7$$\"$]$F*$\"+JO(4(RF-7$$\"$^$F*$\"+P/(3'RF-7$$\"$_$F *$\"+pzfyQF-7$$\"$`$F*$\"+T)*H)*RF-7$$\"$a$F*$\"+n*\\z,%F-7$$\"$b$F*$ \"+@)*pnTF-7$$\"$c$F*$\"+4Bd!3%F-7$$\"$d$F*$\"+N#R-3%F-7$$\"$e$F*$\"+N Os')QF-7$$\"$f$F*$\"+x@2rPF-7$$\"$g$F*$\"+nztMRF-7$$\"$h$F*$\"+@c\"3-% F-7$$\"$i$F*F_gq7$$\"$j$F*$\"+*\\lC&QF-7$$\"$k$F*$\"+6b#H)RF-7$$\"$l$F *F\\hq7$$\"$m$F*$\"+4(*z)o$F-7$$\"$n$F*$\"+#yNW(QF-7$$\"$o$F*$\"+ubk7O F-7$$\"$p$F*$\"+#p#z*[$F-7$$\"$q$F*$\"+u-:uOF-7$$\"$r$F*Fhiq7$$\"$s$F* $\"+g^1sNF-7$$\"$t$F*$\"+53AUNF-7$$\"$u$F*$\"+d!\\Dd$F-7$$\"$v$F*Fhiq7 $$\"$w$F*$\"+')))=yOF-7$$\"$x$F*$\"+I#eou$F-7$$\"$y$F*$\"+9\"H,(RF-7$$ \"$z$F*$\"+,*[>1%F-7$$\"$!QF*$\"+\"=Jn*QF-7$$\"$\"QF*$\"+/\"RK0%F-7$$ \"$#QF*$\"+(\\(GcRF-7$$\"$$QF*$\"+'Rz:E%F-7$$\"$%QF*$\"+xSruSF-7$$\"$& QF*$\"+J%F*$\"+N>e([ %F-7$$\"$?%F*$\"+!>a2'\\F-7$$\"$@%F*$\"+)oEg(\\F-7$$\"$A%F*$\"+LW&G]%F -7$$\"$B%F*$\"+cJ=KUF-7$$\"$C%F*$\"+II`7UF-7$$\"$D%F*$\"+;eiOTF-7$$\"$ E%F*$\"+3y*)>XF-7$$\"$F%F*$\"+vXUhXF-7$$\"$G%F*$\"+*yJtj%F-7$$\"$H%F*$ \"+#o+(HYF-7$$\"$I%F*$\"+6fT[XF-7$$\"$J%F*$\"+x5.^ZF-7$$\"$K%F*$\"+6!G !fZF-7$$\"$L%F*$\"+bc!3u%F-7$$\"$M%F*$\"+Ya,zWF-7$$\"$N%F*$\"+B.AgXF-7 $$\"$O%F*$\"+_WwKWF-7$$\"$P%F*$\"+GRoeN%F-7$$\"$^%F*$\"+#fe\"*3%F- 7$$\"$_%F*$\"+QJ14UF-7$$\"$`%F*$\"+WDCpWF-7$$\"$a%F*$\"+5NEJXF-7$$\"$b %F*$\"+R-DSWF-7$$\"$c%F*$\"+TXn3YF-7$$\"$d%F*$\"+S_])f%F-7$$\"$e%F*$\" +5\\blWF-7$$\"$f%F*$\"+dVm5YF-7$$\"$g%F*$\"+hTg?XF-7$$\"$h%F*$\"+9Z\\v VF-7$$\"$i%F*$\"+TO$)3TF-7$$\"$j%F*$\"+^y;XRF-7$$\"$k%F*$\"+Oy%z#QF-7$ $\"$l%F*$\"+4*3Y4%F-7$$\"$m%F*$\"+(*[1[UF-7$$\"$n%F*$\"+j9KqUF-7$$\"$o %F*F[gs7$$\"$p%F*$\"+ryLiRF-7$$\"$q%F*$\"+PWf%)RF-7$$\"$r%F*$\"+(*Q,+P F-7$$\"$s%F*F__p7$$\"$t%F*Fhgs7$$\"$u%F*$\"+bC%)4RF-7$$\"$v%F*$\"+,uc` SF-7$$\"$w%F*$\"+b6SuRF-7$$\"$x%F*$\"+Tr+,RF-7$$\"$y%F*$\"+0B68RF-7$$ \"$z%F*$\"+^_GZRF-7$$\"$![F*$\"+d?=PRF-7$$\"$\"[F*$\"+&3&\\rRF-7$$\"$# [F*$\"+(*G[%y$F-7$$\"$$[F*$\"+3Iv1RF-7$$\"$%[F*$\"+XnL\\WF-7$$\"$&[F*$ \"+;NdZXF-7$$\"$'[F*$\"+z(*)\\+%F-7$$\"$([F*$\"+t$*>=RF-7$$\"$)[F*$\"+ 0p#f$QF-7$$\"$*[F*$\"+qKo=RF-7$$\"$!\\F*$\"+7YC)e$F-7$$\"$\"\\F*$\"+FZ (\\y$F-7$$\"$#\\F*F]^t7$$\"$$\\F*$\"+FGM%)QF-7$$\"$%\\F*$\"+F@'*))QF-7 $$\"$&\\F*$\"+36u[RF-7$$\"$'\\F*$\"+eh'R(RF-7$$\"$(\\F*$\"+Vz'yn$F-7$$ \"$)\\F*$\"+b!Q,!QF-7$$\"$*\\F*$\"+t]w%)RF-7$$\"$+&F*$\"+2%*zYQF-7$$\" $,&F*Fh`t7$$\"$-&F*$\"+i\\\\iQF-7$$\"$.&F*Fb^t7$$\"$/&F*F]ap7$$\"$0&F* $\"+Rq)z*RF-7$$\"$1&F*$\"+=\\GESF-7$$\"$2&F*$\"+L*y'*4%F-7$$\"$3&F*$\" +)\\&obSF-7$$\"$4&F*$\"+%\\m\"fWF-7$$\"$5&F*$\"+O3\\ZWF-7$$\"$6&F*$\"+ _fO3VF-7$$\"$7&F*$\"+]b>_UF-7$$\"$8&F*$\"+cd8(G%F-7$$\"$9&F*$\"+,p3OUF -7$$\"$:&F*$\"+eht.QF-7$$\"$;&F*$\"+*[FXz$F-7$$\"$<&F*$\"+U#*>kPF-7$$ \"$=&F*$\"+vm<=SF-7$$\"$>&F*Ffgr7$$\"$?&F*$\"++2&)zQF-7$$\"$@&F*$\"+% \\5\\%QF-7$$\"$A&F*$\"+\"fa\\u$F-7$$\"$B&F*$\"+F!e;o$F-7$$\"$C&F*$\"+( pm3p$F-7$$\"$D&F*$\"+W\\>@PF-7$$\"$E&F*$\"+z&Q%QOF-7$$\"$F&F*$\"+LHX+Q F-7$$\"$G&F*$\"+>*eqs$F-7$$\"$H&F*$\"+jX/lNF-7$$\"$I&F*$\"+`\"\\sJ%F-7 $$\"$J&F*$\"+l)Q[K%F-7$$\"$K&F*$\"+*G5RQ%F-7$$\"$L&F*$\"+/5^'\\%F-7$$ \"$M&F*Fejt7$$\"$N&F*F`jt7$$\"$O&F*$\"+L862WF-7$$\"$P&F*$\"+H#eLg%F-7$ $\"$Q&F*$\"+P)4.q%F-7$$\"$R&F*$\"+Z_5[RF-7$$\"$S&F*$\"+S%3#eRF-7$$\"$T &F*$\"+%=r1\"RF-7$$\"$U&F*$\"+Y1O>TF-7$$\"$V&F*$\"+-khzSF-7$$\"$W&F*$ \"+ls'p3%F-7$$\"$X&F*$\"+x]&***QF-7$$\"$Y&F*$\"+'4w,%QF-7$$\"$Z&F*$\"+ H/@-PF-7$$\"$[&F*Fg^u7$$\"$\\&F*$\"+r1(G,%F-7$$\"$]&F*Fght7$$\"$^&F*$ \"+dktmOF-7$$\"$_&F*$\"+VCM$f$F-7$$\"$`&F*Ffit7$$\"$a&F*$\"+WN#[i$F-7$ $\"$b&F*$\"+_^x@PF-7$$\"$c&F*$\"+K!\\_5%F-7$$\"$d&F*$\"+CuH3SF-7$$\"$e &F*$\"+%RV)GRF-7$$\"$f&F*$\"+og.FTF-7$$\"$g&F*$\"+5YQ6SF-7$$\"$h&F*Fbh s7$$\"$i&F*$\"+h0xXOF-7$$\"$j&F*$\"+JeU%F-7$$\"$\"fF*F\\[v7$$\"$#fF*$\"+4HVhVF-7 $$\"$$fF*$\"+V\"**Q%RF-7$$\"$%fF*Fgju7$$\"$&fF*$\"+WxoeRF-7$$\"$'fF*$ \"+=/)o:%F-7$$\"$(fF*$\"+jremXF-7$$\"$)fF*$\"+0d$4X%F-7$$\"$*fF*$\"+&o IjW%F-7$$\"$+'F*$\"+l]d\"G%F-7$$\"$,'F*$\"++%*>%>%F-7$$\"$-'F*$\"+JKP \\TF-7$$\"$.'F*$\"+]1LgTF-7$$\"$/'F*$\"+fzA(y$F-7$$\"$0'F*F`^p7$$\"$1' F*Fe^p7$$\"$2'F*$\"+U!=\\p$F-7$$\"$3'F*Fciq7$$\"$4'F*$\"+bXUsOF-7$$\"$ 5'F*$\"+*)zT;PF-7$$\"$6'F*$\"+F*>j%RF-7$$\"$7'F*$\"+Y4a')QF-7$$\"$8'F* $\"+mICeQF-7$$\"$9'F*$\"+GD$p1%F-7$$\"$:'F*$\"+0u8[TF-7$$\"$;'F*$\"+9$ f'F*$\"+!Gs4-%F- 7$$\"$?'F*$\"+_'4J2%F-7$$\"$@'F*$\"+-S&H5%F-7$$\"$A'F*Fe_o7$$\"$B'F*$ \"+\"fF#RSF-7$$\"$C'F*Fiao7$$\"$D'F*Fdao7$$\"$E'F*$\"+(ohH\"RF-7$$\"$F 'F*Fdao7$$\"$G'F*Fg`o7$$\"$H'F*$\"+P\"\\..%F-7$$\"$I'F*$\"+yA#)4TF-7$$ \"$J'F*$\"+V'yD>%F-7$$\"$K'F*$\"+QU(Q@%F-7$$\"$L'F*Fjfv7$$\"$M'F*$\"+O qi&4%F-7$$\"$N'F*$\"+EGHfUF-7$$\"$O'F*$\"+cT3]UF-7$$\"$P'F*$\"+4fv>UF- 7$$\"$Q'F*$\"+&HLsG%F-7$$\"$R'F*$\"+ISVIUF-7$$\"$S'F*$\"+GobdVF-7$$\"$ T'F*$\"+blhrVF-7$$\"$U'F*$\"+dp6oRF-7$$\"$V'F*$\"+jqKsVF-7$$\"$W'F*$\" +C:g/VF-7$$\"$X'F*$\"+m+&*)=%F-7$$\"$Y'F*$\"+Dc6sQF-7$$\"$Z'F*$\"+za'= -%F-7$$\"$['F*$\"+7*3'**RF-7$$\"$\\'F*$\"+)o.3@%F-7$$\"$]'F*$\"+9*R:B% F-7$$\"$^'F*$\"+i?i!=%F-7$$\"$_'F*$\"+q_-&y$F-7$$\"$`'F*$\"+va'*>QF-7$ $\"$a'F*Fidu7$$\"$b'F*$\"++z$oy$F-7$$\"$c'F*$\"+Pq[zPF-7$$\"$d'F*$\"+% G:)4QF-7$$\"$e'F*$\"+AYw`RF-7$$\"$f'F*$\"+y=I,SF-7$$\"$g'F*F]dq7$$\"$h 'F*$\"+6E?jQF-7$$\"$i'F*$\"+e3`$*QF-7$$\"$j'F*$\"+-O*f%QF-7$$\"$k'F*$ \"+W@MIPF-7$$\"$l'F*Fbhs7$$\"$m'F*Fi`w7$$\"$n'F*Fbhs7$$\"$o'F*F__p7$$ \"$p'F*Fbhs7$$\"$q'F*F_cu7$$\"$r'F*Fdcu7$$\"$s'F*$\"+BY?$o$F-7$$\"$t'F *Fdcu7$$\"$u'F*$\"+kgjBPF-7$$\"$v'F*$\"+%=Q`p$F-7$$\"$w'F*$\"+G4!yk$F- 7$$\"$x'F*$\"+\"osuh$F-7$$\"$y'F*$\"+JqJZOF-7$$\"$z'F*$\"+Vn!\\l$F-7$$ \"$!oF*F_dw7$$\"$\"oF*Fddw7$$\"$#oF*$\"+vUjsNF-7$$\"$$oF*$\"+Z,4+PF-7$ $\"$%oF*$\"+F!)QGPF-7$$\"$&oF*$\"+3!Rml$F-7$$\"$'oF*$\"+FhyLNF-7$$\"$( oF*$\"+'p2S&p$F-7$$\"$9(F*Fciq7$$\"$:(F*$ \"+UJamOF-7$$\"$;(F*$\"+,Y>#y$F-7$$\"$<(F*Ff^x7$$\"$=(F*$\"+4)3X!QF-7$ $\"$>(F*$\"+Iu,aQF-7$$\"$?(F*Fc_x7$$\"$@(F*$\"+CG!z(QF-7$$\"$A(F*Fc_x7 $$\"$B(F*$\"+0/57SF-7$$\"$C(F*$\"+zF$e'QF-7$$\"$D(F*Fd\\u7$$\"$E(F*$\" +gfZfUF-7$$\"$F(F*Fd\\u7$$\"$G(F*F]ax7$$\"$H(F*$\"+r6))oPF-7$$\"$I(F*$ \"+^!zrz$F-7$$\"$J(F*$\"+b@$4g$F-7$$\"$K(F*Ficu7$$\"$L(F*F^du7$$\"$M(F *$\"+XR$Q)RF-7$$\"$N(F*$\"+fzAdSF-7$$\"$O(F*$\"+UZP_SF-7$$\"$P(F*$\"+' f#H.TF-7$$\"$Q(F*$\"+8a8\\PF-7$$\"$R(F*$\"+ps>.QF-7$$\"$S(F*$\"+&p;3\" RF-7$$\"$T(F*F^ex7$$\"$U(F*$\"+Z?-=RF-7$$\"$V(F*F^au7$$\"$W(F*$\"+*GCW r$F-7$$\"$X(F*$\"+o@sUPF-7$$\"$Y(F*$\"+JI2]PF-7$$\"$Z(F*$\"+3^c$f$F-7$ $\"$[(F*$\"+t;d\\NF-7$$\"$\\(F*Fhiq7$$\"$](F*F_[r7$$\"$^(F*Fhiq7$$\"$_ (F*$\"+]TW0OF-7$$\"$`(F*$\"++I+XUF-7$$\"$a(F*$\"+peRPUF-7$$\"$b(F*$\"+ Dx^3VF-7$$\"$c(F*$\"+Ss3!*RF-7$$\"$d(F*$\"+3(fB2%F-7$$\"$e(F*$\"++&p0 \"QF-7$$\"$f(F*$\"+0(4b%QF-7$$\"$g(F*$\"+PsBjPF-7$$\"$h(F*F^]x7$$\"$i( F*$\"+Z#e)HPF-7$$\"$j(F*Fbhs7$$\"$k(F*$\"+_6bZPF-7$$\"$l(F*Fj_w7$$\"$m (F*$\"+t$)*)HQF-7$$\"$n(F*$\"+=i,BQF-7$$\"$o(F*$\"+b`m:QF-7$$\"$p(F*Fj \\y7$$\"$q(F*F][y7$$\"$r(F*Ffit7$$\"$s(F*Fa`u7$$\"$t(F*Fjbx7$$\"$u(F*$ \"+\"\\v^l$F-7$$\"$v(F*F^]x7$$\"$w(F*$\"+$zz4s$F-7$$\"$x(F*$\"+u(e2y$F -7$$\"$y(F*Fidu7$$\"$z(F*F`_y7$$\"$!yF*Fidu7$$\"$\"yF*$\"+9pC9PF-7$$\" $#yF*Fc^y7$$\"$$yF*F^]x7$$\"$%yF*Fc^y7$$\"$&yF*F^`y7$$\"$'yF*Fidu7$$\" $(yF*F^`y7$$\"$)yF*Ficu7$$\"$*yF*Fdcu7$$\"$!zF*F[cw7$$\"$\"zF*$\"+`TGS PF-7$$\"$#zF*$\"+FV;OSF-7$$\"$$zF*$\"+K(o[,%F-7$$\"$%zF*$\"+))HOtRF-7$ $\"$&zF*$\"+)[6(RSF-7$$\"$'zF*$\"+GY=>TF-7$$\"$(zF*$\"+k%zq5%F-7$$\"$) zF*$\"+2_e[TF-7$$\"$*zF*$\"+(*4D7VF-7$$\"$+)F*$\"+a_uqUF-7$$\"$,)F*$\" +CqM@VF-7$$\"$-)F*$\"+f1fQUF-7$$\"$.)F*$\"+&y+mL%F-7$$\"$/)F*$\"+a/l.U F-7$$\"$0)F*$\"+&p#f**RF-7$$\"$1)F*Fc]t7$$\"$2)F*Fh]t7$$\"$3)F*$\"+B]N ))QF-7$$\"$4)F*Fh]t7$$\"$5)F*Fc]t7$$\"$6)F*$\"+Z#)[0NF-7$$\"$7)F*F]^t7 $$\"$8)F*F^`t7$$\"$9)F*$\"+#pK]#RF-" 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 108 "min_val:=min(op(Path_dist));\ni:=1: \nwhile (Path_di st[i]<>min_val) do \n i:=i+1; \nod:\nmin_path:=Saved_Path[i];" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%(min_valG$\"+#p#z*[$!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)min_pathG73\"\"\"\"\"'\"#7\"\"#\"#9\"\"% \"\")\"#;\"\"$\"\"&\"#5\"#:\"\"*\"#6\"\"(\"#8F&" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 89 "Real_Path:=[seq(Position[min_path[i]],i=1..N_c ity),Position[1]]:\nPLOT(CURVES(Real_Path));" }}{PARA 13 "" 1 "" {GLPLOT2D 237 197 197 {PLOTDATA 2 "6#-%'CURVESG6#737$$\"+\"p'>uU!#5$\" +Lp56KF*7$$\"+F&>\")f#F*$\"+s[v+JF*7$$\"+Nw!fb\"F*$\"+Pn#RH%F*7$$\"+P2 LOMF*$\"+O9cUZF*7$$\"+%*4g(>#F*$\"+Q$H)fnF*7$$\"+3AA1K!#6$\"+=7uHsF*7$ $\"+nr0V))FD$\"+T$))\\g*F*7$$\"+#z(Q8GF*$\"+/!f\\#zF*7$$\"+!>(e%e&F*$ \"+0$QvY(F*7$$\"+Rh0VgF*$\"+u.!eX(F*7$$\"+`RJSkF*$\"+t%\\i?*F*7$$\"+&4 NZX)F*$\"+$)yqknF*7$$\"+zX?H\")F*$\"+&>qu`%F*7$$\"+,``5&*F*$\"+sI'[Y\" F*7$$\"+0\\zrzF*$\"+;%fp\"RFD7$$\"+5^Ga_F*$\"+!41gs#F*F'" 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 1077 "SalesMan:=proc(Temp)\nglobal Path ,min_dist,min_path;\nlocal count,sel_count, final_dist,max_count,sel_i ,sel_j,tmp_Path,tmp_dist,dE,Real_Path;\ncount:=1:\nsel_count:=0:\nfina l_dist:=Calc_dist(Path):\nmin_dist:=final_dist:\nmin_path:=Path:\nmax_ count:=10000:\nwhile count=evalf(rand()/10^12)) then\n Path:=tmp_Path;\n final_dist:=tmp_di st;\n sel_count:=sel_count+1;\n if min_dist>final_dist then\n min _dist:=final_dist:\n min_path:=Path:\n fi;\n #print(Path);printf( \"%4d %10.5f\\n\",count,final_dist); \nend if;\ncount:=count+1:\nod:\n Real_Path:=[seq(Position[Path[i]],i=1..N_city),Position[1]]:\n#PLOT(CU RVES(Real_Path));\nprintf(\"distance:=%10.5f\\nratio:=%10.5f\\n\",\n \+ final_dist,evalf(sel_count/max_count));\nprintf(\"distance:=%10.5f\" ,min_dist);\nReal_Path:=[seq(Position[min_path[i]],i=1..N_city),Positi on[1]]:\n#PLOT(CURVES(Real_Path));\nend;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)SalesManGf*6#%%TempG6,%&countG%*sel_countG%+final_di stG%*max_countG%&sel_iG%&sel_jG%)tmp_PathG%)tmp_distG%#dEG%*Real_PathG 6\"F3C->8$\"\"\">8%\"\"!>8&-%*Calc_distG6#%%PathG>%)min_distGF<>%)min_ pathGF@>8'\"&++\"?(F3F7F7F32F6FFC,>8(-%)sel_cityGF3>8)FM@$/FLFP\\>8*F@ >&FU6#FL&F@6#FP>&FUFZ&F@FX>8+-F>6#FU>8,,&FinF7FF@FU>FF9,&F9F 7F7F7@$2FFBF<>FDF@>F6,&F6F7F7F7>8-7$-%$seqG6$&%)PositionG6#&F@6# %\"iG/Fgq;F7%'N_cityG&Fcq6#F7-%'printfG6%Q@distance:=%10.5f|.ratio:=%1 0.5f|.F3F<-Fco6#*&F9F7FFF_o-F^r6$Q1distance:=%10.5fF3FB>F]q7$-F`q6$&Fc q6#&FDFfqFhqF[rF36%F@FBFDF3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "Temp_set:=[1,0.5,0.2,0.1,0.05,0.01];\nfor i from 1 to 6 do\nSalesM an(Temp_set[i]);\nod;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)Temp_setG7 (\"\"\"$\"\"&!\"\"$\"\"#F)$F&F)$F(!\"#$F&F." }}{PARA 6 "" 1 "" {TEXT -1 20 "distance:= 7.07211" }}{PARA 6 "" 1 "" {TEXT -1 17 "ratio:= \+ .79350" }}{PARA 6 "" 1 "" {TEXT -1 20 "distance:= 4.90954" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#737$$\"+\"p'>uU!#5$\"+Lp56KF'7$$\"+F&>\")f#F '$\"+s[v+JF'7$$\"+P2LOMF'$\"+O9cUZF'7$$\"+!>(e%e&F'$\"+0$QvY(F'7$$\"+` RJSkF'$\"+t%\\i?*F'7$$\"+Rh0VgF'$\"+u.!eX(F'7$$\"+zX?H\")F'$\"+&>qu`%F '7$$\"+&4NZX)F'$\"+$)yqknF'7$$\"+#z(Q8GF'$\"+/!f\\#zF'7$$\"+nr0V))!#6$ \"+T$))\\g*F'7$$\"+3AA1KFU$\"+=7uHsF'7$$\"+Nw!fb\"F'$\"+Pn#RH%F'7$$\"+ %*4g(>#F'$\"+Q$H)fnF'7$$\"+5^Ga_F'$\"+!41gs#F'7$$\"+0\\zrzF'$\"+;%fp\" RFU7$$\"+,``5&*F'$\"+sI'[Y\"F'F$" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warni ng, computation interrupted\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "SalesMan(0.05);" }}{PARA 6 "" 1 "" {TEXT -1 20 "distance:= 3.6 2776" }}{PARA 6 "" 1 "" {TEXT -1 17 "ratio:= .04190" }}{PARA 6 "" 1 "" {TEXT -1 20 "distance:= 3.48979" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#737$$\"+\"p'>uU!#5$\"+Lp56KF'7$$\"+F&>\")f#F'$\"+s[v+JF'7$$\"+Nw !fb\"F'$\"+Pn#RH%F'7$$\"+P2LOMF'$\"+O9cUZF'7$$\"+%*4g(>#F'$\"+Q$H)fnF' 7$$\"+3AA1K!#6$\"+=7uHsF'7$$\"+nr0V))FA$\"+T$))\\g*F'7$$\"+#z(Q8GF'$\" +/!f\\#zF'7$$\"+!>(e%e&F'$\"+0$QvY(F'7$$\"+Rh0VgF'$\"+u.!eX(F'7$$\"+`R JSkF'$\"+t%\\i?*F'7$$\"+&4NZX)F'$\"+$)yqknF'7$$\"+zX?H\")F'$\"+&>qu`%F '7$$\"+,``5&*F'$\"+sI'[Y\"F'7$$\"+0\\zrzF'$\"+;%fp\"RFA7$$\"+5^Ga_F'$ \"+!41gs#F'F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "Real_Path :=[seq(Position[Path[i]],i=1..N_city),Position[1]]:\nPLOT(CURVES(Real_ Path));\nCalc_dist(Path);\nPath;" }}{PARA 13 "" 1 "" {GLPLOT2D 204 217 217 {PLOTDATA 2 "6#-%'CURVESG6#737$$\"+\"p'>uU!#5$\"+Lp56KF*7$$\"+ P2LOMF*$\"+O9cUZF*7$$\"+Nw!fb\"F*$\"+Pn#RH%F*7$$\"+F&>\")f#F*$\"+s[v+J F*7$$\"+%*4g(>#F*$\"+Q$H)fnF*7$$\"+3AA1K!#6$\"+=7uHsF*7$$\"+nr0V))FD$ \"+T$))\\g*F*7$$\"+#z(Q8GF*$\"+/!f\\#zF*7$$\"+!>(e%e&F*$\"+0$QvY(F*7$$ \"+Rh0VgF*$\"+u.!eX(F*7$$\"+`RJSkF*$\"+t%\\i?*F*7$$\"+&4NZX)F*$\"+$)yq knF*7$$\"+zX?H\")F*$\"+&>qu`%F*7$$\"+,``5&*F*$\"+sI'[Y\"F*7$$\"+0\\zrz F*$\"+;%fp\"RFD7$$\"+5^Ga_F*$\"+!41gs#F*F'" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+f$exi$!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#73\" \"\"\"\"#\"#7\"\"'\"#9\"\"%\"\")\"#;\"\"$\"\"&\"#5\"#:\"\"*\"#6\"\"(\" #8F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 170 "Path := [1, 2, 3, \+ 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 1];\nReal_Path:=[seq(Pos ition[Path[i]],i=1..N_city),Position[1]]:\nPLOT(CURVES(Real_Path));\nC alc_dist(Path);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%PathG73\"\"\"\" \"#\"\"$\"\"%\"\"&\"\"'\"\"(\"\")\"\"*\"#5\"#6\"#7\"#8\"#9\"#:\"#;F&" }}{PARA 13 "" 1 "" {GLPLOT2D 204 217 217 {PLOTDATA 2 "6#-%'CURVESG6#73 7$$\"+\"p'>uU!#5$\"+Lp56KF*7$$\"+P2LOMF*$\"+O9cUZF*7$$\"+!>(e%e&F*$\"+ 0$QvY(F*7$$\"+3AA1K!#6$\"+=7uHsF*7$$\"+Rh0VgF*$\"+u.!eX(F*7$$\"+F&>\") f#F*$\"+s[v+JF*7$$\"+0\\zrzF*$\"+;%fp\"RF:7$$\"+nr0V))F:$\"+T$))\\g*F* 7$$\"+zX?H\")F*$\"+&>qu`%F*7$$\"+`RJSkF*$\"+t%\\i?*F*7$$\"+,``5&*F*$\" +sI'[Y\"F*7$$\"+Nw!fb\"F*$\"+Pn#RH%F*7$$\"+5^Ga_F*$\"+!41gs#F*7$$\"+%* 4g(>#F*$\"+Q$H)fnF*7$$\"+&4NZX)F*$\"+$)yqknF*7$$\"+#z(Q8GF*$\"+/!f\\#z F*F'" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1 " }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+zyJ,'*!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "Real_Path:=[seq(Position[Path[i]],i=1..N _city),Position[1]]:\nPLOT(CURVES(Real_Path));\nCalc_dist(Path);\nPath ;" }}{PARA 13 "" 1 "" {GLPLOT2D 204 217 217 {PLOTDATA 2 "6#-%'CURVESG6 #737$$\"+\"p'>uU!#5$\"+Lp56KF*7$$\"+5^Ga_F*$\"+!41gs#F*7$$\"+0\\zrzF*$ \"+;%fp\"R!#67$$\"+,``5&*F*$\"+sI'[Y\"F*7$$\"+zX?H\")F*$\"+&>qu`%F*7$$ \"+&4NZX)F*$\"+$)yqknF*7$$\"+`RJSkF*$\"+t%\\i?*F*7$$\"+Rh0VgF*$\"+u.!e X(F*7$$\"+!>(e%e&F*$\"+0$QvY(F*7$$\"+%*4g(>#F*$\"+Q$H)fnF*7$$\"+#z(Q8G F*$\"+/!f\\#zF*7$$\"+nr0V))F7$\"+T$))\\g*F*7$$\"+3AA1KF7$\"+=7uHsF*7$$ \"+Nw!fb\"F*$\"+Pn#RH%F*7$$\"+F&>\")f#F*$\"+s[v+JF*7$$\"+P2LOMF*$\"+O9 cUZF*F'" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curv e 1" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+yUjsN!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#73\"\"\"\"#8\"\"(\"#6\"\"*\"#:\"#5\"\"&\"\"$\"#9\" #;\"\")\"\"%\"#7\"\"'\"\"#F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "9 0 0" 607 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }