#!/usr/bin/perl -w

my @low = ("145.11","146.61");
my @high = ("145.5","147.39");
my @step = (".020",".015");

my $ptr = 0;
my $num = 0;

foreach (@low) { 
	my $lo = $_;
	my $hi = $high[$ptr];
	my $stp = $step[$ptr];
	my $tx = $lo;
	printf "%3.3f [ ]\n", $tx;
	$num++;
	while ( $tx < $hi ) {
		$tx = $tx + $stp;
		if ( $tx le $hi ) { printf "%3.3f [ ]\n", $tx;  $num++; } }
	$ptr++;
}

print "\n$num output pairs calculated.\n";