【元胞自动机】基于matlab元胞自动机模拟交通流【含Matlab源码 355期】

一、元胞自动机简介

1 元胞自动机发展历程
最初的元胞自动机是由冯 · 诺依曼在 1950 年代为模拟生物细胞的自我复制而提出的. 但是并未受到学术界重视.
1970 年, 剑桥大学的约翰 · 何顿 · 康威设计了一个电脑游戏 “生命游戏” 后, 元胞自动机才吸引了科学家们的注意.

1983 年 S.Wolfram 发表了一系列论文. 对初等元胞机 256 种规则所产生的模型进行了深入研究, 并用熵来描述其演化行为, 将细胞自动机分为平稳型, 周期型, 混沌型和复杂型.

2 对元胞自动机的初步认识
元胞自动机（CA）是一种用来仿真局部规则和局部联系的方法。典型的元胞自动机是定义在网格上的，每一个点上的网格代表一个元胞与一种有限的状态。变化规则适用于每一个元胞并且同时进行。典型的变化规则，决定于元胞的状态，以及其（ 4 或 8 ）邻居的状态。

3 元胞的变化规则&元胞状态
典型的变化规则，决定于元胞的状态，以及其（ 4 或 8 ）邻居的状态。

4 元胞自动机的应用
元胞自动机已被应用于物理模拟，生物模拟等领域。

5 元胞自动机的matlab编程
结合以上，我们可以理解元胞自动机仿真需要理解三点。一是元胞，在matlab中可以理解为矩阵中的一点或多点组成的方形块，一般我们用矩阵中的一点代表一个元胞。二是变化规则，元胞的变化规则决定元胞下一刻的状态。三是元胞的状态，元胞的状态是自定义的，通常是对立的状态，比如生物的存活状态或死亡状态，红灯或绿灯，该点有障碍物或者没有障碍物等等。

6 一维元胞自动机——交通规则
定义：
6.1 元胞分布于一维线性网格上.
6.2 元胞仅具有车和空两种状态.

7 二维元胞自动机——生命游戏
定义：
7.1 元胞分布于二维方型网格上.
7.2 元胞仅具有生和死两种状态.

元胞状态由周围八邻居决定.
规则：

骷髅：死亡；笑脸：生存
周围有三个笑脸，则中间变为笑脸
少于两个笑脸或者多于三个，中间则变死亡。

8 什么是元胞自动机
离散的系统: 元胞是定义在有限的时间和空间上的, 并且元胞的状态是有限.
动力学系统: 元胞自动机的举止行为具有动力学特征.
简单与复杂: 元胞自动机用简单规则控制相互作用的元胞模拟复杂世界.

9 构成要素

（1）元胞 (Cell)

元胞是元胞自动机基本单元：
状态: 每一个元胞都有记忆贮存状态的功能.
离散: 简单情况下, 元胞只有两种可能状态; 较复杂情况下, 元胞具有多种状态.
更新: 元胞的状态都安照动力规则不断更新.
（2）网格 (Lattice)
不同维网格

常用二维网格

（3）邻居 (Neighborhood)

（4）边界 (Boundary)

反射型：以自己作为边界的状态
吸收型：不管边界（车开到边界就消失）

（5）规则（状态转移函数）
定义：根据元胞当前状态及其邻居状况确定下一时刻该元胞状态的动力学函数, 简单讲, 就是一个状态转移函数.
分类：
总和型: 某元胞下时刻的状态取决于且仅取决于它所有邻居的当前状态以及自身的当前状态.
合法型: 总和型规则属于合法型规则. 但如果把元胞自动机的规则限制为总和型, 会使元胞自动机具有局限性.
（6）森林火灾

绿色：树木；红色：火；黑色：空地。
三种状态循环转化：
树：周围有火或者被闪电击中就变成火。
空地：以概率p变为树木
理性分析：红为火；灰为空地；绿是树

元胞三种状态的密度和为1

火转化为空地的密度等于空地转换为树的密度（新长出来的树等于烧没的树）

f是闪电的概率:远远小于树生成的概率；T s m a x T_{smax}T smax
是一大群树被火烧的时间尺度
程序实现
周期性边界条件
购进啊

其中的数字为编号
构建邻居矩阵

上面矩阵中的数字编号，对应原矩阵相同位置编号的上邻居编号，一一对应
同样道理：

（7）交通概念
车距和密度

流量方程

守恒方程

时空轨迹（横轴是空间纵轴为时间）

红线横线与蓝色交点表示每个时间车的位置。
如果是竖线则表示车子在该位置对应的时间

宏观连续模型：

最常用的规则：

红色条表示速度是满的。

1 加速规则：不能超过v m a x （ 2 格 / s ） v_{max}（2格/s）v
max（2格/s）
2 防止碰撞：不能超过车距

理论分析：

结果分析: 密度与流量

第一个图：横坐标是归一化后的密度，纵坐标是车流量。第二个图：理论值与CA的结果

结果分析: 时空轨迹

中间的深色区域是交通堵塞的区域。

二、部分源代码

%% lzu
close all ; clear all ;clca=rand(200,50);                                  %生成元胞自动机的大小（200，50）200行50列
m=find(a<0.1); n=find(a>0.9);                  %向上，向下的各占10%
aa=zeros(size(a));aa(m)=1;up=aa;
bb=zeros(size(a));bb(n)=3;down=bb;               %初始化元胞  up，down
clear a* m n bb
% 生成 up down
N=nnz(up)+nnz(down);%%  循环开始的地方
for t=1:10000up1=[up(2:end,:);up(1,:)];                       %向上走的向上一步，探探前面有没有路  %向下走的不动
c=up+down;
jud=up1+down;
%% 找出相碰处的两种表示
w_z1=find(jud==4);w_z1=w_z1';                                      % 一维位置(都是先下的所在)
[w_zx1,w_zy1]=find(jud==4);a=[w_zx1,w_zy1]';w_zx=w_zx1';w_zy=w_zy1';
%w_z2=[w_zx;w_zy];
clear w_zx1 w_zy1 a                                                % 二维位置
%% 找出相碰的人后面的粒子数
down_z_g=zeros(size(down));
for i=1:length(w_z1)d_b(i)=0;x=cutx(w_zx(i));y=w_zy(i);down_z_g(andx(x),y)=3;while down(x,y)==3down_z_g(x,y)=3;d_b(i)=d_b(i)+1;x=cutx(x);end
end
clear x y i
up_z_g=zeros(size(up));
for i=1:length(w_z1)u_b(i)=0;x=andx(andx(w_zx(i)));y=w_zy(i);up_z_g(cutx(x),y)=1;while up(x,y)==1up_z_g(x,y)=1;u_b(i)=u_b(i)+1;x=andx(x);end
end
clear x y i
% u_b  向下走的后面跟的个数
% d_b  向上走的后面跟的个数
%[w_z1;w_zx; w_zy ;u_b ;d_b]
%% 找出拐的那串粒子
%% 找出直走的（不包含相碰的后面跟的）
down_d=down;
for i=1:length(w_z1)x=w_zx(i);y=w_zy(i);for j=0:d_b(i)down_d(x,y)=0;x=cutx(x);end
end                                                 % down_d (down_directly)直接向下走的粒子
clear x y i j
up_d=up;
for i=1:length(w_z1)x=andx(w_zx(i));y=w_zy(i);for j=0:u_b(i)up_d(x,y)=0;x=andx(x);end
end                                                  % up_d (up_directly)直接向上走的粒子
clear x y i j
%f=nnz(up_d)+length(w_zx)+sum(u_b)-nnz(up)
%g=nnz(down_d)+length(w_zy)+sum(d_b)-nnz(down)
%end
a_down_d=[down_d(end,:);down_d(1:end-1,:)];               % alread_down_directly
a_up_d=[up_d(2:end,:);up_d(1,:)];                           % alread_down_directly(是假的还要考虑碰头的中间隔一个得情况)
%% 两个粒子对头时中间空一个（定义往下走的占了这个空格）
judge=a_down_d+a_up_d;
[ww_zx,ww_zy]=find(judge==4);
for i=1:length(ww_zx)x=ww_zx(i);y=ww_zy(i);judge(x,y)=3;x=andx(x);while judge(x,y)==1x=andx(x);endjudge(x,y)=1;
end
clear i
% judge 里面存放的是 alread 走了的粒子（上下粒子都走了一步）
r_down_d=zeros(size(down)); r_down_d(find(judge==3))=3;      % r_down_d 里面放的是真的直走|了|的
r_up_d=zeros(size(up)); r_up_d(find(judge==1))=1;
%pp=nnz(find(judge==3))+nnz(find(judge==1))-nnz(judge);
%% 找出拐弯的（也包含它后面跟的）(把拐的写进去)
%% 先做向下
n=0;      %拐的串中直走的
down_g=zeros(size(down));
for i=1:length(w_z1)x=w_zx(i);y=w_zy(i);up_z_gg=up_z_g; up_z_gg(:,y)=0;down_z_gg=down_z_g; down_z_gg(:,y)=0;for j=0:d_b(i)cc=judge+down_g+up_z_gg+down_z_gg;if j==0             if y>=2&&y<=49&&cc(x,y+1)==0&&cc(x,y-1)==0&&cc(cutx(x),y-1)==0&&cc(cutx(x),y+1)==0                 down_g(x,y+randint*2-1)=3;elseif y>=2&&y<=49&&cc(x,y+1)==0&&cc(cutx(x),y+1)==0down_g(x,y+1)=3;elseif y>=2&&y<=49&&cc(x,y-1)==0&&cc(cutx(x),y-1)==0down_g(x,y-1)=3;elseif y==1&&cc(x,y+1)==0&&cc(cutx(x),y+1)==0down_g(x,y+1)=3;      elseif y==50&&cc(x,y-1)==0&&cc(cutx(x),y-1)==0 down_g(x,y-1)=3;             elsedown_g(x,y)=3;endend

三、运行结果

四、matlab版本及参考文献

1 matlab版本
2014a

2 参考文献
[1] 包子阳,余继周,杨杉.智能优化算法及其MATLAB实例（第2版）[M].电子工业出版社，2016.
[2]张岩,吴水根.MATLAB优化算法源代码[M].清华大学出版社，2017.
[3]【数学建模】元胞自动机.博主：二进制人工智能