X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Froutetrade;h=2438059a170cb1bf124dfd7fffe91b9b98c45f37;hb=e9609637b8acfaf47a176e6d0c934d1f907e27a8;hp=ee15afbc1e98e6aa82f88f5bac22cda24d57d6c7;hpb=7f92b134aef043ef30305f3175d3559829b04805;p=ypp-sc-tools.db-test.git diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade index ee15afb..2438059 100644 --- a/yarrg/web/routetrade +++ b/yarrg/web/routetrade @@ -32,6 +32,25 @@ This Mason component is the core trade planner for a specific route. +========== TODO ========== +16:36 alpha,byrne,papaya,turtle,jorvik,luthien is my example + +16:39 Also, maybe colour to highlight the suggested trades? + +16:46 Also trading plan not functional but I guess you know that :-) + +use POST for update. Hrrm. + +LATER OR NOT AT ALL + +adjustable potential cost of losses (rather than fixed 1e-BIG per league) + +max volume/mass + +16:38 I don't know how hard this is, but can you show only the suggested + trades to start ith and have a button to show all? +========== TODO ========== + <%args> $dbh @@ -41,6 +60,8 @@ $qa <%perl> +my $loss_per_league= 1e-7; + my @flow_conds; my @query_params; @@ -116,6 +137,7 @@ my $stmt= " commods.commodid commodid, commods.unitmass unitmass, commods.unitvolume unitvolume, + dist dist, buy.price - sell.price unitprofit FROM commods JOIN buy on commods.commodid = buy.commodid @@ -126,6 +148,7 @@ my $stmt= " JOIN stalls as sell_stalls on sell.stallid = sell_stalls.stallid JOIN stalls as buy_stalls on buy.stallid = buy_stalls.stallid " : "")." + JOIN dists on aiid = sell.islandid AND biid = buy.islandid WHERE ( ".join(" OR ", @flow_conds)." @@ -142,12 +165,14 @@ my $sth= $dbh->prepare($stmt); $sth->execute(@query_params); my @flows; -my @cols; +my @cols= ({ NoSort => 1 }); my $addcols= sub { my $base= shift @_; foreach my $name (@_) { - push @cols, { Name => $name, %$base }; + my $col= { Name => $name, %$base }; + $col->{Numeric}=1 if !$col->{Text}; + push @cols, $col; } }; @@ -162,11 +187,9 @@ if ($qa->{ShowStalls}) { )); } $addcols->({ Text => 1 }, qw(commodname)); -$addcols->({}, - qw( org_qty org_price dst_qty dst_price +$addcols->({ DoReverse => 1 }, + qw( org_price org_qty dst_price dst_qty Margin unitprofit MaxQty - )); -$addcols->({ Total => 1 }, qw( MaxCapital MaxProfit )); @@ -199,6 +222,10 @@ $addcols->({ Total => 1 }, qw( $f->{"org_stallid"}= $f->{"dst_stallid"}= 'all' if !$qa->{ShowStalls}; + $f->{ExpectedUnitProfit}= + $f->{'dst_price'} * (1.0 - $loss_per_league) ** $f->{'dist'} + - $f->{'src_price'}; + my @uid= $f->{commodid}; foreach my $od (qw(org dst)) { push @uid, @@ -262,7 +289,8 @@ die "$cmpu $uue ?" if length $cmpu > 20; die "$f->{UidLong} = $f->{UidShort} = $recons_long ?"; } - if ($qa->{"R$f->{UidShort}"} && !$qa->{"T$f->{UidShort}"}) { + if (defined $qa->{"R$f->{UidShort}"} && + !defined $qa->{"T$f->{UidShort}"}) { $f->{Suppress}= 1; } @@ -298,7 +326,9 @@ Maximize totalprofit: ".(join " + - ", map { "$_->{unitprofit} $_->{Var}" } @flows)." + ", map { + sprintf "%.20f %s", $_->{ExpectedUnitProfit}, $_->{Var} + } @flows)." Subject To "; @@ -381,10 +411,10 @@ if ($qa->{'debug'}) { die unless $found_section; }; -$addcols->({}, qw( +$addcols->({ DoReverse => 1 }, qw( OptQty )); -$addcols->({ Total => 1 }, qw( +$addcols->({ Total => 0, DoReverse => 1 }, qw( OptCapital OptProfit )); @@ -392,10 +422,11 @@ $addcols->({ Total => 1 }, qw( % } # ========== OPTIMISATION ========== +% my %ts_sortkeys; % { % my $cdspan= $qa->{ShowStalls} ? ' colspan=2' : ''; % my $cdstall= $qa->{ShowStalls} ? 'Stall' : ''; - +
<% $qa->{ShowStalls} ? '' : '' %> @@ -417,7 +448,7 @@ $addcols->({ Total => 1 }, qw( @@ -425,10 +456,10 @@ $addcols->({ Total => 1 }, qw( +% foreach my $col (@cols) { + +% my $rowid= "id_row_$flow->{UidShort}"; + +
Profit Max % if ($optimise) { -Suggested +Planned % }
Island <% $cdstall %> Island <% $cdstall %> Commodity -Qty Price Qty Price +Qty Margin Unit Qty @@ -441,22 +472,85 @@ $addcols->({ Total => 1 }, qw( % } % } +
+% } + % foreach my $flow (@flows) { -
{UidShort} %> value=""> {UidShort} %> value="" <% $flow->{Suppress} ? '' : 'checked' %> > -% foreach my $ci (0..$#cols) { +% foreach my $ci (1..$#cols) { % my $col= $cols[$ci]; % my $v= $flow->{$col->{Name}}; +% $col->{Total} += $v if defined $col->{Total}; % $v='' if !$col->{Text} && !$v; +% $ts_sortkeys{$ci}{$rowid}= $v; {Text} ? '' : 'align=right' %>><% $v |h %> % } % } +
+Total +% foreach my $ci (3..$#cols) { +% my $col= $cols[$ci]; + +% if (defined $col->{Total}) { +<% $col->{Total} |h %> +% } +% }
+<& tabsort, cols => \@cols, table => 'trades', + throw => 'trades_sort', tbrow => 'trades_total' &> +<&| script &> + ts_sortkeys= <% to_json_protecttags(\%ts_sortkeys) %>; + function all_onload() { + ts_onload__trades(); + } + window.onload= all_onload; + + +% if ($optimise) { # ========== TRADING PLAN ========== +% +% my $iquery= $dbh->prepare('SELECT islandname FROM islands +% WHERE islandid = ?'); +% +

Voyage trading plan

+ +% foreach my $i (0..$#islandids) { +
+% $iquery->execute($islandids[$i]); +% my ($islandname) = $iquery->fetchrow_array(); +% if (!$i) { +Start at <% $islandname |h %> +% } else { +Sail to <% $islandname |h %> +% } + +% foreach my $od (qw(dst org)) { +% my $sign= $od eq 'dst' ? -1 : +1; +% foreach my $f (sort { +% $a->{'commodname'} cmp $b->{'commodname'} +% or $sign * ($a->{"${od}_price"} <=> $b->{"${od}_price"}) +% or $a->{"${od}_stallname"} cmp $b->{"${od}_stallname"} +% } @flows) { +% next if $f->{Suppress}; +% next unless $f->{"${od}_id"} == $islandids[$i]; +% next unless $f->{OptQty}; +
Buy or sell flow +% } +% } +% } +
+% +% } # ========== TRADING PLAN ========== + <%init> use CommodsWeb; use Commods;