Codevs P1655 物流运输_starlight 物流-CSDN博客

本文链接：https://blog.csdn.net/xuxianbo123/article/details/49205371

Codevs P1655 物流运输

题目描述 Description

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

输入输出

输入描述 Input Description

第一行是四个整数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 Description

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

样例 Sample

样例输入 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

数据范围及提示 Data Size & Hint

【样例输入说明】

图片请自行去网上找
上图依次表示第1至第5天的情况，阴影表示不可用的码头

【样例输出说明】

前三天走1-4-5，后两天走1-3-5，这样总成本为（2＋2）*3＋（3＋2）*2＋10＝32。

资料

解题报告

分析

该题求最短路可以采用最短路的算法。而由于不断地更改路线，求最小代价是求最优问题。该问题可以拆成多个子问题——即只要每天最优，那么一定最后最优，而每天最优情况是相同的，即每天更改路线还是路线不变，由此我们可以动态规划方程，以f[i]表示从第1天到第i天的最小代价，显然（一点也不显然/(ㄒoㄒ)/~~）代价为从第1天到第i天不更改路线，和从第1天先到第j天，再由第j天到第i天，其中改变一次路线的代价的较小值
time[j,i]表示从第j天到第i天的最短路线
cost表示变更一次路线的代价
那么 f[i]:=min(f[i],f[j-1]+time[j,i]*（i-j+1）+cost)
当j=1时后面表示从第1天到第i天都走同一条道路，当j<>1时表示在第j天更改路线
因为第一天其实不用调整路线而加上了调整路线的值，所以最后要减去一个调整值。
求最短路线自己愿用啥用啥。

代码如下

program p1655;
type point=^rec;
     rec=record
      e,v:longint;
      s:point;
     end;
     heaptype=record
      dist,doe:longint;
     end;
var vertex:array[1..20] of point;
    day,n,cost,way,i,j,s,e,v,stop:longint;
    heap:array[1..20] of heaptype;
    ref:array[1..20] of integer;
    ban:array[1..100,0..100] of longint;
    visited:array[1..20] of boolean;
    time:array[1..20,1..20] of longint;
    f:array[0..100] of longint;
function min(a,b:longint):longint;
begin
 if a<b then exit(a);
 exit(b);
end;
procedure insert(s,e,v:longint);
var p:point;
begin
 new(p);
 p^.e:=e;
 p^.v:=v;
 p^.s:=vertex[s];
 vertex[s]:=p;
end;

procedure swap(i,j:longint);
var temp:heaptype;
begin
 temp:=heap[i];
 heap[i]:=heap[j];
 heap[j]:=temp;
 ref[heap[i].doe]:=i;
 ref[heap[j].doe]:=j;
end;
procedure go_up(st,j:longint);
var i:longint;
begin
 while (j>>1)>=st do
  begin
   i:=j>>1;
   if heap[i].dist>heap[j].dist
    then
     begin
      swap(i,j);
      j:=i;
     end
    else
     break;
  end;
end;
procedure go_down(i,ed:longint);
var j:longint;
begin
 while (i<<1)<=ed do
  begin
   j:=i<<1;
   if (j<ed) and (heap[j].dist>heap[j+1].dist) then j:=j+1;
   if heap[i].dist>heap[j].dist
    then
     begin
      swap(i,j);
      i:=j;
     end
    else
     break;
  end;
end;
function dijkstra:longint;
var total,i,j:longint;
    p:point;
begin
 total:=n;
 for i:=1 to n do
  begin
   heap[i].dist:=maxlongint;
   heap[i].doe:=i;
   ref[i]:=i;
  end;
 heap[1].dist:=0;
 go_up(1,1);
 while (heap[1].dist<>maxlongint) and (not visited[n]) and (total>0) do
  begin
   p:=vertex[heap[1].doe];
   while p<>nil do
    begin
     if (not visited[p^.e]) and (heap[ref[p^.e]].dist>heap[1].dist+p^.v)
      then
       begin
        heap[ref[p^.e]].dist:=heap[1].dist+p^.v;
        go_up(1,ref[p^.e]);
      end;
      p:=p^.s;
    end;
   visited[heap[1].doe]:=true;
   swap(1,total);
   total:=total-1;
   go_down(1,total);
  end;
 exit(heap[ref[n]].dist);
end;

procedure solve;
var i,j,k,p:longint;
begin
 fillchar(time,sizeof(time),0);
 for i:=1 to day do
  for j:=i to day do
   begin
    fillchar(visited,sizeof(visited),false);
    for k:=i to j do
     begin
      for p:=1 to ban[k,0] do
       begin
        visited[ban[k,p]]:=true;
       end;
     end;
    time[i,j]:=dijkstra;
   end;
 for i:=1 to day do
  begin
   f[i]:=maxlongint;
   for j:=1 to i do
    begin
     if time[j,i]=maxlongint then continue;
     f[i]:=min(f[i],f[j-1]+time[j,i]*(i-j+1)+cost);
    end;
  end;
 write(f[day]-cost);
end;

begin
 readln(day,n,cost,way);
 for i:=1 to way do
  begin
   readln(s,e,v);
   insert(s,e,v);
   insert(e,s,v);
  end;
 readln(stop);
 fillchar(ban,sizeof(ban),0);
 for i:=1 to stop do
  begin
   readln(v,s,e);
   for j:=s to e do
    begin
     inc(ban[j,0]);
     ban[j,ban[j,0]]:=v;
    end;
  end;
 solve;
end.

评测结果

测试通过 Accepted

总耗时: 35 ms
0 / 0 数据通过测试.
运行结果
测试点#trans0.in 结果:AC 内存使用量: 364kB 时间使用量: 1ms
测试点#trans1.in 结果:AC 内存使用量: 364kB 时间使用量: 1ms
测试点#trans2.in 结果:AC 内存使用量: 368kB 时间使用量: 1ms
测试点#trans3.in 结果:AC 内存使用量: 364kB 时间使用量: 1ms
测试点#trans4.in 结果:AC 内存使用量: 364kB 时间使用量: 3ms
测试点#trans5.in 结果:AC 内存使用量: 368kB 时间使用量: 3ms
测试点#trans6.in 结果:AC 内存使用量: 256kB 时间使用量: 2ms
测试点#trans7.in 结果:AC 内存使用量: 256kB 时间使用量: 7ms
测试点#trans8.in 结果:AC 内存使用量: 364kB 时间使用量: 7ms
测试点#trans9.in 结果:AC 内存使用量: 368kB 时间使用量: 9ms

世界总是残酷

这里写图片描述

理想

 ——流沙河

理想是石，敲出星星之火；
理想是火，点燃熄灭的灯；
理想是灯，照亮夜行的路；
理想是路，引你走到黎明。
饥寒的年代里，理想是温饱；
温饱的年代里，理想是文明。
离乱的年代里，理想是安定。
安定的年代里，理想是繁荣。
理想如珍珠，一颗缀连着一颗，
贯古今，串未来，莹莹光无尽。
美丽的珍珠链，历史的脊梁骨，
古照今，今照来，先辈照子孙。
理想是罗盘，给船舶导引方向；
理想是船舶，载着你出海远行。
但理想有时候又是海天相吻的弧线，
可望不可即，折磨着你那进取的心。
理想使你微笑地观察着生活；
理想使你倔强地反抗着命运。
理想使你忘记鬓发早白；
理想使你头白仍然天真。
理想是闹钟，敲碎你的黄金梦；
理想是肥皂，洗濯你的自私心。
理想既是一种获得，
理想又是一种牺牲。
理想如果给你带来荣誉，
那只不过是它的副产品，
而更多的是带来被误解的寂寥，
寂寥里的欢笑，欢笑里的酸辛。
理想使忠厚者常遭不幸；
理想使不幸者绝处逢生。
平凡的人因有理想而伟大；
有理想者就是一个“大写的人”。
世界上总有人抛弃了理想，
理想却从来不抛弃任何人。
给罪人新生，理想是还魂的仙草；
唤浪子回头，理想是慈爱的母亲。
理想被玷污了，不必怨恨，
那是妖魔在考验你的坚贞；
理想被扒窃了，不必哭泣，
快去找回来，以后要当心！
英雄失去理想，蜕作庸人，
可厌地夸耀着当年的功勋；
庸人失去理想，碌碌终生，
可笑地诅咒着眼前的环境。
理想开花，桃李要结甜果；
理想抽芽，榆杨会有浓阴。
请乘理想之马，挥鞭从此起程，
路上春色正好，天上太阳正晴。

这里写图片描述