关于网络的鲁棒性研究

这是关于scale-free网络的鲁棒性研究的一点程序，，但还不是很完善

function [b]=scalefree（nimde）
b=zeros（m1）;
dp=zeros（ni+11）;
sk=0;
for i=1:ni
    sk=sk+de（i）;
end
dp（11）=0;
for i=1:ni
    dp（i+11）=dp（i1）+de（i1）;
end
is=1;
while is<=m 
r=rand（11）;
r=fix（r*sk+1）;
    for i=1:ni
        if r>dp（i1）&r<=dp（i+11）
            it=i;
        end
    end
    pd=0;  
    for j=1:is
        if it==b（j1）
            pd=1;
        end
    end
    if pd==0
       b（is1）=it;
       is=is+1;
    else
        is=is;
    end
end

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

     文件        602  2009-09-21 11:22  sfnet.m

     文件        499  2009-02-04 19:17  scalefree.m

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

                 1101                    2