function?matrix?=?FreeScale（X）
%By?201121250314
N=?X;?m0=?3;?m=?3;%初始化網絡數據
adjacent_matrix?=?sparse（?m0?m0）;%?初始化鄰接矩陣
for?i?=?1:?m0
????for?j?=?1:m0
????????if?j?~=?i??????%去除每個點自身形成的環
????????????adjacent_matrix（ij）?=?1;%建立初始鄰接矩陣，3點同均同其他的點相連
????????end
????end
end
adjacent_matrix?=sparse（adjacent_matrix）;%鄰接矩陣稀疏化
node_degree?=?zeros（1m0+1）;????????????????%初始化點的度
node_degree（2:?m0+1）?=?sum（adjacent_matrix）;%對度維數進行擴展
for?iter=?4:N
????iter;????????????????????????????????%加點
????total_degree?=?2*m*（iter-?4）+6;%計算網絡中此點的度之和
????cum_degree?=?cumsum（node_degree）;%求出網絡中點的度矩陣
????choose=?zeros（1m）;%初始化選擇矩陣
????%?選出第一個和新點相連接的頂點
????r1=?rand（1）*total_degree;%算出與舊點相連的概率
????for?i=?1:iter-1
????????if?（r1>=cum_degree（i））&（?r1????????????choose（1）?=?i;
????????????break
????????end
????end
????%?選出第二個和新點相連接的頂點
????r2=?rand（1）*total_degree;
????for?i=?1:iter-1
????????if?（r2>=cum_degree（i））&（r2????????????choose（2）?=?i;
????????????break
????????end
????end
????while?choose（2）?==?choose（1）%第一個點和第二個點相同的話，重新擇優
????????r2=?rand（1）*total_degree;
????????for?i=?1:iter-1
????????????if?（r2>=cum_degree（i））&（r2????????????????choose（2）?=?i;
????????????????break
????????????end
????????end
????end
????%?選出第三個和新點相連接的頂點
????r3=?rand（1）*total_degree;
????for?i=?1:iter-1
????????if??（r3>=cum_degree（i））&（r3????????????choose（3）?=?i;
????????????break
????????end
????end
????while?（choose（3）==choose（1））|（choose（3）==choose（2））
????????r3=?rand（1）*total_degree;
????????for?i=1:iter-1
????????????if?（r3>=cum_degree（i））&（r3????????????????choose（3）?=?i;
????????????????break
????????????end
????????end
????end
????%新點加入網絡后?對鄰接矩陣進行更新
????for?k?=?1:m
????????adjacent_matrix（iterchoose（k））?=?1;
????????adjacent_matrix（choose（k）iter）?=?1;
????end
????node_degree=zeros（1iter+1）;
????node_degree（2:iter+1）?=?sum（adjacent_matrix）;
end
matrix?=?adjacent_matrix;
A=matrix;
B=full（A）;
dlmwrite（‘BB.txt‘B）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????2262??2013-02-04?09:54??FreeScale.m

?????文件???????1630??2013-02-03?12:42??tu_plot.m

-----------?---------??----------?-----??----

?????????????????3892????????????????????2