4、物流运输（trans.pas/c/cpp） 单源最短路+dp

 

4、物流运输（trans.pas/c/cpp）

    【问题描述】

    物流公司要把一批货物从码头A运到码头B。由于货物量比较大，需要n天才能运完。货物运输过程中一般要转停好几个码头。物流公司通常会设计一条固定的运输路线，以便对整个运输过程实施严格的管理和跟踪。由于各种因素的存在，有的时候某个码头会无法装卸货物。这时候就必须修改运输路线，让货物能够按时到达目的地。但是修改路线是—件十分麻烦的事情，会带来额外的成本。因此物流公司希望能够订一个n天的运输计划，使得总成本尽可能地小。

   【文件输入】

    第一行是四个整数n(l≤n≤100)、m(l≤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的运输路线。

   【文件输出】

    包括了一个整数表示最小的总成本。总成本=n天运输路线长度之和+K*改变运输路线的次数。

   【样例输入】

  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

   【样例输出】

  32

   【样例输入说明】

   上图依次表示第1至第5天的情况，阴影表示不可用的码头。

  【样例输出说明】

  前三天走1-4-5，后两天走1-3-5，这样总成本为(2+2)*3+(3+2)*2+10=32。

 

 【题目考点】单源最短路+dp。

 【题目分析】

 状态转移方程：f [i]=min{a(1,i)*i,f[j]+a(j+1,i)*(i-j)+k)  (1=<j≤i-1)。

 f [i]表示前i天的最小运费，a(x,y)表示从第x天到第y天从起点到终点的最短路，可以用bellman ford，dijkstra，SPFA……方程很好理解。

  第一种情况：1到j天都走一条路。

  第二种情况：j+l到i天走一条路（这条路记为路径1）。这个时候，不管前j天走的路径。

var f,dui:array[0..100] of int64;
a,a0:array[0..100,0..100] of int64;
b,c:array[0..100] of boolean;
v:array[0..100,0..100] of boolean;
n,m,i,j,k,l,r,p,sum:longint;
function min(x,y:longint):longint;
begin
 if x<y then exit(x);
 exit(y);
end;
procedure spfa;
var i,t,w,dx:longint;
begin
 for i:=1 to m do f[i]:=maxlongint div 100;//fuck
 f[1]:=0; c:=b; c[1]:=true; t:=0; w:=1;
 fillchar(dui,sizeof(dui),0); dui[1]:=1;
 while t<w do
  begin
   inc(t); dx:=dui[t];
   for i:=1 to m do
    if f[dx]+a[dx,i]<f[i] then
     begin
      f[i]:=f[dx]+a[dx,i];
      if not c[i] then
       begin
        inc(w); dui[w]:=i; c[i]:=true;
       end;
     end;
    c[dx]:=false;
  end;
 {for i:=1 to m do write(f[i],' ');
 writeln;}
end;
begin
 assign(input,'trans.in'); assign(output,'trans.out');
 reset(input); rewrite(output);
 readln(n,m,k,sum);
 for i:=1 to m do
  for j:=1 to m do
   a[i,j]:=maxlongint div 100;//fuck
 for i:=1 to sum do
  begin
   readln(l,r,a[l,r]);
   a[r,l]:=a[l,r];
  end;
 readln(sum);
 for i:=1 to sum do
  begin
   readln(p,l,r);
   for j:=l to r do
    v[j,p]:=true;
  end;
 for i:=1 to n do
  begin
   fillchar(b,sizeof(b),0);
   for j:=i to n do
    begin
     for p:=1 to m do
      if v[j,p] then b[p]:=true;
     spfa;
     a0[i,j]:=f[m];
    end;
  end;
 for i:=1 to n do
  begin
   f[i]:=a0[1,i]*i;//fuck
   for j:=0 to i-1 do
    f[i]:=min(f[i],f[j]+a0[j+1,i]*(i-j)+k);//fuck
  end;
 writeln(f[n]);
 close(input); close(output);
end.