元胞自动机代码演示案例

对元胞自动机的初步认识
元胞自动机（CA）是一种用来仿真局部规则和局部联系的方法。典型的元
胞自动机是定义在网格上的，每一个点上的网格代表一个元胞与一种有限的状
态。变化规则适用于每一个元胞并且同时进行。
元胞的变化规则&元胞状态
典型的变化规则，决定于元胞的状态，以及其（ 4 或 8 ）邻居的状态。
元胞自动机的应用
元胞自动机已被应用于物理模拟，生物模拟等领域。
元胞自动机的matlab编程
结合以上，我们可以理解元胞自动机仿真需要理解三点。一是元胞，在matlab中可以理解为矩阵中的一点或多点组成的方形块，一般我们用矩阵中的一点代表一个元胞。二是变化规则，元胞的变化规则决定元胞下一刻的状态。三是元胞的状态，元胞的状态是自定义的，通常是对立的状态，比如生物的存活状态或死亡状态，红灯或绿灯，该点有障碍物或者没有障碍物等等。

案例一
生命游戏是英国数学家约翰·何顿·康威在1970年发明的细胞自动机。它包括一个二维矩形世界，这个世界中的每个方格居住着一个活着的或死了的细胞。一个细胞在下一个时刻生死取决于相邻八个方格中活着的或死了的细胞的数量。通常情况，游戏的规则就是：当一个方格周围有2或3个活细胞时，方格中的活细胞在下一个时刻继续存活；即使这个时刻方格中没有活细胞，在下一个时刻也会“诞生”活细胞。
听说许多程序猿都喜欢玩这个
规则是：
? 对周围的 8 个近邻的元胞状态求和
? 如果总和为 2 的话，则下一时刻的状态不改变
? 如果总和为 3 ，则下一时刻的状态为 1
? 否则状态= 0
元胞的邻居定义通常有以下三种范式，这里采用第二种，认为其周围八个点为邻居。

代码：

%% 设置GUI按键
plotbutton=uicontrol('style','pushbutton','string','运行', 'fontsize',12, 'position',[150,400,50,20], 'callback', 'run=1;');
erasebutton=uicontrol('style','pushbutton','string','停止','fontsize',12,'position',[250,400,50,20],'callback','freeze=1;');
quitbutton=uicontrol('style','pushbutton','string','退出','fontsize',12,'position',[350,400,50,20],'callback','stop=1;close;');
number = uicontrol('style','text','string','1','fontsize',12, 'position',[20,400,50,20]);
%% 元胞自动机设置
n=200;
%初始化各元胞状态
z = zeros(n,n);
sum = z;
cells = (rand(n,n))<.6;
% 建立图像句柄
imh = image(cat(3,cells,z,z));
set(imh, 'erasemode', 'none')
% 元胞更新的行列数设置
x = 2:n-1;
y = 2:n-1;
% 主事件循环
stop= 0; run = 0;freeze = 0;
while stop==0if run==1% 计算邻居存活的总数sum(x,y) = cells(x,y-1) + cells(x,y+1) + cells(x-1, y) + cells(x+1,y)...+ cells(x-1,y-1) + cells(x-1,y+1) + cells(x+1,y-1) + cells(x+1,y+1);% 按照规则更新cells = (sum==3) | (sum==2 & cells);set(imh, 'cdata', cat(3,cells,z,z) )stepnumber = 1 + str2double(get(number,'string'));set(number,'string',num2str(stepnumber))endif freeze==1run = 0;freeze = 0;enddrawnow
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:Layerfor x=M-t+1:M+t-1if x==M-t+1 || x==M+t-1for y=M-t+1:M+t-1SUM = 0;for m=-1:1for n=-1:1if x+m>0 && x+m<=S && y+n>0 && y+n<=SSUM = SUM + L(x+m, y+n); endendendSUM = SUM - L(x, y);Temp(x, y) = mod(SUM, 2);endelsey = M-t+1;SUM = 0;for m=-1:1for n=-1:1if x+m>0 && x+m<=S && y+n>0 && y+n<=SSUM = SUM + L(x+m, y+n); endendendSUM = SUM - L(x, y);Temp(x, y) = mod(SUM, 2);y = M+t-1;SUM = 0;for m=-1:1for n=-1:1if x+m>0 && x+m<=S && y+n>0 && y+n<=SSUM = SUM + L(x+m, y+n); endendendSUM = SUM - L(x, y);Temp(x, y) = mod(SUM, 2);endendL = Temp;imagesc(L);% 速度控制pause(0.2);
end

案例三元胞自动机在交通流领域的模拟
第一步，先将这个函数放到matlab函数库种

function [ v, d, p ] = multi_driveway_with_crossroad_exit( nl,...nc,dt,fp,nt,chance,chance1)
% 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 420set(gcf,'doublebuffer','on'); %241title('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;%慢速行驶的车%确定最后两个元胞的状态Q(:,:)= 0;Q(A(:,end-1)==0&A(:,end)==0) = 3;Q(A(:,end-1)==0&A(:,end)==1) = 1;if c(3,1)==0if rand<chance1flag2=1;c(3,1)=1;endend   if A(1,end)==0Q(1,end)=1;endif A(4,end)==0Q(4,end)=1;endif A(6,end)==0Q(6,end)=1;endif rem(floor(n/50),2)==0 %此时左右向为绿灯if A(2,end)==0if c(nc/2+2:nc+1,1)==0Q(2,end)=3;elseQ(2,end)=1;end endif A(3,end)==0if c(1,3)==0Q(3,end)=3;elseQ(3,end)=1;endend%按照既定规则行驶（5 车道右转）if A(5,end)==0if flag==0if rand<chance %路口车右转if c(nc/2+2:nc+1,:)==1Q(5,end)=1;  elseQ(5,end)=3;endendelse %第一辆车为左转车，需要等待                                  endendif c(1,2)==0if c(1,1)==1%3道口左转的思路：规避。C(1,2)=1;elseC(1,2)=3;endif c(2,1)==0                C(1,2)=3;endendif c(1,3)==0if c(1,2)==1C(1,3)=1;elseC(1,3)=3;endendif c(3,1)==0if c(3,2)==1C(3,1)=1;elseC(3,1)=3;endendif c(3,2)==0if c(3,3)==1C(3,2)=1;elseC(3,2)=3;endendif rem(n,20)==0&&c(3,2)==0%小区出来的车还遗留在路口，特殊处理先行if c(2,1)==1C(3,2)=5; %特殊的等待状态（小区出来的车）elseC(3,2)=3;endendif c(2,1)==0if A(1:nc/2,1)==0C(2,1)=3;elseC(2,1)=1;endendif c(1,1)==0if A(1,1)==0C(1,1) = 3;elseC(1,1) = 1;endendif c(3,3)==0if A(nc*3/2+1:2*nc,1)==0C(3,3) = 3;elseC(3,3) = 1;endendelse %此时小区出入向为绿灯Q(2,end)=3;Q(3,end)=3;if c(3,2)==0if flag1==1if c(2,1)==1C(3,2)=5;flag1=0;elseC(3,2)=3;endelseif c(3,3)==1C(3,2)=1;elseC(3,2)=3;endendendif c(2,1)==0if A(1:nc/2,1)==1&&c(1,1)==1C(2,1)=1;elseC(2,1)=3;endendif A(5,end)==0if flag==0if rand<chanceif c(nc/2+2:nc+1,:)==1Q(5,end)=1;elseQ(5,end)=3;endelseif c(nc/2+2:nc+1,1)==1&&c(nc/2+2:nc+1,2)==1Q(5,end)=5;flag=0;flag1=1; %小区的左转前进，用以区分右转车辆elseQ(5,end)=3;flag=1;endendelseif c(nc/2+2:nc+1,1)==1&&c(nc/2+2:nc+1,2)==1Q(5,end)=5;flag=0;flag1=1; %小区的左转前进，用以区分右转车辆elseQ(5,end)=3;flag=1;endendendif c(1,2)==0if c(1,1)==1C(1,2)=1;elseC(1,2)=3;endendif c(1,3)==0if c(1,2)==1C(1,3)=1;elseC(1,3)=3;endendif c(3,1)==0if c(3,2)==1C(3,1)=1;elseC(3,1)=3;endendif c(1,1)==0if A(1:nc/2,1)==0C(1,1) = 3;elseC(1,1) = 1;endendif c(3,3)==0if A(nc*3/2+1:2*nc,1)==0C(3,3) = 3;elseC(3,3) = 1;endendend%获得所有元胞上车辆的状态Acc = [ S Q ];%根据当前状态改变元胞位置%路口附近的车辆的行驶控制if C(3,2)==5c(2,1)=0;c(3,2)=1;flag=0;C(3,2)=0;elseif C(3,2)==1c(3,3)=0;c(3,2)=1;C(3,2)=0;endif C(2,1)==1A(1,1)=0;c(2,1)=1;C(2,1)=0;endif Acc(3,end)==1c(1,3)=0;A(3,end)=1;Acc(3,end)=0;endif Acc(2,end)==1c(3,1)=0;A(2,end)=1;Acc(2,end)=0;endif C(3,1)==1c(3,2)=0;c(3,1)=1;C(3,1)=0;endif C(1,3)==1c(1,2)=0;c(1,3)=1;C(1,3)=0;endif C(1,2)==1c(1,1)=0;c(1,2)=1;C(1,2)=0;endif C(1,1)==1A(1,1)=0;c(1,1)=1;C(1,1)=0;endif C(3,3)==1A(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)==2A(1,1)=1;endif Acc(4,1)==1||Acc(4,1)==2A(4,1)=1;endif Acc(5,end)==5c(3,2)=0;flag=0;A(5,end)=1;elseif Acc(5,end)==1c(3,3)=0;A(5,end)=1;endif Acc(3,end)==1c(1,3)=0;A(3,end)=1;endif Acc(2,end)==1c(3,1)=0;A(2,end)=1;endif Acc(4,1)==1||Acc(4,1)==2A(4,1)=1;endif Acc(1,1)==1||Acc(1,1)==2A(1,1)=1;end%计算平均速度、换道频率、车流密度等参数%获得运行中的车辆数目 NmatN = A<1;N = sum(sum(matN));%获得运行中的车辆速度之和 VE = 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==1A(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

第二步骤将下列代码放入命令行

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

元胞自动机代码演示案例相关推荐

元胞自动机交通模型案例2
模型分析这次做的是一个宏观的模型主要是调整ACC车辆的比例对各路段的车辆密度和车辆速度两个因素进行分析速度更新规则: 密度更新规则: 部分代码: clc close all clear %% 模 ...
元胞自动机交通模型【matlab实现】
Matlab元胞自动机交通模型案例分享模型介绍算例设计 matlab使用元胞自动机进行仿真(部分代码) 结果展示(部分结果) 模型介绍交通模型空间示意图(T字路口+人行道) 算例设计根据上述模 ...
MATLAB算法实战应用案例精讲-元胞自动机生命游戏（附Java、Python、C语言、C++和MATLAB代码实现）
目录前言知识储备元胞自动机的构成元胞空间元胞状态邻域
【元胞自动机】基于元胞自动机实现高速公路收费站交通流问题附matlab代码
1 简介近年来,我国高等级公路发展迅速,截止到2012年底,我国高速公路的通车里程已达到97355公里,比2011年增长14.6%.而我国自1984年以来实行"贷款修路.收费还贷" ...
MATLAB演示元胞自动机算法
一.元胞自动机理论元胞自动机与格子理论是一个非常好的模型,许多复杂的问题都可以通过它来建立模型,下面就简要介绍一下. 元胞自动机实质上是定义在一个具有离散.有限状态的元胞组成的元胞空间上,并按照一 ...
元胞自动机CA+生命游戏代码
1.元胞自动机元胞自动机(Cellular Automaton,复数为Cellular Automata,简称CA,也有人译为细胞自动机.点格自动机.分子自动机或单元自动机).是一时间和空间都离散的 ...
【元胞自动机】基于元胞自动机的人口疏散仿真matlab代码
1 简介为了消除礼堂的安全隐患,制定行之有效的应急预案,有必要对礼堂人群疏散运动进行研究,掌握礼堂人群疏散的一般特点和规律.采用基于二维元胞自动机模型对某高校礼堂发生人群疏散运动进行仿真,找出影 ...
【元胞自动机】基于元胞自动机模拟晶体生长附matlab代码
1 内容介绍基于溶质扩散和界面能的作用,考虑成分过冷,曲率过冷,界面能各向异性和界面扰动等因素,建立了单个等轴枝晶的生长模型.采用元胞自动机(cellular automata)方法模拟了枝晶生长 ...
【元胞自动机】基于元胞自动机模拟商场人流量matlab代码
1 简介本文属于计算机科学和交通工程的交叉领域,涉及一种基于元胞自动机的商场行人微观仿真方法,首先对商场行人区域网格化处理,得到元胞自动机模型相应的元胞空间,并将其划分为一些凸多边形区域;其次判断每 ...

元胞自动机代码演示案例

元胞自动机代码演示案例相关推荐

最新文章

热门文章