复杂网络建模 社交网络图的一些计算代码（不全欢迎补充）MATLAB



function [C,aver_C,max_C,min_C]=Clustering(A)
%%求聚类系数
%A--------------邻接矩阵
%C--------------聚类系数
%aver_C---------整个网络图的平均聚类系数
A=xlsread('name.xls');
%A=xlsread('hometown.xls');
%A=xlsread('dialect.xls');

N=size(A,2);
C=zeros(1,N);
for i=1:N
    a=find(A(i,:)==1); %寻找子图的邻居节点
    b=find(A(:,i)==1);
    m=union(a,b');
    k=length(m);
    if k==1
        disp(['第',int2str(i),'个节点只有一个邻居节点，其聚类系数为0']);
        C(i)=0;
    else
        B=A(m,m);
        C(i)=length(find(B==1))/(k*(k-1));
    end
end
aver_C=mean(C);
max_C=max(C);
n=find(C==0);
a=C;
a(n)=inf;
min_C=min(a);
figure;
bar([1:N],C);
xlabel('学生节点编号');
ylabel('各节点的聚类系数K');
title('knowing someone name节点的聚类系数分布图');

//求点的聚类系数

%计算图的core
function cores=coreness(graphmat)
graphmat=xlsread('name.xls');