my $first= $base;
do {
my $this= $uue % $base;
-print STDERR "uue=$uue this=$this ";
+#print STDERR "uue=$uue this=$this ";
$uue -= $this;
$uue /= $base;
$this += $first;
$cmpu .= chr($this + ($this < 26 ? ord('a') :
$this < 52 ? ord('A')-26
: ord('0')-52));
-print STDERR " uue=$uue this=$this cmpu=$cmpu\n";
-die "$cmpu $uue ?" if length $cmpu > 20;
+#print STDERR " uue=$uue this=$this cmpu=$cmpu\n";
+ die "$cmpu $uue ?" if length $cmpu > 20;
} while ($uue);
$cmpu;
} @uid;
next unless @relsubflow;
die unless @relsubflow == 1;
push @rel_subflows, @relsubflow;
-print " RELEVANT $ci $relsubflow[0]->{Var} ";
+#print " RELEVANT $ci $relsubflow[0]->{Var} ";
}
-print " RELEVANT $ci COUNT ".scalar(@rel_subflows)." ";
+#print " RELEVANT $ci COUNT ".scalar(@rel_subflows)." ";
if (!@rel_subflows) {
foreach my $mv (qw(mass volume)) {
$sail_total[$ci]{$mv}= 0;
my $applylimit= sub {
my ($mv, $max, $f2val) = @_;
- return unless defined $max;
-print " DEFINED MAX $mv $max ";
+ $max= 1e9 unless defined $max;
+#print " DEFINED MAX $mv $max ";
$cplex .= "
". sprintf("%-10s","${mv}_$ci:")." ".
join(" + ", map {
-print " PART MAX $_->{Var} $_->{Flow}{Ix} ";
+#print " PART MAX $_->{Var} $_->{Flow}{Ix} ";
$f2val->($_->{Flow}) .' '. $_->{Var};
} @rel_subflows).
" <= $max";