#! /usr/bin/env perl

# experiment 07: comparison of different approaches on K10 with different CUDA_DEVICE_MAX_CONNECTIONS/host stream settings
do "../common.pl";

# test parameters
$step = 4000;
$ntries = 5;

init_exp_k10();

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

for($nhits = 118500; $nhits < $max_nhits; $nhits += $step) {
		$cuda_device = 0;
		$str = sprintf "%6d ", $nhits;
		run_test_k10("-Btblock");
		$str = sprintf "%s %6.3f %6.3f ", $str, $avg_time, $perf;
		run_test_k10("-Bhstream");
		$str = sprintf "%s %6.3f %6.3f ", $str, $avg_time, $perf;
		for($cuda_device_max_connections=6; $cuda_device_max_connections<=120; $cuda_device_max_connections+=6){
			run_test_k10("-Bhthread");
			$str = sprintf "%s %6.3f %6.3f ", $str, $avg_time, $perf;
		}
		$str = sprintf "%s\n", $str;
		printf CSV "%s", $str;
		printf "%s", $str;
}

close CSV;