2 # Display confidence diagrams
3 # Usage: ./autotest-show-diagram [pairing-pattern]
4 # Make sure you run ./autotest-gather first !
12 if ($confidence == 95)
14 elsif ($confidence == 67)
18 print "Confidence level: $confidence%\n";
20 open(IN
, "./autotest-show | ");
22 my $hashes = "################################################################################################";
23 while (my $str = <IN
>)
25 if ($str =~ m/$mask/ &&
26 $str =~ m/([0-9]+)\t([0-9.]+)\t([0-9.]+)\t(.*)/)
28 my ($games, $wr, $sd, $name) = ($1, $2, $3, $4);
33 $min = $wr - $ratio * $sd;
34 $max = $wr + $ratio * $sd;
35 $min_int = int($min + 0.5); # Don't use this for < 0 numbers !
36 $max_int = int($max + 0.5);
38 printf("%4i %-40s [%i%%-%i%%] ", $games, "$name", $min_int, $max_int);
40 printf("%.*s[%.*s]\n", $min_int - 1 - $shift_left, "$spaces", $max_int - $min_int - 1, "$hashes");