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