function [DeD]=DegreeDistribution(A)
%% 求网络图中各节点的度及度的分布曲线
%A————————网络图的邻接矩阵
%DeD————————网络图各节点的度分布
N=size(A,2);
DeD=zeros(1,N);
for i=1:N
% DeD(i)=length(find((A(i,:)==1)));
DeD(i)=sum(A(i,:));
end
if sum(DeD)==0
disp('该网络图只是由一些孤立点组成');
return;
else
figure;
M=max(DeD);
for i=1:M+1; %网络图中节点的度数最大为M,但要同时考虑到度为0的节点的存在性
N_DeD(i)=length(find(DeD==i-1));
end
end
scatter([0:M], N_DeD,'r');
xlabel('节点的度 K');
ylabel('节点度为K的个数');
title('网络图中节点度的分布图');