【元胞自动机】基于matlab界面聚合元胞自动机模拟【含Matlab源码 2004期】

一、元胞自动机简介

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的结果

结果分析: 时空轨迹

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

二、案例及部分源代码

1 案例
figure 1:wolfram的184号规则

这个规则可以让元胞模拟出交通流的感觉，为什么说是感觉呢，因为大家好像看到了一个方块或者说叫一个小车，在向前行进，但是并没有模拟出交通流中的很多现象。随后就有NaSch规则被提出来了，这个规则可以说是所有元胞交通流模型的鼻祖，后面很多规则都是从这个规则中进化而来的。而我们今天讨论的靠右行驶的双车道模型也是根据NaSch模型改进而来的，简单讨论一下NaSch模型，然后进一步引出本文要讲解的靠右行驶模型。

NaSch规则:

(1)加速，

(2)减速,

(3)以概率p随机慢化速度,

(4)行进，

可以看到，NaSch规则就仅仅只有简单的四条，但是却模拟出了交通流的最基本的东西，从其时空图就可以看出来:

figure 2:Density=0.15,Vmax=5

figure 2是元胞长度为1000，时间步为500时候得出的时空图。这里还有相应的包括流量密度图和速度密度图等基本图也可以得出来。

接下来离我们的靠右行驶模型又进了一步，在这之前，我们再介绍一下基于NaSch的双车道模型STNS，有了双车道模型，靠右行驶模型便不再是难事。

STNS规则:

可以从STNS的规则中看到，为了实现双车道的CA交通流模型，我们实质对NaSch模型的改动仅仅是添加了一条换道规则，而换道规则看起来又是那么容易理解和合乎现实条件。这就是CA的魅力，通过稍微改动规则，就可以实现一些我们想要的结果，后面我们将用靠右行驶模型来诠释这个。当然规则也是CA的噩梦，我们通常情况下并不知道什么时候该用CA的什么规则。

现在我将再引进一条规则，在此规则下CA就可以实现2014MCM比赛中靠右行驶规则，同时可以预料到，再修改一些规则，仍然可以完整实现2014MCM比赛A题中的任何一个问题，但是这里对此不予以讨论。

Keep-Right Rule:


至此，靠右行驶规则用元胞自动机实现完毕。下面是用Matlab实现的仿真模拟图:

2 案例及部分源代码
2.1案例

2.2 部分源代码

%% --------------------------------------------------------
clc;clear;
%主函数
% writerObj=VideoWriter('cellautoma.avi');
% writerObj.FrameRate=2;%帧速率
% open(writerObj);
number=uicontrol('style','text','string','1','fontsize',12,'position',[100,400,50,20]);
%% 构成元胞
%0为膜孔空隙，1为哌嗪分子，2为水分子，3为TMC分子，4为油相溶剂分子，5为基膜，6为聚酰胺
m1=22;m2=5;m3=53;   %各区域深度
n=50;               %模拟时的宽度
water=2*ones(m1*n,1);  %水相
membr=zeros(m2*n,1);  %界面层
oil=4*ones(m3*n,1);    %油相
active=zeros(m1+m2+m3,n); %PA活性设置
c1=0.2;c2=0.50;c3=0.02; %各个区域单体所占的百分比
membr(ceil(rand(ceil(m2*n*c2),1)*m2*n))=5;
membr=reshape(membr,m2,n); %含有基膜的界面矩阵
water(ceil(rand(ceil((m1*n+m2*n*(1-c2))*c1),1)*m1*n))=1;
water=reshape(water,m1,n); %含有单体的水相矩阵
oil(ceil(rand(ceil(m3*n*c3),1)*m3*n))=3;
oil=reshape(oil,m3,n);    %含有单体的油相矩阵
allmatrix=[water;membr;oil];%组合
%% 处理边界
simulation=zeros(m1+m2+m3+2,n+2); %多加了一层外层边界
simulation([1 m1+m2+m3+2],:)=-1*ones(2,n+2);%上下层边界元胞赋值为-1
simulation(:,1)=[-1;allmatrix(:,end);-1];
simulation(:,n+2)=[-1;allmatrix(:,1);-1];   %左右层采取周期性原则，模拟无限宽流体
simulation(2:m1+m2+m3+1,2:n+1)=allmatrix;
w_pip=0.8; %pip不形成团簇的概率
w_TMC=0.6; %TMC不形成团簇的概率
%% 元胞邻居
%调用neighbor函数，将邻居存储到每个元胞对应的元胞数组中
[rm,rn]=size(simulation);
nextcell=cell(rm,rn);
for i=1:rm
    for j=1:rn
        list=neighbor(i,j,simulation);
        nextcell{i,j}=list;
    end
end
%% 团簇元胞
grouppip=cell(rm,rn);  %%定义哌嗪团簇元胞
for i=1:rm
    for j=1:rn
        grouppip{i,j}=zeros(1,2);
    end
end
groupTMC=cell(rm,rn);  %%定义TMC团簇元胞
for i=1:rm
    for j=1:rn
        groupTMC{i,j}=zeros(1,2);
    end
end
%% 制定元胞规则
num=0;%迭代次数
imh=matrixplot(simulation(2:m1+m2+m3+1,1:n+2));
while num<=98
    %tempmatrix = simulation;                  %定义新的矩阵变量暂时保存当前画面
    for i=1:rm
        for j=1:rn
            switch simulation(i,j)
                case -1                       %边界元胞，不作处理
                case 0                        %膜孔元胞，不作处理
                case 1                        %哌嗪元胞
                    if ismember(simulation(i,j),grouppip{i,j})
                        continue;
                    else
                        if ismember(3,nextcell{i,j})        %若元胞上面邻居含有元胞3，则结合生成6
                            direction=find(nextcell{i,j}==3);
                            randindex=randperm(length(direction));
                            resultindex=direction(randindex(1));             %假设水分子运动为布朗运动
                            [swapi,swapj]=judgedirection(resultindex,i,j,rn);
                            simulation(i,j)=6;                               %哌嗪位被PA替代
                            simulation(swapi,swapj)=4;                          %TMC位被油相溶剂替代
                            active(i,j)=2;  %假设pa只反应两次
                        elseif ismember(0,nextcell{i,j}) || ismember(2,nextcell{i,j}) || ismember(4,nextcell{i,j})
                            direction=union(find(nextcell{i,j}==0),union(find(nextcell{i,j}==2),find(nextcell{i,j}==4))); %寻找四个方向中含有元胞0,1,2,4的方向
                            p_max=1;p_min=0.5;                              %概率变化范围
                            if i<=m1    %若哌嗪在水相
                                p_i=p_max-(i-1)*(p_max-p_min)/m1;
                                resultindex=choosedirection(direction,2,p_i);
                                %resultindex=2;
                            elseif i>m1+m2 %若哌嗪在油相
                                p_i=p_min+(i-m1-m2)*(p_max-p_min)/m3;
                                resultindex=choosedirection(direction,1,p_i);
                            else           %若哌嗪在界面中，等概率扩散
                                %p_i=p_max-(i-1)*(p_max-p_min)/m1;
                                resultindex=choosedirection(direction,2,1);
                                %resultindex=2;
                            end
                            %由于界面聚合，水相哌嗪在界面处移动概率最小，两边概率最大，概率随着行数逐渐变化,依据概率选择最佳方向
                            [swapi,swapj]=judgedirection(resultindex,i,j,rn);   %获得选定方向元胞的行列号
                            if simulation(swapi,swapj)==0                    %如果扩散到膜孔,膜孔元胞置为哌嗪元胞，哌嗪元胞变成水分子元胞
                                simulation(swapi,swapj)=1;
                                simulation(i,j)=2;
                            elseif simulation(swapi,swapj)==4
                                if swapi<=m1+m2
                                    continue;
                                elseif swapi>m1+m2+min(size(find(simulation==1)),size(find(simulation==3)))/n+1   %哌嗪只能活跃于油相的表层,该层为期望膜厚度
                                    continue;
                                end
                            else
                                temp=simulation(i,j);                            %交换元胞状态
                                simulation(i,j)=simulation(swapi,swapj);
                                simulation(swapi,swapj)=temp;
                            end
                            
                        elseif ismember(1,nextcell{i,j})   %若邻居有自身，则依玻尔兹曼因子可能形成团簇
                            if rand>=w_pip && i>2 && i<rm-1 && j>2 && j<rn-1 %弹性碰撞
                                direction=find(nextcell{i,j}==1);
                                randindex=randperm(length(direction));
                                resultindex=direction(randindex(1));             %假设水分子运动为布朗运动
                                [swapi,swapj]=judgedirection(resultindex,i,j,rn);
                                temp=simulation(2*i-swapi,2*j-swapj);                            %交换元胞状态
                                simulation(2*i-swapi,2*j-swapj)=simulation(i,j);
                                simulation(i,j)=temp;
                            else             %形成团簇
                                grouppip{i,j}=[simulation(i,j),simulation(swapi,swapj)];
                            end
                        end
                    end
                case 2                        %水分子元胞
                    if ismember(0,nextcell{i,j})  %若水分子扩散到膜孔
                        direction=find(nextcell{i,j}==0);
                        randindex=randperm(length(direction));
                        resultindex=direction(randindex(1));             %假设水分子运动为布朗运动
                        [swapi,swapj]=judgedirection(resultindex,i,j,rn);
                        if simulation(swapi,swapj)==0
                            simulation(swapi,swapj)=2;
                        end
                    end
 

  

 

  
 
 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
  
47
  
48
  
49
  
50
  
51
  
52
  
53
  
54
  
55
  
56
  
57
  
58
  
59
  
60
  
61
  
62
  
63
  
64
  
65
  
66
  
67
  
68
  
69
  
70
  
71
  
72
  
73
  
74
  
75
  
76
  
77
  
78
  
79
  
80
  
81
  
82
  
83
  
84
  
85
  
86
  
87
  
88
  
89
  
90
  
91
  
92
  
93
  
94
  
95
  
96
  
97
  
98
  
99
  
100
  
101
  
102
  
103
  
104
  
105
  
106
  
107
  
108
  
109
  
110
  
111
  
112
  
113
  
114
  
115
  
116
  
117
  
118
  
119
  
120
  
121
  
122
  
123
  
124
  
125
  
126
  
127
  
128
  
129
  
130
  
131
  
132
  
133
 

三、运行结果

四、matlab版本及参考文献

1 matlab版本
2014a

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

文章来源: qq912100926.blog.csdn.net，作者：海神之光，版权归原作者所有，如需转载，请联系作者。

原文链接：qq912100926.blog.csdn.net/article/details/126077536