From: Michal Sojka <sojkam1@fel.cvut.cz>
Date: Mon, 30 Nov 2009 01:26:17 +0000 (+0100)
Subject: Added script to generate gnuplot data from results
X-Git-Tag: jsa-paper-casestudy~10^2~7
X-Git-Url: https://rtime.felk.cvut.cz/gitweb/frescor/demo.git/commitdiff_plain/8de01d30ced0c624970050d43e7d47c9d1919589

Added script to generate gnuplot data from results
---

diff --git a/results/gen-gnuplot.pl b/results/gen-gnuplot.pl
new file mode 100755
index 0000000..2eb4385
--- /dev/null
+++ b/results/gen-gnuplot.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use List::Util qw(first max maxstr min minstr reduce shuffle sum);
+
+while (glob "[0-9][0-9]*") {
+    $dir = $_;
+    next unless -d $dir;
+    open G, '>', "$dir.dat";
+    while (glob "$dir/result-agregate-*") {
+	$file = $_;
+	($x) = m/(\d+)$/;
+	open F, '<', "$file";
+	@A = ();
+	@S = ();
+	while (<F>) {
+	    ($avg, $stddev) = m|avg=1/([^ ]+).*stddev=([\d/.]+)|;
+	    #print G "$x $avg ",eval($stddev),"\n";
+	    push @A, $avg;
+	    push @S, eval($stddev);
+	}	
+	printf G "%d %5.2f %7.5f\n", $x, sum(@A)/scalar @A, sum(@S)/scalar @S;
+	close(F);
+    }
+    close(G);
+}