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

34
bench/dtgbasat/tabl4.pl
View file

@ -84,6 +84,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;
@ -104,6 +119,7 @@ foreach my $tab (@w)
}
++$linenum;
my $n = $tab->[52];
my $f = $tab->[0];
next if length($f) > 60;
$f =~ s/\&/\\land /g;
@ -181,12 +197,14 @@ foreach my $tab (@w)
if ($tab->[21] =~ /\s*-\s*/) # minDBA
{
print "\\multicolumn{2}{c|}{(killed)}&";
my $s = getlastsuccesful($n, "DBA");
print "\\multicolumn{2}{c|}{(killed$s)}&";
$tab->[21] = 0+'inf';
}
elsif ($tab->[21] =~ /\s*!\s*/) # minDBA
{
print "\\multicolumn{2}{c|}{(intmax)}&";
my $s = getlastsuccesful($n, "DBA");
print "\\multicolumn{2}{c|}{(intmax$s)}&";
$tab->[21] = 0+'inf';
}
else
@ -201,12 +219,14 @@ foreach my $tab (@w)
if ($tab->[39] =~ /\s*-\s*/) # min DTBA
{
print "\\multicolumn{2}{c|}{(killed)}&";
my $s = getlastsuccesful($n, "DTBA");
print "\\multicolumn{2}{c|}{(killed$s)}&";
$tab->[39] = 0+'inf';
}
elsif ($tab->[39] =~ /\s*!\s*/) # min DTBA
{
print "\\multicolumn{2}{c|}{(intmax)}&";
my $s = getlastsuccesful($n, "DTBA");
print "\\multicolumn{2}{c|}{(intmax$s)}&";
$tab->[39] = 0+'inf';
}
else
@ -221,12 +241,14 @@ foreach my $tab (@w)
if ($tab->[30] =~ /\s*-\s*/) # minTGBA
{
print "\\multicolumn{3}{c}{(killed)}";
my $s = getlastsuccesful($n, "DTGBA");
print "\\multicolumn{3}{c}{(killed$s)}";
$tab->[30] = 0+'inf';
}
elsif ($tab->[30] =~ /\s*!\s*/) # minTGBA
{
print "\\multicolumn{3}{c}{(intmax)}";
my $s = getlastsuccesful($n, "DTGBA");
print "\\multicolumn{3}{c}{(intmax$s)}";
$tab->[30] = 0+'inf';
}
else