Crowd-evacuation 对大型商场的人流疏散过程进行模拟

对大型商场的人流疏散过程进行模拟，分析研究人流疏散中的人流运行特性

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  人员疏散\