【元胞自动机】基于matlab元胞自动机交通流仿真【含Matlab源码 827期】

举报
海神之光 发表于 2022/05/29 01:41:05 2022/05/29
【摘要】 一、元胞自动机简介 1 元胞自动机发展历程 最初的元胞自动机是由冯 · 诺依曼在 1950 年代为模拟生物 细胞的自我复制而提出的. 但是并未受到学术界重视. 1970 年, 剑桥大学的约翰 · 何顿 ...

一、元胞自动机简介

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

结果分析: 时空轨迹
在这里插入图片描述
中间的深色区域是交通堵塞的区域。

二、部分源代码

clear all;
clc;
W = 0;
% 每个格子的状态有三种:
%1表示车辆,0表示空位,-888表示不可进入区域
for j = 1
    B = 6; %收费站的数量
    L = 3; %车道数量
    T = 23; % 更新时间为24毫秒
    global plazalength;%定义全局变量,车道长度
    plazalength = 20;
    plaza = create_plaza(B,L);%表示元胞空间的状态矩阵
    v=plaza;
    %====================================================
    h = show_plaza(plaza,B,NaN);                        %图像显示
    %====================================================
    num = 7;%绘图周期
    entry_vector = create_entry(T,L);%表示车辆到来数的向量
      entry_vector = create_temp_entry(num,30,30);
     waiting_time = 0;%等待时间一开始为0
     output = 0;
     k=1;
%     total_wait = zeros((greenTime+redTime)*num,1);
     total_entry = zeros(2*num,1);
     total_ac = zeros(2*num,1);
     total_traffic_capacity = zeros(2*num,1);
%     total_traffic_density = zeros((redTime+greenTime)*num,1);
     cross_point = plazalength-4;
%     average_wait = zeros(2*num,1);
     k=1;
    for i = 1:5
%         waiting_time = 0;
%         output = 0;
         entry = 0;
         ac=0;
         traffic_capacity = 0;
            for xx=1:60
                for cc = (plazalength-1):-1:1  %动力系统
                    for ccc = 2:7
                        if v(cc,ccc)==1 && rand>0.7
                            v(cc,ccc)=2;
                        else if v(cc,ccc)==2 && rand>0.8
                                v(cc,ccc)=3;
                            end
                        end
                    end
                end
                [plaza,v,acone] = move_forward(plaza,v); %前进规则
                ac = ac + acone;
                [plaza,v] = new_cars(plaza,xx,v); %将上面生成的车辆到来情况加到元胞空间矩阵中
                
                [plaza,v] = switch_lanes(plaza,v); %换道规则
%                 %交叉路口来的车辆
%                 [plaza,flag] = newCross_cas(plaza,cross_point);
                %计算这个时间步长元胞空间的车辆逗留时间
                %waiting_time = waiting_time + compute_wait(plaza); %进行求和求总的时间
                %output = output + compute_output(plaza);%每辆车的平均费时,计算离开收费站的总车辆数
                %===============================================
                h = show_plaza(plaza,B,h);                     %更新图像
                drawnow
                %===============================================
                [plaza,v,flag] = clear_boundary(plaza,v);%移除离开系统的车辆,即将元胞空间中最后一行大于0的设为0
                entry = entry + flag;

%                  if plaza((plazalength+1)/2,2) == 1
%                      traffic_capacity = traffic_capacity+1;
%                 end
%                  total_traffic_density(k) = size(find(plaza((plazalength+1)/4:(plazalength+1)/2-1,:)>0),1);
%                 total_wait(k) = waiting_time;
                 k = k+1;
                 pause(0.1);
            end
% %         total_wait(i) = waiting_time;
%         average_wait(i) = waiting_time/greenTime;
         total_entry(i) = entry;
         total_ac(i) = ac;
%         total_traffic_capacity(i) = traffic_capacity;
%         
%         
    end
    show_plaza(plaza,B,h);
%     W(j+1) = waiting_time/output;
%     xlabel({strcat('B = ',num2str(B)), ...
%         strcat('mean cost time = ', num2str(round(W(j+1))))})
%     count = 1;
%     average_traffic_density = zeros(2*num,1);
%     for i=1:num
%         average_traffic_density(count) = sum(total_traffic_density((i-1)*(greenTime+redTime)+1:(i-1)*(greenTime+redTime)+greenTime));
%         count = count+1;
%         average_traffic_density(count) = sum(total_traffic_density((i-1)*(greenTime+redTime)+1+greenTime:(i-1)*(greenTime+redTime)+greenTime+redTime));
%         count = count+1;
%     end
function [plaza,v] = switch_lanes(plaza,v)
%换道规则,当车的前面位置被别的车辆占据时,该车考虑换道
%这种车辆在前进规则中状态已经被标记为-2,车辆以prob进行换道
prob = 0.8;
[L,W] = size(plaza);
for i = (L-1):-1:1
        for j = 2:(W-1)
            if plaza(i,j) == -2
                if rand < prob %概率满足,换道
                        if rand>0.5
                        if plaza(i, j+1) == 0 
                            plaza(i,j+1) = 1;
                            plaza(i,j) = 0;
                            v(i,j+1) = v(i,j);
                            v(i,j) = 0;
                        elseif plaza(i, j-1) == 0
                            plaza(i, j-1) = 1;
                            plaza(i,j) = 0;
                            v(i,j-1) = v(i,j);
                            v(i,j) = 0;
                        else
                            plaza(i,j) = 1;
                        end
                    else
                        if plaza(i, j-1) == 0
                            plaza(i, j-1) = 1;
                            plaza(i,j) = 0;
                            v(i,j-1) = v(i,j);
                            v(i,j) = 0;
                        elseif plaza(i, j+1) == 0 
                            plaza(i,j+1) = 1;
                            plaza(i,j) = 0;
                            v(i,j+1) = v(i,j);
                            v(i,j) = 0;
                        else
                            plaza(i,j) = 1;
                        end
                    end
                else
                    plaza(i,j) = 1;
                end
            end
        end
end

for i = (L-1):-1:1
    for j = 2:(W-1)
        if plaza(i,j) == -3 && rand >0.5
                        if plaza(i, j+1) == 0 && j~=W-1
                            plaza(i,j+1) = 1;
                            plaza(i,j) = 0;
                            v(i,j+1) = v(i,j);
                            v(i,j) = 0;
                        else
                            plaza(i,j) = 1;
                        end
        end
    end
end

for i = (L-1):-1:1
        if plaza(i,5) == -4
            if rand < 0.2
                        if plaza(i, 6) == 0
                            plaza(i,6) = 1;
                            plaza(i,5) = 0;
                            v(i,6) = v(i,5);
                            v(i,5) = 0;
                        else
                            plaza(i,5) = 1;
                        end
            else
                plaza(i,5) = 1;
            end
        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
  • 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
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169

三、运行结果

在这里插入图片描述
在这里插入图片描述
在这里插入图片描述

四、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/116139993

【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论(0

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。