时隔半年，再看元胞自动机（附实例+代码）

元胞自动机（CA）

不同于一般的动力学模型，元胞自动机不是由严格定义的物理方程或函数确定，而是用一系列模型构造的规则构成。凡是满足这些规则的模型都可以算作是元胞自动机模型。因此，元胞自动机是一类模型的总称，或者说是一个方法框架。

所有元胞自动机的动力学行为归纳为四大类（Wolfram. S.，1986)：

1. 平稳型:自任何初始状态开始，经过一定时间运行后，元胞空间趋于一个空间平稳的构形，这里空间平稳即指每一个元胞处于固定状态。不随时间变化而变化。
2. 周期型：经过一定时间运行后，元胞空间趋于一系列简单的固定结构（Stable Patterns）或周期结构（Perlodical Patterns)。由于这些结构可看作是一种滤波器（Filter），故可应用到图像处理的研究中。
3. 混沌型：自任何初始状态开始，经过一定时间运行后，元胞自动机表现出混沌的非周期行为，所生成的结构的统计特征不再变止，通常表现为分形分维特征。
4. 复杂型：出现复杂的局部结构，或者说是局部的混沌，其中有些会不断地传播。

元胞自动机可视为动力系统，因而可将初试点、轨道、不动点、周期轨和终极轨等一系列概念用到元胞自动机的研究中，上述分类，又可以分别描述为（谭跃进，1996；谢惠民，1994；李才伟、1997）：

1. 均匀状态，即点态吸引子，或称不动点；
2. 简单的周期结构，即周期性吸引子，或称周期轨；
3. 混沌的非周期性模式，即混沌吸引子；
4. 这第四类行为可以与生命系统等复杂系统中的自组织现象相比拟，但在连续系统中没有相对应的模式。

但从研究元胞自动机的角度讲，最具研究价值的具有第四类行为的元胞自动机，因为这类元胞自动机被认为具有"突现计算"(Emergent Computation）功能，研究表明，可以用作广义计算机（Universal Computer）以仿真任意复杂的计算过程。另外，此类元胞自动机在发展过程中还表现出很强的不可逆（lrreversibility）特征，而且，这种元胞自动机在若干有限循环后，有可能会 "死"掉，即所有元胞的状态变为零。

特点

• 时间、空间、状态都离散
• 每个变量只取有限多个状态，且其状态改变的规则在时间和空间上都是局部的。

原理

• 采用离散的空间布局和离散的时间间隔，将元胞分成有限种状态，元胞个体状态的演变仅与其当前状态以及其某个局部邻域的状态有关。

交通仿真双车道

脚本：

% 车流密度不变下的双向两车道仿真（T 字形路口）
% nc:双向车道数目 2，nl:车道长度（偶数）
% v:平均速度，d:换道次数（1000 次）p:车流密度
% dt:仿真步长时间，nt:仿真步长数目
% fp:车道入口处新进入车辆的概率（列向量）
nl = 40 ;nc = 2;
dt=0.75;nt=500;
fp = 5;
chance=0.5; 
chance1=0.5;
[ v, d, p ] = multi_driveway_with_crossroad_exit ( nl,nc,dt,fp,nt,chance,chance1);

函数：

function [ v, d, p ] = multi_driveway_with_crossroad_exit( nl,nc,dt,fp,nt,chance,chance1)
 
 
 
% 在某一特定车流密度下的（车流密度由 fp 决定）双向两车道仿真模型
 
% nc:车道数目（2），nl:车道长度——输入参数
 
% v:平均速度，p:车流密度——输出参数
 
% dt:仿真步长时间，nt:仿真步长数目——输入参数
 
% fp:车道入口处新进入车辆的概率向量（2,3,5 车道）——输入参数
 
% chance:交叉口处车辆行为的概率向量(5 车道右转,3车道右转）——输入参数
 
 %构造元胞矩阵
 
 B=ones(nc+1+nl/2,nl+3);
 
 %不可行车道
 
 B(nc/2+1,[1:nl/2 nl/2+4:nl+3])=1.2;   
 
 B(nc+2:nc+1+nl/2,[1:nl/2 nl/2+4:nl+3])=1.2;
 
 %初始化仿真元胞状态（1 为无车，0 为有车）
 
 bb1=B([1:nc/2 nc/2+2:nc+1],:);bb2=B(:,nl/2+3);bb3=B(:,nl/2+1);
 
 bb1(bb1~=0)=1;
 
 bb2(bb2~=0)=1;
 
 bb3(bb3~=0)=1;
 
 B([1:nc/2 nc/2+2:nc+1],:)=bb1;B(:,nl/2+3)=bb2;B(:,nl/2+1)=bb3;B(1:nc+1,nl/2+1:nl/2+3)=1;
 
 B(1:nc/2,end)=0;B(nc/2+2:nc+1,1)=0;B(end,nl/2+3)=0;
 
 %显示初始交通流图
 
 figure();
 
 H=imshow(B,[]);
 
 set(gcf,'position',[241 132 560 420]) ;%241 132 560 420
 
 set(gcf,'doublebuffer','on'); %241
 
 title('cellular-automation to traffic modeling','color','b');
 
 %初始化化存储元胞上车辆状态的矩阵
 
 S(1:nc*2+2,nl/2-2) = 0;
 
 Q(1:nc*2+2,1:2) = 0;
 
 C=zeros(nc+1,3);
 
 %初始化换道频率、平均速度、车流密度相关变量
 
 ad = 0;
 
 av(1:nt) = 0;
 
 ap(1:nt) = 0;
 
 s = 1;flag= 0;flag1=0;%flag、flag1 用于标示小区出口的车是否为左转车辆
 
 flag2=0;
 
 for n = 1:nt
%六个路段的长度。 
A=[ 
B(1:nc/2,nl/2 :-1:1); 
B(nc/2+2:nc+1,1:nl/2); 
B(1:nc/2,nl+3:-1:nl/2+4); 
B(nc/2+2:nc+1,nl/2+4:nl+3); 
B(nc+1+nl/2:-1:nc+2,nl/2+3)'; 
B(nc+2:1:nc+1+nl/2,nl/2+1)' 
];
%
c=B(1:nc+1,nl/2+1:nl/2+3); 
 %确定前 n-2 个车辆的状态
 S(:,:) = 0; 
 S(A(:,1:end-2)==0&A(:,2:end-1)==1&A(:,3:end)==1)=2;%快速行驶的车 
 S(A(:,1:end-2)==0&A(:,2:end-1)==0)=3;%停车的车
 S(A(:,1:end-2)==0&A(:,2:end-1)==1&A(:,3:end)==0)=1;%慢速行驶的车
 %确定最后 2 两个元胞的状态
 Q(:,:)= 0; 
 Q(A(:,end-1)==0&A(:,end)==0) = 3;
 Q(A(:,end-1)==0&A(:,end)==1) = 1;
 if c(3,1)==0
     if rand<chance1
         flag2=1;
         c(3,1)=1;
     end
 end
     
 if A(1,end)==0
 Q(1,end)=1;
 end
 if A(4,end)==0
 Q(4,end)=1;
 end
 if A(6,end)==0
 Q(6,end)=1;
 end
 if rem(floor(n/50),2)==0 %此时左右向为绿灯
 if A(2,end)==0
 if c(nc/2+2:nc+1,1)==0
 Q(2,end)=3;
 else
     Q(2,end)=1;
 end 
 end
 if A(3,end)==0
 if c(1,3)==0
 Q(3,end)=3;
 else
 Q(3,end)=1;
 end
 end
 %按照既定规则行驶（5 车道右转）
 if A(5,end)==0
 if flag==0
 if rand<chance %路口车右转
 if c(nc/2+2:nc+1,:)==1
 Q(5,end)=1;  
 else
 Q(5,end)=3;
 end
 end
 else %第一辆车为左转车，需要等待                                  
 end
 end
 if c(1,2)==0
 if c(1,1)==1%3道口左转的思路：规避。
 C(1,2)=1;
 else
 C(1,2)=3;
 end
 if c(2,1)==0                
 C(1,2)=3;
 end
 end
 if c(1,3)==0
 if c(1,2)==1
 C(1,3)=1;
 else
 C(1,3)=3;
 end
 end
 if c(3,1)==0
 if c(3,2)==1
 C(3,1)=1;
 else
 C(3,1)=3;
 end
 end
 if c(3,2)==0
 if c(3,3)==1
 C(3,2)=1;
 else
 C(3,2)=3;
 end
 end
 if rem(n,20)==0&&c(3,2)==0%小区出来的车还遗留在路口，特殊处理先行
 if c(2,1)==1
 C(3,2)=5; %特殊的等待状态（小区出来的车）
 else
 C(3,2)=3;
 end
 end
 if c(2,1)==0
 if A(1:nc/2,1)==0
 C(2,1)=3;
 else
 C(2,1)=1;
 end
 end
 if c(1,1)==0
 if A(1,1)==0
 C(1,1) = 3;
 else
 C(1,1) = 1;
 end
 end
 if c(3,3)==0
 if A(nc*3/2+1:2*nc,1)==0
 C(3,3) = 3;
 else
 C(3,3) = 1;
 end
 end
 else %此时小区出入向为绿灯
 Q(2,end)=3;Q(3,end)=3;
 if c(3,2)==0
 if flag1==1
 if c(2,1)==1
 C(3,2)=5;flag1=0;
 else
 C(3,2)=3;
 end
 else
 if c(3,3)==1
 C(3,2)=1;
 else
 C(3,2)=3;
 end
 end
 end
 if c(2,1)==0
 if A(1:nc/2,1)==1&&c(1,1)==1
 C(2,1)=1;
 else
 C(2,1)=3;
 end
 end
 if A(5,end)==0
 if flag==0
 if rand<chance
 if c(nc/2+2:nc+1,:)==1
 Q(5,end)=1;
 else
 Q(5,end)=3;
 end
 else
 if c(nc/2+2:nc+1,1)==1&&c(nc/2+2:nc+1,2)==1
 Q(5,end)=5;flag=0;flag1=1; %小区的左转前进，用以区分右转车辆
 else
 Q(5,end)=3;flag=1;
 end
 end
 else
 if c(nc/2+2:nc+1,1)==1&&c(nc/2+2:nc+1,2)==1
 Q(5,end)=5;flag=0;flag1=1; %小区的左转前进，用以区分右转车辆
 else
 Q(5,end)=3;flag=1;
 end
 end
 end
 if c(1,2)==0
 if c(1,1)==1
 C(1,2)=1;
 else
 C(1,2)=3;
 end
 end
 if c(1,3)==0
 if c(1,2)==1
 C(1,3)=1;
 else
 C(1,3)=3;
 end
 end
 if c(3,1)==0
 if c(3,2)==1
 C(3,1)=1;
 else
 C(3,1)=3;
 end
 end
 if c(1,1)==0
 if A(1:nc/2,1)==0
 C(1,1) = 3;
 else
 C(1,1) = 1;
 end
 end
 if c(3,3)==0
 if A(nc*3/2+1:2*nc,1)==0
 C(3,3) = 3;
 else
 C(3,3) = 1;
 end
 end
 end
 %获得所有元胞上车辆的状态
 Acc = [ S Q ];
 %根据当前状态改变元胞位置
 %路口附近的车辆的行驶控制
 if C(3,2)==5
 c(2,1)=0;
 c(3,2)=1;
 flag=0;
 C(3,2)=0;
 elseif C(3,2)==1
 c(3,3)=0;
 c(3,2)=1;
 C(3,2)=0;
 end
 if C(2,1)==1
 A(1,1)=0;
 c(2,1)=1;
 C(2,1)=0;
 end
 if Acc(3,end)==1
 c(1,3)=0;
 A(3,end)=1;
 Acc(3,end)=0;
 end
 if Acc(2,end)==1
 c(3,1)=0;
 A(2,end)=1;
 Acc(2,end)=0;
 end
 if C(3,1)==1
 c(3,2)=0;
 c(3,1)=1;
 C(3,1)=0;
 end
 if C(1,3)==1
 c(1,2)=0;
 c(1,3)=1;
 C(1,3)=0;
 end
 if C(1,2)==1
 c(1,1)=0;
 c(1,2)=1;
 C(1,2)=0;
 end
 if C(1,1)==1
 A(1,1)=0;
 c(1,1)=1;
 C(1,1)=0;
 end
 if C(3,3)==1
 A(4,1)=0;
 c(3,3)=1;
 C(3,3)=0;
 end
 %慢速运行车辆向前走 1 格
 A( Acc(:,1:end)==1 )=1;
 A( [ zeros(nc*3,1) Acc(:,1:end-1)]==1 ) = 0;
 %高速运行车辆向前走 2 格
 A( Acc(:,1:end)==2) = 1;
 A( [ zeros(nc*3,2) Acc(:,1:end-2)]==2) = 0;
 if Acc(1,1)==1||Acc(1,1)==2
 A(1,1)=1;
 end
 if Acc(4,1)==1||Acc(4,1)==2
 A(4,1)=1;
 end
 if Acc(5,end)==5
 c(3,2)=0;flag=0;
 A(5,end)=1;
 elseif Acc(5,end)==1
 c(3,3)=0;
 A(5,end)=1;
 end
 if Acc(3,end)==1
 c(1,3)=0;
 A(3,end)=1;
 end
 if Acc(2,end)==1
 c(3,1)=0;
 A(2,end)=1;
 end
 if Acc(4,1)==1||Acc(4,1)==2
 A(4,1)=1;
 end
 if Acc(1,1)==1||Acc(1,1)==2
 A(1,1)=1;
 end
 %计算平均速度、换道频率、车流密度等参数
 %获得运行中的车辆数目 N
 matN = A<1;
 N = sum(sum(matN));
 %获得运行中的车辆速度之和 V
 E = S((S==1)|(S==2));
 V = sum(E);
 %计算此时刻的车流密度并保存
 ap(n) = N/( (nc*3)*(nl/2)+9 );
 %计算此时刻的平均速率并保存
 if(N~=0&&n>nl/2)
 
 av(s) = V/N;
 
 s = s+1;
 
 end
 
 %在车道入口处随机引入新的车辆
 
 A([2;3;5],1)=(round(fp.*rand(3,1))&A([2;3;5],1));
 
 A(A~=0)=1;
 
 if flag2==1
 
     A(6,1)=0;
 
     flag2=0;
 
 end
 
 %将新的车辆加入元胞矩阵中
 
 B(1,1:nl/2)=A(1:nc/2,end:-1:1);
 
 B(3,1:nl/2)=A(nc/2+1:nc,:);
 
 B(1,nl/2+4:nl+3)=A(nc+1:nc*3/2,end:-1:1);
 
 B(3,nl/2+4:nl+3)=A(nc*3/2+1:2*nc,:);
 
 B(nc+2:nc+1+nl/2,nl/2+3)=A(2*nc+1,end:-1:1)';
 
 B(nc+2:nc+1+nl/2,nl/2+1)=A(3*nc,:)';
 
 B(1:3,nl/2+1:nl/2+3)=c(:,:);
 
 %显示交通流图
 
 set(H,'CData',B);
 
%计算这个时间段每个时间点的指标（速度与车流量）。
 
 d = ad;
 
 p = mean(ap);
 
 v = sum(av)/s;
 
 disp([v,p])
 
%仿真步长
 
 pause(dt);
 
 end
 
end

扩散

规则：

• 先把中间点置为1，每一时间步对每一点，如果周围 八个点和为偶数，则变为0，为奇数则变为 1

效果：

代码：

% 颜色控制
Map = [1 1 1; 0 0 0];
colormap(Map);
% 设置网格大小
S = 121;
L = zeros(S);
% 把中间一个数设置为 1 作为元胞种子
M = (S+1)/2;
L(M, M) = 1;
Temp = L;
imagesc(L);
% 计算层数
Layer = (S-1)/2 + 1;

for t=2:Layer
    for x=M-t+1:M+t-1
       if x==M-t+1 || x==M+t-1

          for y=M-t+1:M+t-1
            SUM = 0;
            for m=-1:1
               for n=-1:1
                  if x+m>0 && x+m<=S && y+n>0 && y+n<=S
                     SUM = SUM + L(x+m, y+n); 
                  end
               end
            end
            SUM = SUM - L(x, y);
            Temp(x, y) = mod(SUM, 2);
          end
          
       else
            y = M-t+1;
            SUM = 0;
            for m=-1:1
               for n=-1:1
                  if x+m>0 && x+m<=S && y+n>0 && y+n<=S
                     SUM = SUM + L(x+m, y+n); 
                  end
               end
            end
            SUM = SUM - L(x, y);
            Temp(x, y) = mod(SUM, 2);
            
            y = M+t-1;
            SUM = 0;
            for m=-1:1
               for n=-1:1
                  if x+m>0 && x+m<=S && y+n>0 && y+n<=S
                     SUM = SUM + L(x+m, y+n); 
                  end
               end
            end
            SUM = SUM - L(x, y);
            Temp(x, y) = mod(SUM, 2);
       end
    end
    L = Temp;
    imagesc(L);
    % 速度控制
    pause(0.2);
end