【元胞自动机】基于matlab元胞自动机生命游戏【含Matlab源码 655期】
一、元胞自动机简介
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. 如果一个活细胞周围（包括对角相邻）有2或3个细胞为生，则该细胞保持为生；
%2. 如果一个死细胞周围有3个细胞为生，则该细胞转为生；
%3. 在其它情况下，死细胞保持死，活细胞转为死。
clc;
clear;
%定义元胞空间的大小为100，也即是100个元胞
x = 20;
y = 20;
%定义迭代次数
epoch = 100;
%初始化网格点
net = rand(x,y);
game = zeros(x,y);
for i = 1:x
for j = 1:y
if net(i,j)<= 0.3
% 按照(i-1,j)->(i,j)->(i,j-1)->(i-1,j-1)进行勾勒图形
fx = [i-1,i,i,i-1];
fy = [j,j,j-1,j-1];
fill(fx,fy,'g')
%表示元胞状态为生
game(i,j)=1;
hold on
end
end
end
pause(0.1)
for k = 1:epoch
temp = zeros(x,y);
fx=[0,x,x,0];
fy=[0,0,y,y];
fill(fx,fy,'w');
hold on;
for i = 1:x
for j = 1:y
if i~=1 && i~= x && j~=1 && j~=y
%在四个角邻居只有三个，在边界邻居只有五个
a = game(i-1,j-1)+game(i,j-1)+game(i+1,j-1)+game(i-1,j)+game(i+1,j)+game(i-1,j+1)+game(i,j+1)+game(i+1,j+1);
if game(i,j) == 1
if a == 3 || a ==2
temp(i,j) = 1;
end
else
if a== 3
temp(i,j) = 1;
end
end
elseif i==1
if j==1
a = game(i,j+1)+game(i+1,j)+game(i+1,j+1);
if game(i,j)==1
if a == 3 || a ==2
temp(i,j) = 1;
end
else
if a == 3
temp(i,j) = 1;
end
end
elseif j==y
a = game(i,j-1)+game(i+1,j-1)+game(i+1,j);
if game(i,j)==1
if a == 3 || a ==2
temp(i,j) = 1;
end
else
if a == 3
temp(i,j) = 1;
end
end
else
a = game(i,j-1)+game(i+1,j-1)+game(i+1,j)+game(i,j+1)+game(i+1,j+1);
if game(i,j)==1
if a == 3 || a ==2
temp(i,j) = 1;
end
else
if a == 3
temp(i,j) = 1;
end
end
end
elseif i == x
if j==1
a = game(i-1,j)+game(i-1,j+1)+game(i,j+1);
if game(i,j)==1
if a == 3 || a ==2
temp(i,j) = 1;
end
else
if a == 3
temp(i,j) = 1;
end
end
elseif j==y
a = game(i-1,j-1)+game(i-1,j)+game(i,j-1);
if game(i,j)==1
if a == 3 || a ==2
temp(i,j) = 1;
end
else
if a == 3
temp(i,j) = 1;
end
end
else
a = game(i-1,j-1)+game(i,j-1)+game(i-1,j)+game(i-1,j+1)+game(i,j+1);
if game(i,j)==1
if a == 3 || a ==2
temp(i,j) = 1;
end
else
if a == 3
temp(i,j) = 1;
end
end
end
elseif j == 1
a = game(i-1,j)+game(i+1,j)+game(i-1,j+1)+game(i,j+1)+game(i+1,j+1);
if game(i,j)==1
if a == 3 || a ==2
temp(i,j) = 1;
end
else
if a == 3
temp(i,j) = 1;
end
end
elseif j == y
a = game(i-1,j-1)+game(i,j-1)+game(i+1,j-1)+game(i-1,j)+game(i+1,j);
if game(i,j)==1
if a == 3 || a ==2
temp(i,j) = 1;
end
else
if a == 3
temp(i,j) = 1;
end
end
end
end
end
if game == temp
disp(strcat('在第',num2str(k),'轮元胞自动机达到稳态'))
for i=1:x
for j=1:y
if temp(i,j)==1
fx=[i-1,i-1,i,i];
fy=[j-1,j,j,j-1];
fill(fx,fy,'g');
hold on;
end
end
end
break;
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
- 134
- 135
- 136
- 137
- 138
- 139
- 140
- 141
- 142
- 143
- 144
- 145
- 146
- 147
- 148
- 149
- 150
- 151
- 152
- 153
- 154
- 155
- 156
- 157
- 158
三、运行结果
其中初始状态我用均匀分布初始化矩形框，在20*20的区域内。
四、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/115335863
- 点赞
- 收藏
- 关注作者
评论（0）