genhk.pl.in,v

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

head	1.2;
access;
symbols
	zero-five-zero:1.2
	zero-four-seventeen:1.1;
locks
	neto:1.2; strict;
comment	@# @;


1.2
date	2000.09.17.04.24.02;	author neto;	state Exp;
branches;
next	1.1;

1.1
date	98.10.16.23.10.28;	author neto;	state Exp;
branches;
next	;


desc
@Generate Held-Karp bounds on several files.
@


1.2
log
@Added some dsjr instances
@
text
@#! @@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;
	}
}
@


1.1
log
@Initial revision
@
text
@d14 4
d19 16
d38 1
@