#!/usr/local/bin/perl5 -s
 
require 5.000;

open (MARKERS, ">clustered_markers.txt") or die "cannot open MARKERS\n";

##	generate clustered numbers to test r-scan

$max = 1000000;
$num = 20000;
$start_diff = $max / 100;
$diff = $max / $num;
    for ($j = 1; $j < 101; $j++) {
	$start = ($j-1) * $start_diff;

    for ($i = 1; $i < $num/100+1; $i++) {
	$marker = $start + $i * 0.01 * $diff;
	print MARKERS "$marker\n";
	}
	}

close (MARKERS) || die "MARKERS file was not closed\n";
exit (0);

__END__

