[SCOI2010]股票交易

【问题描述】

最近lxhgww又迷上了投资股票，通过一段时间的观察和学习，他总结出了股票行情的一些规律。

通过一段时间的观察，lxhgww预测到了未来T天内某只股票的走势，第i天的股票买入价为每股APi，第i天的股票卖出价为每股BPi（数据保证对于每个i，都有APi>=BPi），但是每天不能无限制地交易，于是股票交易所规定第i天的一次买入至多只能购买ASi股，一次卖出至多只能卖出BSi股。

另外，股票交易所还制定了两个规定。为了避免大家疯狂交易，股票交易所规定在两次交易（某一天的买入或者卖出均算是一次交易）之间，至少要间隔W天，也就是说如果在第i天发生了交易，那么从第i+1天到第i+W天，均不能发生交易。同时，为了避免垄断，股票交易所还规定在任何时间，一个人的手里的股票数不能超过MaxP。

在第1天之前，lxhgww手里有一大笔钱（可以认为钱的数目无限），但是没有任何股票，当然，T天以后，lxhgww想要赚到最多的钱，聪明的程序员们，你们能帮助他吗？

 

【非完整解题报告】

F[i,j]:第i天持有j只股票时的盈亏值；

program trade; //仅过7组 

var
  temp,j,r,l,maxn,maxp,t,w,i:longint;
  f:array[0..2001,0..2001]of longint;
  ass,bss,ap,bp:array[0..2001]of longint;

procedure init;
begin
  assign(input,'trade.in');
  reset(input);
  assign(output,'trade.out');
  rewrite(output);
end;

procedure outit;
begin
  close(input);
  close(output);
end;

function max(a,b:longint):longint;
begin
  if a>b then exit(a);
  exit(b);
end;

procedure main;
begin
  readln(T,MaxP,W);
  for i:=1 to t do readln(ap[i],bp[i],ass[i],bss[i]);
  for i:=0 to t do
  for j:=0 to MaxP do f[i,j]:=-20110210;
  f[0,0]:=0;
  for i:=1 to t do
  for j:=0 to MaxP do
  begin
    f[i,j]:=f[i-1,j];
    if (i-w-1>=1) then for l:=1 to ass[i-w-1] do if (j-l>=0) then f[i,j]:=max(f[i,j],f[i-w-1,j-l]-l*ap[i-w-1]);
    if (i-w-1>=1) then for r:=1 to bss[i-w-1] do if (j+r<=MaxP) then f[i,j]:=max(f[i,j],f[i-w-1,j+r]+r*bp[i-w-1]);
  end;
  maxn:=0;
  for i:=1 to t do
  for j:=0 to MaxP do
  begin
    if j<=bss[i] then temp:=j else temp:=bss[i];
    maxn:=max(maxn,f[i,j]+temp*bp[i]);
  end;
  writeln(maxn);
end;

begin
  init;
  main;
  outit;
end.