%////BA無標(biāo)度網(wǎng)格/////或隨機(jī)圖///下的囚徒困境博弈-合作比例曲線-非記憶
function?boyi6_2（）
clc;
clear?all;
N=1000;

c=2;
if?c==1
????mlinks=2;
????Net?=?SFNG（N?mlinks）;%BA無標(biāo)度網(wǎng)絡(luò)
????ave_k=sum（sum（Net））/N
else
????ave_k=10;
????Nlinks=ave_k*N/2;???%
????tic;
????Net=randomgraph2（NNlinks）;%隨機(jī)圖網(wǎng)絡(luò)
????toc;
????%save?d:\data\randgraph1000_10.mat?Net;
????%load?d:\data\randgraph1000_10.mat;
????ave_k=sum（sum（Net））/N
end

T0=200;
T=1.05;
co=prisoner（NetTT0）;
plot（co‘b*‘）;

function?co=prisoner（NetTT0）
N=length（Net）;
agent=zeros（1N‘single‘）;
money=zeros（T0N）;
for?i=1:N
????????if?rand<0.5
????????????agent（1i）=1;
????????end
end
co=zeros（1T0）;
k=0.1;
for?t=1:T0
????co（t）=sum（sum（agent））/N;
????%博弈
????for?i=1:N
????????a=find（Net（i:）==1）;
????????for?j=1:length（a）
?????

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件????????204??2013-11-12?16:05??randomgraph.m

?????文件????????212??2013-12-04?14:49??randomgraph2.m

?????文件???????1104??2013-11-27?11:06??SFNG.m

?????文件???????1351??2013-12-04?15:12??boyi6_2.m

?????文件???????2123??2013-12-08?08:35??gameD.m

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

?????????????????4994????????????????????5