CA 生命游戏机.doc

《CA 生命游戏机.doc》由会员分享，可在线阅读，更多相关《CA 生命游戏机.doc（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、%build the GUI %define the plot button %Style（类型）pushbutton（按钮键）|togglebutton %（ 触发器）|radiobutton（无线按钮）|chechbox %（检查框）|edit（编辑）|text（文本）|slider %（ 滑标）|frame（框）|listbox（列表）| %popupmenu(跃上型) %这个属性声明了要生成的uicontrol对象类型。 freeze 冻结颜色 plotbutton=uicontrol(style,pushbutton,. string,run, . fontsize,12, . po

2、sition,100,400,50,20, . callback, run=1;); % define the stop button erasebutton=uicontrol(style,pushbutton,. string,Stop, . fontsize,12, . position,200,400,50,20, . callback,freeze=1;); %define the Quit button quitbutton=uicontrol(style,pushbutton,. string,Quit, . fontsize,12, . position,300,400,50,

3、20, . callback,stop=1;close;); number = uicontrol(style,text, . string,1, . fontsize,12, . position,20,400,50,20); n=128; z = zeros(n,n);cells = z;sum=z;cells(n/2,.25*n:.75*n) = 1; cells(.25*n:.75*n,n/2) = 1; cells = (rand(n,n).5 ;imh = image(cat(3,cells,z,z);set(imh, erasemode, none);axis equal;axi

4、s tight;x = 2:n-1;y = 2:n-1; 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(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(3:n,y-1) +

5、 cells(x+1,y+1); % The CA rule cells = (sum=3) | (sum=2 & cells); %draw the new image set(imh, cdata, cat(3,cells,z,z) ) %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