bzoj 1491 1491: [NOI2007]社交网络 最短路

Description

在社交网络(socialnetwork)的研究中,我们常常使用图论概念去解释一些社会现象。不妨看这样的一个问题。
在一个社交圈子里有n个人,人与人之间有不同程度的关系。我们将这个关系网络对应到一个n个结点的无向图上,
两个不同的人若互相认识,则在他们对应的结点之间连接一条无向边,并附上一个正数权值c,c越小,表示两个人
之间的关系越密切。我们可以用对应结点之间的最短路长度来衡量两个人s和t之间的关系密切程度,注意到最短路
径上的其他结点为s和t的联系提供了某种便利,即这些结点对于s和t之间的联系有一定的重要程度。我们可以通过
统计经过一个结点v的最短路径的数目来衡量该结点在社交网络中的重要程度。考虑到两个结点A和B之间可能会有
多条最短路径。我们修改重要程度的定义如下:令Cs,t表示从s到t的不同的最短路的数目,Cs,t(v)表示经过v从s
到t的最短路的数目;则定义
为结点v在社交网络中的重要程度。为了使I(v)和Cs,t(v)有意义,我们规定需要处理的社交网络都是连通的无向图
,即任意两个结点之间都有一条有限长度的最短路径。现在给出这样一幅描述社交网络的加权无向图,请你求出每
一个结点的重要程度。

Input

输入第一行有两个整数n和m,表示社交网络中结点和无向边的数目。在无向图中,我们将所有结点从1到n进行编号
。接下来m行,每行用三个整数a,b,c描述一条连接结点a和b,权值为c的无向边。注意任意两个结点之间最多有
一条无向边相连,无向图中也不会出现自环(即不存在一条无向边的两个端点是相同的结点)。n≤100;m≤4500 
,任意一条边的权值 c 是正整数,满足:1≤c≤1000。所有数据中保证给出的无向图连通,且任意两个结点之间
的最短路径数目不超过 10^10

Output

输出包括n行,每行一个实数,精确到小数点后3位。第i行的实数表示结点i在社交网络中的重要程度。

Sample Input

4 4
1 2 1
2 3 1
3 4 1
4 1 1

Sample Output

1.000
1.000
1.000
1.000

HINT

社交网络如下图所示。


bzoj 1491 1491: [NOI2007]社交网络 最短路_第1张图片


对于 1 号结点而言,只有 2 号到 4 号结点和 4 号到 2 号结点的最短路经过 1 号结点,而 2 号结点和 4 号结

点之间的最短路又有 2 条。因而根据定义,1 号结点的重要程度计算为 1/2 + 1/2 = 1 。由于图的对称性,其他

三个结点的重要程度也都是 1 。


分析:首先用floyd统计出任意两点间x,y的最短路径a[x,y]。

然后我们要统计出任意两点间x,y的最短路径数f[x,y]。我用的方法是跑了n次dijkstra,每次统计出一个点到其他点的对短路径数。具体就是每次找到一个与起点s距离最小的点u,然后遍历与该点相连的所有的边(注意一定是读入的边),若某个点x满足a[s,u]+w[u,x]=a[s,x]也就是该边是某条s到x的对短路的边,那么f[s,x]:=f[s,x]+f[s,u]

然后就是统计答案了。
对于一个点k,若满足a[i,k]+a[k,j]=a[i,j]也就是k是i到j某条最短路上的点,那么点k经过i和j的最短路径的条数就是f[i,k]*f[k,j]


PS.好久没有像这样一次AC过了!!!>_<

代码:
const
  maxn=100;
  maxm=4500;

var
  f,a:array[1..maxn,1..maxn] of int64;
  side:array[1..maxm*2] of record
    x,y,z,next:longint;
  end;
  v:array[1..maxn] of boolean;
  last:array[1..maxn] of longint;
  e,n,m:longint;
  ans:array[1..maxn] of real;

procedure add(x,y,z:longint);
begin
  inc(e);
  side[e].x:=x; side[e].y:=y; side[e].z:=z;
  side[e].next:=last[x]; last[x]:=e;
  inc(e);
  side[e].x:=y; side[e].y:=x; side[e].z:=z;
  side[e].next:=last[y]; last[y]:=e;
end;

procedure init;
var
  i,x,y,z,j:longint;
begin
  readln(n,m);
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=1 shl 40;
  for i:=1 to n do
    a[i,i]:=0;
  for i:=1 to m do
  begin
    readln(x,y,z);
    add(x,y,z);
    a[x,y]:=z;
    a[y,x]:=z;
  end;
end;

procedure floyd;
var
  i,j,k:longint;
begin
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        if a[i,k]+a[k,j]<a[i,j] then
          a[i,j]:=a[i,k]+a[k,j];
end;

procedure dijkstra(s:longint);
var
  min,u,i:longint;
begin
  f[s,s]:=1;
  fillchar(v,sizeof(v),true);
  repeat
    u:=0;
    min:=maxlongint;
    for i:=1 to n do
      if (v[i])and(a[s,i]<min) then
      begin
        min:=a[s,i];
        u:=i;
      end;
    if u>0 then
    begin
      v[u]:=false;
      i:=last[u];
      while i>0 do
        with side[i] do
        begin
          if (v[y])and(a[s,x]+z=a[s,y]) then
            f[s,y]:=f[s,y]+f[s,x];
          i:=next;
        end;
    end;
  until u=0;
end;

procedure count;
var
  i,j,k:longint;
begin
  fillchar(ans,sizeof(ans),0);
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        if (f[i,j]>0)and(i<>k)and(j<>k)and(i<>j)and(a[i,k]+a[k,j]=a[i,j]) then
          ans[k]:=ans[k]+f[i,k]*f[k,j]/f[i,j];
  for i:=1 to n do
    writeln(ans[i]:0:3);
end;

procedure main;
var
  i:longint;
begin
  floyd;
  for i:=1 to n do
    dijkstra(i);
  count;
end;

begin
  init;
  main;
end.


你可能感兴趣的:(bzoj 1491 1491: [NOI2007]社交网络 最短路)