社交网络
【问题描述】
在社交网络（social network）的研究中，我们常常使用图论概念去解释一些社会现象。
不妨看这样的一个问题。在一个社交圈子里有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)有意义，我们规定需要处理的社交网络都是连通的无向图，即任意两个结点之间都有一条有限长度的最短路径。
现在给出这样一幅描述社交网络的加权无向图，请你求出每一个结点的重要程度。
【输入格式】
这是一道提交答案型试题，所有的输入文件 net1.in~net10.in 已在相应目录下。
输入文件net*.in中第一行有两个整数，n 和m，表示社交网络中结点和无向边的数目。在无向图中，我们将所有结点从1 到n 进行编号。
接下来 m 行，每行用三个整数a, b, c 描述一条连接结点a 和b，权值为c 的无向边。注意任意两个结点之间最多有一条无向边相连，无向图中也不会出现自环（即不存在一条无向边的两个端点是相同的结点）。
【输出格式】
输出文件net*.out包括n 行，每行一个实数，精确到小数点后3 位。第i 行的实数表示结点i 在社交网络中的重要程度。
【输入样例】
4 4
1 2 1
2 3 1
3 4 1
4 1 1
【输出样例】
1.000
1.000
1.000
1.000
【样例说明】
社交网络如下图所示。
对于 1 号结点而言，只有2 号到4 号结点和4 号到2 号结点的最短路经过1号结点，而2 号结点和4 号结点之间的最短路又有2 条。因而根据定义，1 号结点的重要程度计算为。由于图的对称性，其他三个结点的重要程度也都是 1。
【评分方法】
本题没有部分分，仅当你的程序计算得出的各个结点的重要程度与标准输出相差不超过0.001时，才能得到测试点的满分，否则不得分。
【数据规模和约定】
50%的数据中：n ≤ 10，m ≤ 45
100%的数据中：n ≤ 100，m ≤ 4 500，任意一条边的权值c 是正整数，满足：1 ≤ c ≤ 1 000。
所有数据中保证给出的无向图连通，且任意两个结点之间的最短路径数目不超过1010。
分析：说白了，这题唯一比较有挑战性的地方，就是求任意两点间最短路的条数。
这里说一个很没有节操的方法：
floyd 都会吧，好，那接着说，不会的 google 。
转移的时候增加一下路径的转移：
if a[i,k]+a[k,j]<a[i,j] then
a[i,j]:=......
f[i,j]:=f[i,k]*f[k,j]; //f 是最短路径的条数，这个的来源是乘法原理。
else
if a[i,k]+a[k,j]=a[i,j] then f[i,j]:=f[i,j]+a[i,k]*a[k,j]; //这个是加法原理。
然后，枚举每两个点，直接计算重要程度就可以了。。。。。
代码：SueMiller
program ACRush;
var a:array[0..101,0..101]of longint;
f:array[0..101,0..101]of int64;
v:array[0..101]of double;
n,m,x,y,z,i,j,k:longint;
begin
// assign(input,'net.in');reset(input);
// assign(output,'net.out');rewrite(output);
readln(n,m);
filldword(a,sizeof(a)>>2,maxlongint>>2);
for i:=1 to m do
begin
readln(x,y,z);
a[x,y]:=z;
a[y,x]:=z;
f[x,y]:=1;
f[y,x]:=1;
end;
for k:=1 to n do
for i:=1 to n do
if i<>k then
for j:=1 to n do
if (i<>k) and (j<>k) then
if a[i,k]+a[k,j]<a[i,j] then
begin
a[i,j]:=a[i,k]+a[k,j];
f[i,j]:=f[i,k]*f[k,j];
end
else
if a[i,k]+a[k,j]=a[i,j] then
f[i,j]:=f[i,j]+f[i,k]*f[k,j];
for k:=1 to n do
begin
for i:=1 to n do
if i<>k then
for j:=1 to n do
if (i<>j) and (k<>j) then
begin
if (a[i,k]+a[k,j]<>a[i,j]) then continue;
if f[i,j]=0 then continue;
v[k]:=v[k]+(f[i,k]*f[k,j])/f[i,j];
// writeln(' ',i,' ',j,' ',k);
// writeln(f[i,k],' ',f[k,j],' ',f[i,j]);
end;
writeln(v[k]:0:3);
end;
// close(input);close(output);
end.