(BestCoder Round #59 (div.1) B)简单DP

（改编版，题意相同）
Description

火神为了检验zone的力量，他决定单挑n个人。
由于火神训练时间有限，最多只有t分钟，所以他可以选择一部分人来单挑，由于有丽子的帮助，他得到了每个人特定的价值，每个人的价值由一个三元组(a,b,c)组成，表示如果火神在第x分钟单挑这个人（x指单挑完这个人的时间），他就会得到a-b*x的经验值，并且他需要c分钟来打倒这个人。
现在火神想知道，他最多可以得到多少经验值，由于火神本来就很笨，进入zone的疯狂的火神就更笨了，所以他希望你来帮他计算出他最多可以得到多少经验值。
对于100%的数据1≤n≤1000,1≤t≤3000,1≤Ci≤t,Ai≤10^6
保证n>200的数据组数不超过五组，其他的数据组数不超过10组
保证每个人贡献的经验值到训练结束都不会变成负数
Input

第一行一个正整数T，表示数据组数
对于每组数据，第一行为两个正整数n和t，表示跟火神单挑的人的个数和火神的训练时间。
下面n行，每行三个正整数Ai,Bi,Ci，表示每个人的价值，含义见题目。

Output

对于每组数据输出一行一个整数表示火神最多能得到多少经验值

Sample Input

1
4 10
110 5 9
30 2 1
80 4 8
50 3 2

Sample Output

88

我们会发现除了每个人的价值是不定的之外，其余的就是01背包。
那么，该怎样确定每个人的顺序呢？很简单。
你手玩半天会发现，每个人的顺序只跟他的BI/CI有关，所以按照BI/CI从大到小排序，然后直接01背包就好了。
代码有点长。。我打的比较丑。。。

uses math;
var
        i,j,n,m,t,p,k,cas,x,ans:longint;
        a,b,c:array[0..10000]of longint;
        d:array[0..10000]of real;
        f:array[0..3000]of longint;
        bo:array[0..1000]of boolean;
        flag:boolean;
procedure qsort(l,r:longint);
var
        i,j,t:longint;
        m:real;
begin
        i:=l;
        j:=r;
        m:=d[(l+r)div 2];
        repeat
                while d[i]>m do inc(i);
                while d[j]<m do dec(j);
                if i<=j then
                begin
                        d[0]:=d[i];
                        d[i]:=d[j];
                        d[j]:=d[0];
                        a[0]:=a[i];
                        a[i]:=a[j];
                        a[j]:=a[0];
                        b[0]:=b[i];
                        b[i]:=b[j];
                        b[j]:=b[0];
                        c[0]:=c[i];
                        c[i]:=c[j];
                        c[j]:=c[0];
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if l<j then qsort(l,j);
        if i<r then qsort(i,r);
end;
begin
        read(cas);
        for k:=1 to cas do
        begin
                read(n,m);
                for i:=1 to n do
                begin
                        readln(a[i],b[i],c[i]);
                        d[i]:=b[i]/c[i];
                end;
                qsort(1,n);
                fillchar(f,sizeof(f),0);
                fillchar(bo,sizeof(bo),true);

                begin
                        for j:=1 to n do
                        for i:=m downto 0 do
                        if i-c[j]>=0 then
                        begin
                                f[i]:=max(f[i],f[i-c[j]]+a[j]-i*b[j]);
                        end;
                end;
                ans:=0;
                for i:=0 to m do ans:=max(ans,f[i]);
                writeln(ans);
        end;

end.