【NOIP提高A组模拟】艾比所特

Description

阿良良木历将要迎来人生（不，是吸血鬼生涯）的第二次战斗——与身为人类和吸血鬼混血儿的艾比所特在直江津高中的操场solo，以取回Heartunderblade的左脚。
艾比所特个子不大，却单手扛着一副形状比自己大三倍，重量是他体重乘三次方的巨大十字架。吸血鬼是怕十字架的，所以历要远远地躲着。更麻烦的是艾比所特能变成雾气，历攻击不到他，他却因为是混血儿，吸血鬼的弱点降到了mininum，可以碰十字架。直到历用沙子使艾比所特显形，历才获得胜利。
可以把直江津高中的操场看成排成一条直线的n个点，其中第i个点位于数轴上的位置x[i]。如果从i跳到j，首先要花费时间|x[j]-x[i]|。假如i

Solution

题目模型其实就是走简单环，即每个点只有1的出度和入度，问题就是找权值最大的简单环。
不得不承认自己语文不好，题意理解错了，原意是找若干个简单环，可我却理解成只能找到一个最大简单环，所以在赛场上爆零了。
设$f_{i,j,k}$，i表示当前做了i个位置，j表示有j个位置是不确定出边的（即连出的点编号大于当前位置i），k表示有k个位置是不确定入边的（定义同上），根据出入边情况推导出四种情况。

1. i前方的点走到i后，再走向i前方。则$f_{i,j,k}+x_i+x_i+a_i+c_i——>f_{i+1,j-1,k-1}$
2. i前方的点走到i后，再走向i后方。则$f_{i,j,k}+a_i+d_i——>f_{i+1,j,k}$
3. i后方的点走到i后，再走向i前方。则$f_{i,j,k}+b_i+c_i——>f_{i+1,j,k}$
4. i后方的点走到i后，再走向i后方。则$f_{i,j,k}-x_i-x_i+d_i+b_i——>f_{i+1,j+1,k+1}$

所犯错误

1. 调试的时候把递推方程调整位置后没有调回。
2. 调试的时候把数组规模改变后没有调回。

Code

var
    s,a,b,c,d:array[1..5005] of int64;
    f:array[0..5005,0..5005] of int64;
    n,i,j:longint;
    ans:int64;
function max(x,y:int64):int64;
begin
    if x>y then exit(x) else exit(y);
end;
begin
    readln(n);
    for i:=1 to n do for j:=0 to n do f[i,j]:=-maxlongint;
    for i:=1 to n do read(s[i]);
    for i:=1 to n do read(a[i]);
    for i:=1 to n do read(b[i]);
    for i:=1 to n do read(c[i]);
    for i:=1 to n do read(d[i]);
    f[1,0]:=0;
    for i:=1 to n do
        for j:=0 to i do
        if f[i,j]<>-maxlongint then
        begin
            if j>0 then
            begin
                f[i+1,j-1]:=max(f[i+1,j-1],f[i,j]+2*s[i]+a[i]+c[i]);
                f[i+1,j]:=max(f[i+1,j],f[i,j]+a[i]+d[i]);
                f[i+1,j]:=max(f[i+1,j],f[i,j]+b[i]+c[i]);
            end;
            f[i+1,j+1]:=max(f[i+1,j+1],f[i,j]-2*s[i]+b[i]+d[i]);
        end;
    writeln(f[n+1,0]);
end.