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??2010-06-18?18:11??人員疏散\Dststspread.m
?????文件????????2251??2013-03-31?21:38??人員疏散\PopSn.m
?????文件?????????553??2010-06-19?09:55??人員疏散\ShuSanDieDai.m
?????文件???????34996??2012-06-12?10:46??人員疏散\renyuanshusan.asv
?????文件???????17494??2010-06-19?15:37??人員疏散\renyuanshusan.fig
?????文件???????34951??2010-06-20?08:46??人員疏散\renyuanshusan.m
?????文件?????????224??2010-06-21?07:48??人員疏散\源程序說明.txt
?????目錄???????????0??2013-03-31?21:40??人員疏散\