X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Froutetrade;h=7d9dd8be7dc94c3e8af01de38968a1a51ef4dd33;hp=c5c2ab7e3b8d042de5660aaef9f4f96d2940865b;hb=ef57d601849ccb26cd6a69684be7aec261d7c5be;hpb=2007f48bd68be9218b8f41acd9ba32d378a1b22c diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade index c5c2ab7..7d9dd8b 100644 --- a/yarrg/web/routetrade +++ b/yarrg/web/routetrade @@ -32,6 +32,45 @@ 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:37 if tehre are 2 rows which take the same object and sell it for the + same profit at two other islands, choose the shortest route as the + preferred one +16:37 coconut buy 10 sell 16, at luthien or jorvik, in that example +16:38 Do you see what I mean? + +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? +16:39 Also, maybe colour to highlight the suggested trades? + +16:40 can it give a total investment/profit for the suggested trades? +16:40 columns should be sortable with the small arrows as before + +16:46 Oh the unticking has become broken. + +16:51 YPP interfaces have price then qty. You have qty then price. This + is confusing! +16:51 the max column ordering is OK +16:51 (alo profit and suggested are OK) +16:52 Err, you want qty on the left in those two but on the right in + collect and deliver ? +16:53 Yes (price and capital are not the same thing) +16:53 OK +16:53 for max the order in which you want to think about it is 'I need to + buy ten of them and that will cost me $total price) +16:54 s/)/'/ + +16:46 Also trading plan not functional but I guess you know that :-) + +Also: +- potential cost of losses +- max volume/mass +- use POST for update. Hrrm. + +========== TODO ========== + <%args> $dbh @@ -142,16 +181,31 @@ my $sth= $dbh->prepare($stmt); $sth->execute(@query_params); my @flows; -my @columns; +my @cols; + +my $addcols= sub { + my $base= shift @_; + foreach my $name (@_) { + push @cols, { Name => $name, %$base }; + } +}; + if ($qa->{ShowStalls}) { - push @columns, qw(org_name org_stallname dst_name dst_stallname); + $addcols->({ Text => 1 }, qw( + org_name org_stallname + dst_name dst_stallname + )); } else { - push @columns, qw(org_name dst_name); + $addcols->({Text => 1 }, qw( + org_name dst_name + )); } -push @columns, qw(commodname - org_price org_qty dst_price dst_qty - unitprofit PctProfit - MaxQty MaxCapital MaxProfit); +$addcols->({ Text => 1 }, qw(commodname)); +$addcols->({}, + qw( org_qty org_price dst_qty dst_price + Margin unitprofit MaxQty + MaxCapital MaxProfit + )); @@ -162,16 +216,99 @@ push @columns, qw(commodname % } +<& dumptable:start, qa => $qa, sth => $sth &> % { -<& dumptable:start, sth => $sth &> -% my $flow; -% while ($flow= $sth->fetchrow_hashref()) { -% $flow->{Ix}= @flows; -% $flow->{Var}= "f$flow->{Ix}"; -% push @flows, $flow; -<& dumptable:row, sth => $sth, row => $flow &> +% my $f; +% while ($f= $sth->fetchrow_hashref()) { +<%perl> + + $f->{Ix}= @flows; + $f->{Var}= "f$f->{Ix}"; + + $f->{MaxQty}= $f->{'org_qty'} < $f->{'dst_qty'} + ? $f->{'org_qty'} : $f->{'dst_qty'}; + $f->{MaxProfit}= $f->{MaxQty} * $f->{'unitprofit'}; + $f->{MaxCapital}= $f->{MaxQty} * $f->{'org_price'}; + + $f->{Margin}= sprintf "%3.1f%%", + $f->{'dst_price'} * 100.0 / $f->{'org_price'} - 100.0; + + $f->{"org_stallid"}= $f->{"dst_stallid"}= 'all' + if !$qa->{ShowStalls}; + + my @uid= $f->{commodid}; + foreach my $od (qw(org dst)) { + push @uid, + $f->{"${od}_id"}, + $f->{"${od}_price"}; + push @uid, + $f->{"${od}_stallid"} + if $qa->{ShowStalls}; + } + $f->{UidLong}= join '_', @uid; + + my $base= 31; + my $cmpu= ''; + map { + my $uue= $_; + my $first= $base; + do { + my $this= $uue % $base; +print STDERR "uue=$uue this=$this "; + $uue -= $this; + $uue /= $base; + $this += $first; + $first= 0; + $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; + } while ($uue); + $cmpu; + } @uid; + $f->{UidShort}= $cmpu; + + if ($qa->{'debug'}) { + my @outuid; + $_= $f->{UidShort}; + my $mul; + while (m/./) { + my $v= m/^[a-z]/ ? ord($&)-ord('a') : + m/^[A-Z]/ ? ord($&)-ord('A')+26 : + m/^[0-9]/ ? ord($&)-ord('0')+52 : + die "$_ ?"; + if ($v >= $base) { + push @outuid, 0; + $v -= $base; + $mul= 1; +#print STDERR "(next)\n"; + } + die "$f->{UidShort} $_ ?" unless defined $mul; + $outuid[$#outuid] += $v * $mul; + +#print STDERR "$f->{UidShort} $_ $& v=$v mul=$mul ord()=".ord($&). +# "[vs.".ord('a').",".ord('A').",".ord('0')."]". +# " outuid=@outuid\n"; + + $mul *= $base; + s/^.//; + } + my $recons_long= join '_', @outuid; + $f->{UidLong} eq $recons_long or + die "$f->{UidLong} = $f->{UidShort} = $recons_long ?"; + } + + if ($qa->{"R$f->{UidShort}"} && !$qa->{"T$f->{UidShort}"}) { + $f->{Suppress}= 1; + } + + push @flows, $f; + + +<& dumptable:row, qa => $qa, sth => $sth, row => $f &> % } -<& dumptable:end &> +<& dumptable:end, qa => $qa &> % } % my $optimise= $specific && !$confusing && @islandids>1; @@ -198,20 +335,29 @@ Maximize totalprofit: ".(join " + - ", map { "$_->{unit_profit} $_->{Var}" } @flows)." + ", map { "$_->{unitprofit} $_->{Var}" } @flows)." Subject To "; my %avail_csts; foreach my $flow (@flows) { + if ($flow->{Suppress}) { + $cplex .= " + $flow->{Var} = 0 +"; + next; + } foreach my $od (qw(org dst)) { - my $cstname= join '_', + my $cstname= join '_', ( 'avail', $flow->{'commodid'}, $od, $flow->{"${od}_id"}, - $flow->{"${od}_price"}; + $flow->{"${od}_price"}, + $flow->{"${od}_stallid"}, + ); + push @{ $avail_csts{$cstname}{Flows} }, $flow->{Var}; $avail_csts{$cstname}{Qty}= $flow->{"${od}_qty"}; } @@ -272,9 +418,12 @@ if ($qa->{'debug'}) { die unless $found_section; }; -print join ' ', map { $_->{Optimal} } @flows; - -push @columns, qw(OptQty OptCapital OptProfit); +$addcols->({}, qw( + OptQty + )); +$addcols->({ Total => 0 }, qw( + OptCapital OptProfit + )); @@ -283,8 +432,20 @@ push @columns, qw(OptQty OptCapital OptProfit); % { % my $cdspan= $qa->{ShowStalls} ? ' colspan=2' : ''; % my $cdstall= $qa->{ShowStalls} ? 'Stall' : ''; - +
+++<% $qa->{ShowStalls} ? '' : '' %> ++++++% if ($optimise) { ++% } + + -% foreach my $col (@columns) { -% $flow->{MaxQty}= $flow->{'org_qty'} < $flow->{'dst_qty'} -% ? $flow->{'org_qty'} : $flow->{'dst_qty'}; -% $flow->{MaxProfit}= $flow->{MaxQty} * $flow->{'unitprofit'}; -% $flow->{PctProfit}= sprintf "%3.1f%%", -% $flow->{'dst_price'} * 100.0 / $flow->{'org_price'} -% - 100.0; -% $flow->{MaxCapital}= $flow->{MaxQty} * $flow->{'org_price'}; - +
>Collect >Deliver @@ -297,15 +458,16 @@ push @columns, qw(OptQty OptCapital OptProfit); % }
Island <% $cdstall %> Island <% $cdstall %> Commodity -Price Qty Price Qty -Unit +Price Margin +Unit Qty Capital Profit @@ -318,18 +480,65 @@ push @columns, qw(OptQty OptCapital OptProfit); % foreach my $flow (@flows) {
<% $flow->{$col} |h %> +{UidShort} %> value=""> + {UidShort} %> value="" + <% $flow->{Suppress} ? '' : 'checked' %> > +% foreach my $ci (0..$#cols) { +% my $col= $cols[$ci]; +% my $v= $flow->{$col->{Name}}; +% $col->{Total} += $v if defined $col->{Total}; +% $v='' if !$col->{Text} && !$v; +{Text} ? '' : 'align=right' %>><% $v |h %> +% } +% } +
+Total +% foreach my $ci (2..$#cols) { +% my $col= $cols[$ci]; + +% if (defined $col->{Total}) { +<% $col->{Total} |h %> +% } +% } +
+ + + +% if ($optimise) { # ========== TRADING PLAN ========== +% +% my $iquery= $dbh->prepare('SELECT islandname FROM islands +% WHERE islandid = ?'); +% +

Voyage trading plan

+ +% foreach my $i (0..$#islandids) { +Buy or sell flow % } +% } % }
+% $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}; +
+% +% } # ========== TRADING PLAN ========== <%init> use CommodsWeb;