\n" if $qa->{'debug'};
+ qw(glpsol --tmlim 5 --memlim 20), @opts,
+ qw( --cpxlp /dev/stdin -o /dev/stdout));
+ if ($qa->{'debug'}) {
+ print "@opts
\n\n";
+ }
+ $expected_total_profit= undef;
+ $_->{OptQty}= undef foreach @subflows;
my $found_section= 0;
my $glpsol_out= '';
my $continuation='';
+ my $timelimit= 0;
+ my $somemip= 0;
while (<$output>) {
$glpsol_out.= $_;
print encode_entities($_) if $qa->{'debug'};
@@ -598,6 +606,14 @@ if ($qa->{'debug'}) {
$found_section= 1;
next;
}
+ if ((m/^Integer optimization begins/ .. 0) &&
+ m/^\+ \s* \d+\: \s* mip \s* = \s* \d/) {
+ $somemip= 1;
+ next;
+ }
+ if (m/^TIME LIMIT EXCEEDED/) {
+ $timelimit= 1;
+ }
if (m/^Objective:\s+totalprofit = (\d+(?:\.\d*)?) /) {
$expected_total_profit= $1;
}
@@ -618,7 +634,7 @@ if ($qa->{'debug'}) {
my ($varname, $qty) = m/^
\s* \d+ \s+
(\w+) \s+ (?: [A-Z*]+ \s+ )?
- ([+-e0-9.]+) \s
+ ([-+0-9]+)(?: [.e][-+e0-9.]* )? \s
/x or die "$cplex \n==\n $glpsol_out $_ ?";
if ($varname =~ m/^f(\d+)s(\d+)_/) {
my ($ix,$orgix) = ($1,$2);
@@ -630,7 +646,7 @@ if ($qa->{'debug'}) {
$sf->{OptQty}= $qty;
$sf->{OptProfit}= $qty * $flow->{'unitprofit'};
$sf->{OptCapital}= $qty * $flow->{'org_price'};
- } elsif ($varname =~ m/^(mass|volume)_(\d+)$/) {
+ } elsif ($varname =~ m/^(mass|volume|capital)_(\d+)$/) {
my ($mv,$ix) = ($1,$2);
$sail_total[$ix]{$mv}= $qty;
}
@@ -640,8 +656,28 @@ if ($qa->{'debug'}) {
pipethrough_run_finish($output,$prerr);
map { defined $_->{OptQty} or die "$prerr $_->{Flow}{Ix}" } @subflows;
defined $expected_total_profit or die "$prerr ?";
+ return 0 unless $somemip || !$timelimit;
+ $opt_how= $how;
+ return 1;
};
+unless ($try_solve->('Optimisation successful',
+ qw( --intopt --cuts --bfs )) or
+ $try_solve->('Complex problem, downgraded'.
+ ' to rounded-down LP.',
+ qw( --nomip ))) {
+
+Optimisation failed
+The linear/mixed-integer optimisation failed.
+Please report this problem.
+
+
+<% $cplex |h %>
+
+<%perl>
+ return;
+}
+
$addcols->({ DoReverse => 1, TotalSubflows => 1, Special => sub {
my ($flow,$col,$v,$spec) = @_;
if ($flow->{ExpectedUnitProfit} < 0) {
@@ -664,9 +700,9 @@ $addcols->({ Total => 0, DoReverse => 1, TotalSubflows => 1 }, qw(
Contents
"; -% my ($c)= qw(40 00)[$_[0]]; -% return " | ||||||||||||||||||||||||||||||||||||
| "; -% }; -% -% foreach my $i (0..$#islandids) { -<% $tbody->(1) %> - | ||||||||||||||||||||||||||||||||||||
| "; +}; + +foreach my $i (0..$#islandids) { + $plan_html .= $tbody->(1); + $plan_html .= " | ||||||||||||||||||||||||||||||||||||
| [what are these codes?] |
-% } else {
-% my $this_dist= $distance->($islandids[$i-1],$islandids[$i]);
-% $total_dist += $this_dist;
+END
+ } else {
+ my $this_dist= $distance->($islandids[$i-1],$islandids[$i]);
+ $total_dist += $this_dist;
+ $plan_html .= < |
-% }
-<%perl>
+END
+ }
my $age_reported= 0;
my %flowlists;
#print "|||||||||||||||||||||||||||||||||||
" if $qa->{'debug'};
@@ -817,66 +859,72 @@ END
my ($xinfo) = @_;
return unless defined $total_to_show;
my ($totaldesc,$totalwas) = @$total_to_show;
-
+ $plan_html .= <|
- | <% $xinfo %>
- | <% $totaldesc %>
- | <% $totalwas |h %> total
-<%perl>
+ | $xinfo
+ | $totaldesc
+ | $totalwas total
+END
$total_to_show= undef;
};
-
-% my $show_flows= sub {
-% my ($od,$arbitrage,$collectdeliver) = @_;
-% my $todo= $flowlists{$od};
-% return unless $todo;
-% foreach my $tkey (sort keys %$todo) {
-% my $t= $todo->{$tkey};
-% next if $t->{"${od}Arbitrage"} != $arbitrage;
-% $show_total_now->('');
-% if (!$age_reported++) {
-% my $age= $now - $t->{Timestamp};
-% my $cellid= "da_${i}";
-% $da_ages{$cellid}= $age;
- | \
-(Data age: <% prettyprint_age($age) %>)
-% } elsif (!defined $total) {
-% $total= 0;
-<% $tbody->(0) %>
-% }
-% $total += $t->{Total};
-% my $span= 0 + keys %{ $t->{Stalls} };
-% my $td= "td rowspan=$span";
-% my %linkqf= (%{ $qa->{'baseqf'} }, %{ $qa->{'queryqf'} });
-% $linkqf{'query'}= 'commod';
-% $linkqf{'commodstring'}= $t->{'commodname'};
-% $linkqf{'commodid'}= $t->{'commodid'};
-% tr_datarow($m,$dline);
-<<% $td %>><% $collectdeliver %>
-<<% $td %>><% $t->{'commodname'} |h %>
-<<% $td %>><% $t->{'posinclass'} %>
-%
-% my @stalls= sort keys %{ $t->{Stalls} };
-% my $pstall= sub {
-% my $name= $stalls[$_[0]];
- | <% $name |h %>
-% };
-%
-% $pstall->(0);
-<<% $td %> align=right><% $t->{Price} |h %> poe ea.
-<<% $td %> align=right><% $t->{Qty} |h %> unit(s)
-<<% $td %> align=right><% $t->{Total} |h %> total
-%
-% foreach my $stallix (1..$#stalls) {
-% tr_datarow($m,$dline);
-% $pstall->($stallix);
-% }
-%
-% $dline ^= 1;
-% }
-% };
-<%perl>
+ my $show_flows= sub {
+ my ($od,$arbitrage,$collectdeliver) = @_;
+ my $todo= $flowlists{$od};
+ return unless $todo;
+ foreach my $tkey (sort keys %$todo) {
+ my $t= $todo->{$tkey};
+ next if $t->{"${od}Arbitrage"} != $arbitrage;
+ $show_total_now->('');
+ if (!$age_reported++) {
+ my $age= $now - $t->{Timestamp};
+ @oldest= ($age,$islandnamepr) if $oldest[0] < $age;
+ my $cellid= "da_${i}";
+ my $agepr= prettyprint_age($age);
+ $da_ages{$cellid}= $age;
+ $plan_html .= < | Total distance: <% $total_dist %> leagues.
+
+my $cashflowpr= $total_total < 0
+ ? -$total_total." loss"
+ : $total_total." gain";
+
+my $max_capital= 0;
+foreach my $cap (map { $_->{capital} } @sail_total) {
+ $max_capital= $cap if $cap > $max_capital;
+}
+
+$da_ages{'oldest'}= $oldest[0];
+
+$plan_html .= $tbody->(1) . < | Total distance: $total_dist leagues.
| Overall net cash flow
- | <%
- $total_total < 0 ? -$total_total." loss" : $total_total." gain"
- %>
+ | $cashflowpr
| | ||||||||||||||||||||||
| Distance: + | <% $total_dist %> leagues, + <% scalar(@islandids) %> island(s) + |
| Planned net cash flow: + | <% $cashflowpr %> + |
| Expected profit on average: approx. + | + <% sprintf "%d", $expected_total_profit %> poe + (considering expected losses, but ignoring rum consumed) + |
| Capital required: + | + <% $max_capital %> poe or less + |
| Oldest market data used: + | <% prettyprint_age($oldest[0]) %> + (<% $oldest[1] %>) + |
| <% $opt_how %> + | |
+ +