BA无标度网络，WS小世界，随机图matlab实现

BA无标度网络，WS小世界，随机图matlab实现

function aver_path=aver_pathlength（A）
long=length（A）;
D=A;
D（find（D==0））=inf;
for i=1:long
    D（ii）=0;
end
for k=1:long
    for i=1:long
        for j=1:long
            D（ij）=min（D（ij）D（ik）+D（kj））;
        end
    end
end
 
 
 pathlength=0;
 aver_path=sum（sum（D））/（long*（long+1））;

 if aver_path==inf
     disp（‘该图不是连通图‘）;
 end
 
 
         

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        380  2011-04-28 20:27  复杂网络\aver_pathlength.m

     文件       1912  2011-04-28 20:15  复杂网络\ba_net.m

     文件        426  2011-04-29 18:33  复杂网络\degree_distribution.m

     文件       1047  2011-04-28 21:07  复杂网络\nw_net.m

     文件       1407  2011-04-28 20:20  复杂网络\ws_net.m

     目录          0  2011-05-07 10:05  复杂网络

----------- ---------  ---------- -----  ----

                 5172                    6