#! /usr/bin/env perl

# experiment 08: varying bunch sizes for dyn and hstream versions
do "../common.pl";

# test parameters
$step = 4000;
$ntries = 5;
$bunch_step = 200;
$max_bunch = 4000;

init_exp();

#output file
$out_file = "./exp-08.csv";
open(CSV, ">", $out_file) or die "cannot open $out_file: $!";
#$nhits = 148556;
$nhits = $max_nhits;

#for($nhits = $step; $nhits < $max_nhits; $nhits += $step) {
for($bunch = $bunch_step; $bunch <= $max_bunch; $bunch += $bunch_step) {
#		print "$bunch $nhits\n";
		run_test("-b$bunch", "-Bdyn");
		$dyn_time = $avg_time;
		$dyn_perf = $perf;
		run_test("-b$bunch", "-Bhstream");
		$hstream_time = $avg_time;
		$hstream_perf = $perf;
		$str = sprintf "%6d %6.3f %6.3f %6.3f %6.3f\n", $bunch, $hstream_time,
		  $hstream_perf, $dyn_time, $dyn_perf;
		printf CSV "%s", $str;
		printf "%s", $str;
}

close CSV;