%%?---------------------------計(jì)算網(wǎng)絡(luò)效率-----------------------
clear;close?all;clc;
%%?計(jì)算距離矩陣
XY=xlsread（‘鄰接矩陣.xlsx‘‘坐標(biāo)‘‘A1:B130‘）;?%?坐標(biāo)
sj=xlsread（‘鄰接矩陣.xlsx‘‘鄰接矩陣‘）;?%?鄰接矩陣
n=length（sj）;?%?節(jié)點(diǎn)個(gè)數(shù)
D=zeros（n）;?%?建立初始化距離矩陣
d=zeros（n）;
for?i=1:n
????for?j=i+1:n??%?這里一定要是i+1，否則會(huì)得到錯(cuò)誤結(jié)果
????????d（ij）?=?sqrt（sum（（XY（i:）?-?XY（j:））.^2））;?%?計(jì)算任意兩點(diǎn)之間的距離
????????if?sj（ij）~=0
????????????D（ij）=d（ij）;?%?提取相連節(jié)點(diǎn)之間的距離
????????elseif?sj（ij）==0
????????????D（ij）=inf;?%?除對(duì)角線外，其它0元素都替換為inf
????????end
????end
end
D=D+D‘;?%?D為距離矩陣
%%?利用Floyed算法計(jì)算網(wǎng)絡(luò)節(jié)點(diǎn)之間的最短距離
path=zeros（n）;
for?k=1:n
????for?i=1:n
????????for?j=1:n
????????????if?D（ij）>D（ik）+D（kj）
????????????????D（ij）=D（ik）+D（kj）;
????????????????path（ij）=k;
????????????end
????????end
????end
end
%?對(duì)角線元素變?yōu)閕nf
for?i=1:n
????????????D（ii）=inf;
end
D;?%?D為i和j之間的最短距離矩陣

%%?計(jì)算網(wǎng)絡(luò)效率
for?i=1:n
????for?j=1:n
????????if?i~=j
????????????e=sum（sum（1./D））/（n*（n-1））;
????????end
????end
end

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件????????1086??2019-01-21?12:36??Distence.m