maketables

Lin-Kernighan heuristic for the TSP and minimum weight perfect matching

#! /bin/sh

# vim:set ts=8 sw=2:
s=../script/mktable.pl
myname=MAKETABLE

# TSP TSPLIB		(yes)
    # need gr666
# TSP unifbig           (yes)
# TSP Ben 		(yes)
# TSP DSJR      	(yes)
# TSP clones

# WPM TSPLIB  		(yes)
# WPM unifbig		
# WPM Ben 		(yes)
# WPM DSJR small     	(yes)
# WPM clones

# WPM DSJR big		(toomuch time)
# TSP DSJR big		(toomuch time)

echo >>maketables.log
echo >>maketables.log
echo '$Id: maketables,v 1.9 1999/01/08 21:56:37 neto Exp neto $' >>maketables.log
date >>maketables.log


o=gen
for t in pct time; do

    ##########TSP
    # TSP TSPLIB
    for b in hk hk-estimate optimal; do
      for n in few many; do
	echo $myname tsp.tsplib.$n.$b.$t
	file=table.tsp.tsplib.$n.$b.$t.out
	echo $file >>maketables.log
	$s -t $t -l $b `grep -v '^#' table.tsp.tsplib.$n.in` >$file
      done
    done

    # This is the gr666 stuff.  
    # I goofed when in defining the expt.tsp.tsplib.2 file by writing "optimal"
    # for what was really the HK bound...
    for b in optimal; do
      for n in 2; do
	echo $myname tsp.tsplib.$n.$b.$t
	file=table.tsp.tsplib.$n.$b.$t.out
	echo $file >>maketables.log
	$s -t $t -l $b `grep -v '^#' table.tsp.tsplib.$n.in` >$file
      done
    done


    # TSP Ben
    for b in hka; do
      for n in few; do
	echo $myname tsp.ben.$n.$b.$t
	file=table.tsp.ben.$n.$b.$t.out
	echo $file >>maketables.log
	$s -t $t -l $b `grep -v '^#' table.tsp.ben.$n.in` >$file
      done
    done

    # TSP unifbig
    echo $myname tsp.uni
    file=table.tsp.uni.$t.out
    echo $file >>maketables.log
    $s -t $t -l hka `grep -v '^#' table.tsp.uni.in` >$file
    perl condense.pl $file

    # TSP DSJR 
    # (override with bounds file)
    for b in hka; do
      echo $myname tsp.dsjr.small.many.$b.$t
      file=table.tsp.dsjr.$b.$t.out
      echo $file >>maketables.log
      $s -t $t -l $b -b expt.tsp.dsjr.small `grep -v '^#' table.tsp.dsjr.in` >$file
    done
    perl condense.pl $file

    ##########WPM
    # WPM DSJR 
    # (override with bounds file)
    echo $myname wpm.dsjr.small
    file=table.wpm.dsjr.optimal.$t.out
    echo $file >>maketables.log
    $s -t $t -l optimal -b expt.wpm.dsjr  `grep -v '^#' table.wpm.dsjr.in` >$file

    # WPM TSPLIB
    for i in tsplib; do
      echo $myname WPM $i 
      file=table.wpm.$i.optimal.$t.out
      echo $file >>maketables.log
      $s -t $t -l optimal `grep -v '^#' table.wpm.$i.in` >$file
    done

    # WPM TSPLIB
    for i in tsplib.3; do
      echo $myname WPM $i 
      file=table.wpm.$i.optimal.$t.out
      echo $file >>maketables.log
      $s -t $t -l optimal `grep -v '^#' table.wpm.$i.in` >$file
    done

    # WPM Ben
    for i in ben tsplib; do
      echo $myname WPM $i 
      file=table.wpm.$i.optimal.$t.out
      echo $file >>maketables.log
      $s -b expt.wpm.ben -t $t -l optimal `grep -v '^#' table.wpm.$i.in` >$file
    done

    # WPM unifbig 
    # (override with bounds file)
  #  echo $myname wpm.dsjr.small
  #  file=table.wpm.dsjr.small.optimal.$t.out
  #  echo $file >>maketables.log
  #  $s -t $t -l optimal -b expt.wpm.dsjr  `grep -v '^#' table.wpm.dsjr.small.in` >$file


    # WPM UNI instances.

    for i in uni; do
      echo $myname WPM $i 
      file=table.wpm.$i.optimal.$t.out
      echo $file >>maketables.log
      $s -t $t -l optimal `grep -v '^#' table.wpm.$i.in` >$file
    done
    perl ./condense.pl $file



   ############ Generated data

  


#  k=tsp; l=hka;
#   for g in dangle explode shake jitter infill cn cd; do
#     file=table.$k.$g.$t.out
#     echo $file >>maketables.log
#     $s -t $t -l $l -b expt.$k.gen.geo -b expt.$k.gen.nongeo -b expt.$k.gen2.geo `grep -v '^#' table.$k.$g.in` >$file
#   done
#

#   k=wpm; l=optimal;
#    #for g in dangle explode shake jitter infill cn cd; do
#    for g in cn; do
#      file=table.$k.$g.$t.out
#      echo $file >>maketables.log
#      $s -t $t -l optimal -b expt.$k.gen.geo -b expt.$k.gen.nongeo -b expt.$k.gen2.geo `grep -v '^#' table.$k.$g.in` >$file
#    done

   k=wpm; l=optimal;
    #for g in dangle explode shake jitter infill cn cd; do
    for g in cn; do
      file=table.$k.$g.special.$t.out
      echo $file >>maketables.log
      $s -t $t -l bestoftwenty -b expt.$k.gen.special `grep -v '^#' table.$k.$g.special.in` >$file
    done
  


done