ZJOI2006 物流运输 trans
[ZJOI2006]物流运输trans
Time Limit: 10 Sec Memory Limit: 162 MBSubmit: 540 Solved: 212
[ Submit][ Status][ Discuss]
Description
物流公司要把一批货物从码头A运到码头B。由于货物量比较大，需要n天才能运完。货物运输过程中一般要转停好几个码头。物流公司通常会设计一条固定的运输路线，以便对整个运输过程实施严格的管理和跟踪。由于各种因素的存在，有的时候某个码头会无法装卸货物。这时候就必须修改运输路线，让货物能够按时到达目的地。但是修改路线是一件十分麻烦的事情，会带来额外的成本。因此物流公司希望能够订一个n天的运输计划，使得总成本尽可能地小。
Input
第一行是四个整数n（1<=n<=100）、m（1<=m<=20）、K和e。n表示货物运输所需天数，m表示码头总数，K表示每次修改运输路线所需成本。接下来e行每行是一条航线描述，包括了三个整数，依次表示航线连接的两个码头编号以及航线长度（>0）。其中码头A编号为1，码头B编号为m。单位长度的运输费用为1。航线是双向的。 再接下来一行是一个整数d，后面的d行每行是三个整数P（ 1
< P
< m）、a、b（1
< = a
< = b
< = n）。表示编号为P的码头从第a天到第b天无法装卸货物（含头尾）。同一个码头有可能在多个时间段内不可用。但任何时间都存在至少一条从码头A到码头B的运输路线。
Output
包括了一个整数表示最小的总成本。总成本=n天运输路线长度之和+K*改变运输路线的次数。
Sample Input
5 5 10 8
1 2 1
1 3 3
1 4 2
2 3 2
2 4 4
3 4 1
3 5 2
4 5 2
4
2 2 3
3 1 1
3 3 3
4 4 5
1 2 1
1 3 3
1 4 2
2 3 2
2 4 4
3 4 1
3 5 2
4 5 2
4
2 2 3
3 1 1
3 3 3
4 4 5
Sample Output
Sample Output
32
32
注：一道简单的动态规划和最短路的结合，只要求出第i天到第j天除去不能用的节点后的最短路程，然后简单的转移就可以了。注意初值要赋的大一点。
var
a,c:array[0..102,0..102] of longint;
v:array[0..102] of boolean;
d,f:array[0..102] of longint;
js,i,j,k,m,n,x,y,w,e:longint;
function dij(x,y:longint):longint;
var
i,j,max,k:longint;
begin
fillchar(v,sizeof(v),0);
for i:=1 to n do d[i]:=maxlongint;
d[1]:=0;
for i:=x to y do
for j:=1 to c[i,0] do
v[c[i,j]]:=true;
for i:=1 to n-1 do
begin
max:=maxlongint;
for j:=1 to n do
if (not v[j])and(d[j]<max) then
begin
k:=j;
max:=d[j];
end;
v[k]:=true;
for j:=1 to n do
if d[j]>d[k]+a[k,j] then
d[j]:=d[k]+a[k,j];
end;
exit(d[n]);
end;
begin
readln(m,n,k,e);
fillchar(a,sizeof(a),10);
fillchar(f,sizeof(f),10);
f[0]:=0;
for i:=1 to n do a[i,i]:=0;
for i:=1 to e do
begin
readln(x,y,w);
if w<a[x,y] then
begin
a[x,y]:=w;
a[y,x]:=w;
end;
end;
readln(j);
for i:=1 to j do
begin
readln(x,y,w);
for js:=y to w do
begin
inc(c[js,0]);
c[js,c[js,0]]:=x;
end;
end;
for i:=1 to m do
begin
f[i]:=maxlongint;
for j:=0 to i-1 do
begin
w:=dij(j+1,i);
if w=maxlongint then continue;
if f[i]>f[j]+w*(i-j)+k then f[i]:=f[j]+w*(i-j)+k;
end;
end;
writeln(f[m]-k);
end.