alarsyo/spot
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

sat-minimize: more statistics.

Browse source 
* src/tgbaalgos/dtbasat.cc, src/tgbaalgos/dtgbasat.cc: Record
statistics about intermediate automata if SPOT_SATLOG is set to some
filename, and display intermediate automata if SPOT_SATSHOW is set.
* bench/dtgbasat/stat.sh, bench/dtgbasat/stats.sh,
bench/dtgbasat/tabl.pl, bench/dtgbasat/tabl1.pl,
bench/dtgbasat/tabl2.pl, bench/dtgbasat/tabl3.pl,
bench/dtgbasat/tabl4.pl: Gather these extra statistics.
This commit is contained in:
Alexandre Duret-Lutz 2014-01-17 11:48:04 +01:00
parent 1319ec0bad
commit 55ee18b96a
9 changed files with 242 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

22
bench/dtgbasat/tabl1.pl
View file

@ -64,6 +64,21 @@ sub nonnull($)
return $_[0];
}
sub getlastsuccesful($$)
{
my ($n,$type) = @_;
open LOG, "<$n.$type.satlog" or return "";
my $min = "";
while (my $line = <LOG>)
{
my @f = split(/,/, $line);
$min = $f[1] if $f[1] ne '';
}
$min = ", \$\\le\$$min" if $min ne "";
return $min;
}
my $lasttype = '';
my $linenum = 0;
@ -83,6 +98,7 @@ foreach my $tab (@w)
# print "\\arrayrulecolor{lightgray}\\hline\\arrayrulecolor{black}";
}
my $n = $tab->[52];
my $f = $tab->[0];
$f =~ s/\&/\\land /g;
$f =~ s/\|/\\lor /g;
@ -119,12 +135,14 @@ foreach my $tab (@w)
if ($tab->[21] =~ /\s*-\s*/) # minDBA
{
print "\\multicolumn{1}{c|}{(killed)}&";
my $s = getlastsuccesful($n, "DBA");
print "\\multicolumn{1}{c|}{(killed$s)}&";
$tab->[21] = 0+'inf';
}
elsif ($tab->[21] =~ /\s*!\s*/) # minDBA
{
print "\\multicolumn{1}{c|}{(\$>\$INTMAX)}&";
my $s = getlastsuccesful($n, "DBA");
print "\\multicolumn{1}{c|}{(intmax$s)}&";
$tab->[21] = 0+'inf';
}
else