%Conway‘s?life?with?GUI

clf
clear?all

%=============================================
%build?the?GUI
%define?the?plot?button
plotbutton=uicontrol（‘style‘‘pushbutton‘...
???‘string‘‘Run‘?...
???‘fontsize‘12?...
???‘position‘[1004005020]?...
???‘callback‘?‘run=1;‘）;

%define?the?stop?button
erasebutton=uicontrol（‘style‘‘pushbutton‘...
???‘string‘‘Stop‘?...
???‘fontsize‘12?...
???‘position‘[2004005020]?...
???‘callback‘‘freeze=1;‘）;

%define?the?Quit?button
quitbutton=uicontrol（‘style‘‘pushbutton‘...
???‘string‘‘Quit‘?...
???‘fontsize‘12?...
???‘position‘[3004005020]?...
???‘callback‘‘stop=1;close;‘）;

number?=?uicontrol（‘style‘‘text‘?...
????‘string‘‘1‘?...
???‘fontsize‘12?...
???‘position‘[204005020]）;
????

%=============================================
%CA?setup

n=128;

%initialize?the?arrays
z?=?zeros（nn）;
cells?=?z;
sum?=?z;
%set?a?few?cells?to?one
cells（n/2.25*n:.75*n）?=?1;
cells（.25*n:.75*nn/2）?=?1;

%cells（.5*n-1.5*n-1）=1;
%cells（.5*n-2.5*n-2）=1;
%cells（.5*n-3.5*n-3）=1;
cells?=?（rand（nn））<.5?;
%how?long?for?each?case?to?stability?or?simple?oscillators

%build?an?image?and?display?it
imh?=?image（cat（3cellszz））;
set（imh?‘erasemode‘?‘none‘）
axis?equal
axis?tight

%index?definition?for?cell?update
x?=?2:n-1;
y?=?2:n-1;

%Main?event?loop
stop=?0;?%wait?for?a?quit?button?push
run?=?0;?%wait?for?a?draw?
freeze?=?0;?%wait?for?a?freeze

while?（stop==0）?
????
????if?（run==1）
????????%nearest?neighbor?sum
????????sum（xy）?=?cells（xy-1）?+?cells（xy+1）?+?...
????????????cells（x-1?y）?+?cells（x+1y）?+?...
????????????cells（x-1y-1）?+?cells（x-1y+1）?+?...
????????????cells（3:ny-1）?+?cells（x+1y+1）;
????????%?The?CA?rule
????????cells?=?（sum==3）?|?（sum==2?&?cells）;???????
????????%draw?the?new?image
????????set（imh?‘cdata‘?cat（3cellszz）?）
????????%update?the?step?number?diaplay
????????stepnumber?=?1?+?str2num（get（number‘string‘））;
????????set（number‘string‘num2str（stepnumber））
????end
????
????if?（freeze==1）
????????run?=?0;
????????freeze?=?0;
????end
????
????drawnow??%need?this?in?the?loop?for?controls?to?work
????
end
????
????

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2018-01-31?17:03??元胞自動機\
?????目錄???????????0??2018-01-21?15:06??元胞自動機\1月13日課件（元胞自動機）\
?????文件??????283389??2009-01-12?23:17??元胞自動機\1月13日課件（元胞自動機）\元胞自動機在數學模型中的應用.pdf
?????目錄???????????0??2018-01-21?15:06??元胞自動機\1月13日課件（元胞自動機）\程序\
?????目錄???????????0??2018-01-21?15:06??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\
?????文件????????1478??2008-01-23?21:01??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\cellular.m
?????文件?????????135??2007-12-23?12:27??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\clear_boundary.m
?????文件?????????126??2007-12-23?12:27??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\compute_output.m
?????文件?????????137??2007-12-23?12:25??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\compute_wait.m
?????文件?????????521??2008-01-23?20:30??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\create_entry.m
?????文件?????????939??2007-12-23?12:26??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\create_plaza.m
?????文件????????1215??2007-12-28?07:55??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\move_forward.m
?????文件?????????259??2008-01-23?20:20??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\new_cars.m
?????文件????????1107??2007-12-28?08:00??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\switch_lanes.asv
?????文件????????1106??2007-12-28?08:00??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\switch_lanes.m
?????文件??????????17??2009-01-13?20:30??元胞自動機\1月13日課件（元胞自動機）\程序\The?Booth?Tolls?for?Thee\說明.txt
?????文件????????2226??2007-12-26?16:10??元胞自動機\1月13日課件（元胞自動機）\程序\calife.m
?????文件?????????860??2012-02-09?11:16??元胞自動機\1月13日課件（元胞自動機）\程序\forest.asv
?????文件?????????965??2012-02-09?14:10??元胞自動機\1月13日課件（元胞自動機）\程序\forest.m
?????目錄???????????0??2018-01-21?15:06??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\
?????目錄???????????0??2018-01-21?15:06??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\
?????文件???????69334??2012-02-09?08:36??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\blank-template.pdf
?????文件???????57740??2012-02-09?08:36??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\blank-template.synctex
?????文件????????6839??2012-02-09?08:26??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\blank-template.tex
?????文件??????282182??2012-02-09?08:37??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\icmmcm-sample.pdf
?????文件?????1032110??2012-02-09?08:37??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\icmmcm-sample.synctex
?????文件???????61966??2012-02-09?08:26??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\icmmcm-sample.tex
?????文件????????5346??2012-02-09?08:27??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\icmmcm.bib
?????文件????????3870??2012-02-09?08:27??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\icmmcm.cls
?????文件?????????996??2012-02-09?08:27??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\shapes.pdf
?????文件???????11174??2012-02-09?08:27??元胞自動機\1月13日課件（元胞自動機）\程序\新建文件夾\HMCMCM\shapes.ps
............此處省略23個文件信息