fun_d.m

无标度网络的生成模型

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 功能：计算网路直径
%% 输入：距离矩阵；输出：网络直径
%%By Xiao Lp, 2007-07-07
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function [d] = Fun_D( Mat_Distance)

Int_Nodes = size(Mat_Distance, 1);

Temp = 0;

for j= 1: Int_Nodes
    for i  = j : Int_Nodes
        Temp = Temp + Mat_Distance ( i, j);
    end
end

d = 2*Temp/(Int_Nodes*(Int_Nodes+1));