home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / ANNEAL.DEM < prev    next >
Encoding:
Text File  |  1991-04-29  |  909 b   |  38 lines
  1. PROGRAM D10R13(input,output);
  2. CONST
  3.         ncity=10;
  4. TYPE
  5.         cityarray = ARRAY [1..ncity] OF real;
  6.         iarray = ARRAY [1..ncity] OF integer;
  7. VAR
  8.         glinext,glinextp,gljdum,idum,i,ii : integer;
  9.         glma : ARRAY [1..55] OF real;
  10.         x,y : cityarray;
  11.         iorder : iarray;
  12.  
  13. (*$I MODFILE.PAS*)
  14.  
  15. (*$I RAN3.PAS*)
  16.  
  17. (*$I IRBIT1.PAS*)
  18.  
  19. (*$I ANNEAL.PAS*)
  20.  
  21. BEGIN
  22.         gljdum := 1;
  23.         idum := -1;
  24.         FOR i := 1 TO ncity DO BEGIN
  25.                 x[i] := ran3(idum);
  26.                 y[i] := ran3(idum);
  27.                 iorder[i] := i;
  28.         END;
  29.         anneal(x,y,iorder,ncity);
  30.         writeln('*** System Frozen ***');
  31.         writeln('Final path:');
  32.         writeln(' ':3,'city',' ':6,'x',' ':9,'y');
  33.         FOR i := 1 TO ncity DO BEGIN
  34.                 ii := iorder[i];
  35.                 writeln(ii:4,x[ii]:10:4,y[ii]:10:4)
  36.         END
  37. END.
  38.