树网的核
【问题描述】
设 T=(V, E, W) 是一个无圈且连通的无向图(也称为无根树),每条边带有正整数的权,我
们称T 为树网(treenetwork),其中V, E分别表示结点与边的集合,W 表示各边长度的集合,
并设T 有n个结点。
路径:树网中任何两结点a,b 都存在唯一的一条简单路径,用d(a,b)表示以a,b 为端点的
路径的长度,它是该路径上各边长度之和。我们称d(a,b)为a,b 两结点间的距离。
一点v到一条路径P的距离为该点与P 上的最近的结点的距离:
d(v,P)=min{d(v,u),u 为路径P 上的结点}。
树网的直径:树网中最长的路径称为树网的直径。对于给定的树网T,直径不一定是唯一的,
但可以证明:各直径的中点(不一定恰好是某个结点,可能在某条边的内部)是唯一的,我们称该
点为树网的中心。
偏心距 ECC(F):树网T 中距路径F 最远的结点到路径F 的距离,即
ECC(F ) = max{d(v, F ), vÎV}。
任务:对于给定的树网T=(V, E,W)和非负整数s,求一个路径F,它是某直径上的一段路径
(该路径两端均为树网中的结点),其长度不超过s(可以等于s),使偏心距ECC(F)最小。我们
称这个路径为树网T=(V,E,W)的核(Core)。必要时,F 可以退化为某个结点。一般来说,在上
述定义下,核不一定只有一个,但最小偏心距是唯一的。
下面的图给出了树网的一个实例。图中,A-B 与A-C是两条直径,长度均为20。点W是树网
的中心,EF边的长度为5。如果指定s=11,则树网的核为路径DEFG(也可以取为路径DEF),偏
心距为8。如果指定s=0(或s=1、s=2),则树网的核为结点F,偏心距为12。
输入输出
输入描述 Input Description
第1 行,两个正整数n和s,中间用一个空格隔开。其中n 为树网结点的个数,s为树网的核
的长度的上界。设结点编号依次为1, 2, …, n。
从第2 行到第n行,每行给出3 个用空格隔开的正整数,依次表示每一条边的两个端点编号和
长度。例如,“2 4 7”表示连接结点2 与4 的边的长度为7。
所给的数据都是正确的,不必检验。
输出描述 Output Description
输出只有一个非负整数,为指定意义下的最小偏心距
样例 Sample
样例输入 Sample Input
【输入样例1】
5 2
1 2 5
2 3 2
2 4 4
2 5 3
【输入样例2】
8 6
1 3 2
2 3 2
3 4 6
4 5 3
4 6 4
4 7 2
7 8 3
样例输出 Sample Output
【输出样例1】
5
【输出样例1】
5
数据范围及提示 Data Size & Hint
【限制】
40%的数据满足:5<=n<=15
70%的数据满足:5<=n<=80
100%的数据满足:5<=n<=300, 0<=s<=1000。边长度为不超过1000 的正整数
分析
由于数据范围很小,所以直接水过,两遍BFS求出直径,因为是树,所以路径只有一条,直接枚举端点就过了。。。
代码如下
program core;
var k,i,j,n,s,x,y,z,maxn,maxj,minx,st,ed,temp,minn,p:longint;
map:array[1..300,1..300] of longint;
diameter:array[0..1000] of longint;
queue:array[1..10000] of record
s,v:longint;
father:longint;
end;
visited:array[1..300] of boolean;
ref:array[1..300] of integer;
function max(a,b:longint):longint;
begin
if a>b then exit(a);
exit(b);
end;
function min(a,b:longint):longint;
begin
if a<b then exit(a);
exit(b);
end;
procedure bfs(st:longint);
var i,head,rear:longint;
begin
head:=1;
rear:=1;
queue[head].s:=st;
queue[head].v:=0;
queue[head].father:=-1;
visited[st]:=true;
while head<=rear do
begin
for i:=1 to n do
begin
if (map[queue[head].s,i]<>maxlongint div 2) and (not visited[i])
then
begin
inc(rear);
queue[rear].s:=i;
queue[rear].v:=queue[head].v+map[queue[head].s,i];
if queue[rear].v>maxn
then
begin
maxn:=queue[rear].v;
maxj:=rear;
end;
queue[rear].father:=head;
visited[queue[rear].s]:=true;;
end;
end;
inc(head);
end;
end;
begin
readln(n,s);
for i:=1 to n do
for j:=1 to n do
map[i,j]:=maxlongint div 2;
for i:=1 to n-1 do
begin
readln(x,y,z);
map[x,y]:=z;
map[y,x]:=z;
end;
fillchar(visited,sizeof(visited),false);
bfs(1);
st:=queue[maxj].s;
maxn:=-maxlongint;
fillchar(visited,sizeof(visited),false);
bfs(st);
for i:=1 to n do ref[i]:=-1;
while queue[maxj].father<>-1 do
begin
inc(diameter[0]);
diameter[diameter[0]]:=queue[maxj].s;
ref[queue[maxj].s]:=diameter[0];
maxj:=queue[maxj].father;
end;
inc(diameter[0]);
diameter[diameter[0]]:=queue[maxj].s;
ref[queue[maxj].s]:=diameter[0];
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
begin
if (i<>j) and (map[i,j]>map[i,k]+map[k,j])
then
map[i,j]:=map[i,k]+map[k,j];
end;
minx:=maxlongint;
for i:=1 to n do map[i,i]:=0;
for i:=1 to diameter[0] do
for j:=1 to diameter[0] do
begin
if map[diameter[i],diameter[j]]<=s
then
begin
st:=ref[diameter[i]];
ed:=ref[diameter[j]];
if st>ed
then
begin
temp:=st;
st:=ed;
ed:=temp;
end;
maxn:=-maxlongint;
for k:=1 to n do
begin
if (ref[k]<st) or (ref[k]>ed)
then
begin
minn:=maxlongint;
for p:=st to ed do
begin
minn:=min(minn,map[k,diameter[p]]);
end;
maxn:=max(maxn,minn);
end;
end;
minx:=min(minx,maxn);
end;
end;
write(minx);
end.
测试结果
测试点#core1.in 结果:AC 内存使用量: 256kB 时间使用量: 0ms
测试点#core10.in 结果:AC 内存使用量: 256kB 时间使用量: 0ms
测试点#core2.in 结果:AC 内存使用量: 256kB 时间使用量: 0ms
测试点#core3.in 结果:AC 内存使用量: 256kB 时间使用量: 0ms
测试点#core4.in 结果:AC 内存使用量: 256kB 时间使用量: 1ms
测试点#core5.in 结果:AC 内存使用量: 256kB 时间使用量: 0ms
测试点#core6.in 结果:AC 内存使用量: 256kB 时间使用量: 2ms
测试点#core7.in 结果:AC 内存使用量: 492kB 时间使用量: 254ms
测试点#core8.in 结果:AC 内存使用量: 492kB 时间使用量: 244ms
测试点#core9.in 结果:AC 内存使用量: 624kB 时间使用量: 100ms