The-Booth-Tolls-for-Thee 元胞自动机源程序代码

元胞自动机源程序代码，模拟组织相变以及动态再结晶过程

clear;
figure（‘position‘[50 132 900 400]‘doublebuffer‘‘on‘） 
W = [];
for j=0:7;
B = 6+j; %number booths
L = 6; %number lanes in highway before and after plaza
T = 1; % # hrs to simulate
global plazalength;
plazalength = 101;
plaza = create_plaza（BL）;
set（gcf‘resize‘‘off‘）
PLAZA=rot90（plaza）;
PLAZAA=0.8*ones（401013）;
PLAZA（PLAZA==1）=2;
PLAZA（PLAZA==0）=1;
PLAZA（PLAZA==2）=0;
PLAZA（PLAZA~=0&PLAZA~=1）=0.8;
PLAZAA（20-ceil（B/2）:21+ceil（B/2）:1）=PLAZA;
PLAZAA（20-ceil（B/2）:21+ceil（B/2）:2）=PLAZA;
PLAZAA（20-ceil（B/2）:21+ceil（B/2）:3）=PLAZA;
H=image（PLAZAA）;
axis off
entry_vector = create_entry（TL）;
waiting_time = 0;
output = 0;
for i = 1:T*1440
plaza = move_forward（plaza）; %move cars forward
plaza = new_cars（B L plaza entry_vector（1i））; %allow new cars to e

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1478  2014-02-08 11:33  The Booth Tolls for Thee\cellular.m

     文件        135  2014-02-08 11:33  The Booth Tolls for Thee\clear_boundary.m

     文件        126  2014-02-08 11:33  The Booth Tolls for Thee\compute_output.m

     文件        137  2014-02-08 11:33  The Booth Tolls for Thee\compute_wait.m

     文件        521  2014-02-08 11:33  The Booth Tolls for Thee\create_entry.m

     文件        939  2014-02-08 11:33  The Booth Tolls for Thee\create_plaza.m

     文件       1215  2014-02-08 11:33  The Booth Tolls for Thee\move_forward.m

     文件        259  2014-02-08 11:33  The Booth Tolls for Thee\new_cars.m

     文件       1107  2014-02-08 11:33  The Booth Tolls for Thee\switch_lanes.asv

     文件       1106  2014-02-08 11:33  The Booth Tolls for Thee\switch_lanes.m

     文件         17  2014-02-08 11:33  The Booth Tolls for Thee\说明.txt

     目录          0  2014-02-27 19:17  The Booth Tolls for Thee

----------- ---------  ---------- -----  ----

                 7040                    12