genhk.pl.in

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

#! @PERL@
# @configure_input@

use strict;

my $mode = 1;

sub doit {
	$_ = shift;
	if ( $mode ) { system $_;}
	else { print $_,"\n"};
}

my %parms = (
41,1000,42,1000,43,1000,44,1000,45,1000,
51,3162,52,3162,53,3162,55,3162,55,3162
);

my $seed;
foreach $seed (keys %parms) {
		my $n = $parms{$seed};
		my $infile = "data/dsjr.$seed.$n.tsp";
		my $outfile = $infile.".hk";
		if ( ! -r $outfile ) {
			doit "src/hk -v 80 $infile --held-karp >$outfile";
		}
		#sleep 2;
}

exit 0;
my $d;
my $s;

# The following are for getting HK values for Bentley instances.
foreach $d (0..10) {
	foreach $s (41..45) {
		my $seed=$s*20 + $d;
		my $n=1000;
		my $outfile = "data/ben.$d.$seed.$n.hk";
		if ( ! -r $outfile ) {
			doit "src/hk data/ben.$d.$seed.$n.tsp --held-karp >$outfile";
		}
		sleep 5;
	}
}