function?[Dst_S]=Dststspread（Dst_SZAMrowcolp）
%Dst_S災害因素矩陣；p擴散概率；
Dst_S1=Dst_S;
[I1?I2]=find（Dst_S==1）;
for?i=1:length（I1）
????a=[I1（i）I2（i）-1;I1（i）I2（i）+1;...
????????I1（i）-1I2（i）;I1（i）+1I2（i）;...
????????I1（i）+1I2（i）-1;I1（i）+1I2（i）+1;...
????????I1（i）-1I2（i）-1;I1（i）-1I2（i）+1];
????%?????b=ones（81）;
????for?j=1:8
????????if?a（j1）>0&&a（j1）<=row&&a（j2）>0&&a（j2）<=col&&ZAM（a（j1）a（j2））==0
????????????if?rand????????????????Dst_S1（a（j1）a（j2））=1;
????????????end
????????end
????end
end
%?for?i=1:row
%?????for?j=1:col
%?????????if?Dst_S（ij）==1||
[I1?I2]=find（Dst_S==1）;
for?i=1:length（I1）
?????a=[I1（i）I2（i）-1;I1（i）I2（i）+1;...
????????I1（i）-1I2（i）;I1（i）+1I2（i）;...
????????I1（i）+1I2（i）-1;I1（i）+1I2（i）+1;...
????????I1（i）-1I2（i）-1;I1（i）-1I2（

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

?????文件???????1499??2014-03-11?23:26??最終仿真軟件\Dststspread.m

?????文件???????2435??2014-03-11?23:26??最終仿真軟件\PopSn.m

?????文件??????17035??2014-03-11?23:26??最終仿真軟件\renyuanshusan.fig

?????文件??????38452??2014-03-11?23:26??最終仿真軟件\renyuanshusan.m

?????文件????????553??2014-03-11?23:26??最終仿真軟件\ShuSanDieDai.m

?????文件????????224??2014-03-11?23:26??最終仿真軟件\源程序說明.txt

?????目錄??????????0??2014-03-15?22:08??最終仿真軟件

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

????????????????60198????????????????????7