qi-hardware/wernermisc
1
0
Fork 0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-12-19 19:00:36 +02:00
Code

m1rc3/norruption/2/plot-cdf: added option -i to interpolate empirical results

Browse Source
This commit is contained in:
Werner Almesberger 2011-10-12 00:29:07 -03:00
parent a83a711733
commit 13479e1862
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
m1rc3/norruption/2/plot-cdf
View File

@ -1,4 +1,19 @@
#!/usr/bin/perl #!/usr/bin/perl
sub usage
{
print STDERR "usage: $0 [-i] [log_file]\n";
exit(1);
}
$with = "steps";
if ($ARGV[0] eq "-i") {
shift @ARGV;
$with = "lines";
}
&usage if $ARGV[0] =~ /^-/;
$n = 1; $n = 1;
while (<>) { while (<>) {
next unless /^=== (\d+) ===/; next unless /^=== (\d+) ===/;
@ -25,7 +40,7 @@ $cmd = "|gnuplot -e '".
'set xlabel "Power cycles";'. 'set xlabel "Power cycles";'.
'set ylabel "Cumulative probability";'. 'set ylabel "Cumulative probability";'.
'set key bottom;'. 'set key bottom;'.
'plot "-" with steps title "Empirical distribution (N='.@f.')", '. 'plot "-" with '.$with.' title "Empirical distribution (N='.@f.')", '.
'1-exp(-'.1/$f.'*x) with lines lt 3 '. '1-exp(-'.1/$f.'*x) with lines lt 3 '.
'title "Exponential distribution ({/Symbol l}=1/'.$f.')"'. 'title "Exponential distribution ({/Symbol l}=1/'.$f.')"'.
"'"; "'";