学步园

[ZJOI2006]物流运输trans

Time Limit: 10 Sec  Memory Limit: 162 MB
Submit: 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

Sample Output

Sample Output
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.