复杂网络matlab经典算法

用matlab所写的复杂网络所用的经典算法，如BA无标度网络，ER随机网络，WS小世界网络和NS小世界网络，以及最近邻耦合网络等matlab算法，可以修改参数，可以绘制复杂网络图形。在matlab中直接可运行。

m0=input（‘未增长前的网络节点个数m0:‘）;
m=input（‘每次引入的新节点时新生成的边数m:‘）;
N=input（‘增长后的网络规模N：‘）;
disp（‘初始网络m0个节点的连接选择：1节点均孤立；2，节点间构成完全图；3随机连接一些边‘）;
pp=input（‘初始化网络情况1，2，3：‘）;
if m>m0
    disp（‘输入参数m输入不合法‘）;
    return;
end
x=100*rand（1m0）;
y=100*rand（1m0）;
switch pp
    case 1
        A=zeros（m0）;
    case 2
        A=ones（m0）;
        for i=1:m0
            A（ii）=0;
        end
    case 3
        for i=1:m0
            for j=i+1:m0
                p1=rand（11）;
                if p1>0.5
                    A（ij）=1;
                    A（ji）=0;
                end
            end
        end
    otherwise
        disp（‘输入的参数pp不合法‘）;
        return;
end


for k=m0+1:N
    M=size（A1）;p=zeros（1M）;x0=100*rand（11）;y0=100*rand（11）;
    
    x（k）=x0;y（k）=y0;
    if length（find（A==1））==0
        p（:）=1/M;
    else
        for i=1:M
            p（i）=length（A（i:）==1）/length（find（A==1））;
        end
    end
    pp=cumsum（p）;
    
    for i=1:m
        random_data=rand（11）;
        random_data
        aa=find（pp>=random_data）;jj=aa（1）;
        
        A（kjj）=1;
        A（jjk）=1;
    end
end
plot（xy‘ro‘‘MarkerEdgeColor‘‘g‘‘MarkerFaceColor‘‘r‘‘MarkerSize‘8）;
hold on;
for i=1:N
    for j=i+1:N
        if A（ij）~=0;
            plot（[x（i）x（j）][y（i）y（j）]‘linewidth‘1.2）;
            hold on;
        end
    end
end
axis equal;hold off
        

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

     文件       1524  2014-05-09 23:25  复杂网络matlab经典算法\BA.m

     文件        518  2014-05-10 00:29  复杂网络matlab经典算法\ER.m

     文件        589  2014-05-10 00:10  复杂网络matlab经典算法\ER_1.m

     文件        878  2014-05-08 11:09  复杂网络matlab经典算法\NW.m

     文件       1053  2014-05-07 22:26  复杂网络matlab经典算法\WS.m

     文件        643  2014-05-07 13:25  复杂网络matlab经典算法\zjl.m

     目录          0  2014-05-10 09:05  复杂网络matlab经典算法

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

                 5205                    7