2014缇庡浗鏁板�﹀缓妯＄珵璧� MCM A棰?鍏冭優鑷�鍔ㄦ満瀹屾暣浠ｇ�?- 鐧惧害鏂囧簱

鏂板缓

涓婁紶

棣栭〉

鍔╂墜

鏈�杩?/div>

璧勬枡搴?/div>

宸ュ叿

 

1 

2014

缇庤禌鐩稿叧

MATLAB

绋嬪簭锛堝熀浜?/p>

NS

妯″瀷锛?/p>

 

涓荤▼搴忥細

NaSch_3.m

绋嬪簭浠ｇ爜

 

% 

鍗曡溅閬?/p>

 

鏈�澶ч�熷害

3

涓�鍏冭�?/p>

 

寮�鍙ｈ竟鐣屾潯浠?/p>

 

鍔犻�?/p>

 

鍑忛�?/p>

 

闅忔満鎱㈠寲

 

clf

 

clear all

 

%build the GUI 

%define the plot button 

plotbutton=uicontrol('style','pushbutton',...

 

'string','Run', ...

 

'fontsize',12, ...

 

'position',[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,20], ...

 

'callback','stop=1;close;');

 

number = uicontrol('style','text', ...

 

'string','1', ...

 

'fontsize',12, ...

 

'position',[20,400,50,20]);

 

%CA setup 

n=100; %

鏁版嵁鍒濆�嬪�?/p>

 

z=zeros(1,n); %

鍏冭優涓�鏁�

 

z=roadstart(z,5); %

閬撹矾鐘舵�佸垵濮嬪寲锛岃矾娈典笂闅忔満鍒嗗竷

5

杈?/p>

 

cells=z;

 

vmax=3; %

鏈�澶ч�熷害

 

v=speedstart(cells,vmax); %

閫熷害鍒濆�嬪�?/p>

 

x=1; %

璁板綍閫熷害鍜岃溅杈嗕綅缃?/p>

 

memor_cells=zeros(3600,n);

 

memor_v=zeros(3600,n);

 

imh=imshow(cells); %

鍒濆�嬪寲鍥惧儚鐧借壊鏈夎溅锛岄粦鑹茬┖鍏冭�?/p>

 

set(imh, 'erasemode', 'none')

 

axis equal

 

axis tight

 

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)

 

          %

杈圭晫鏉′欢澶勭悊锛屾悳绱犻�栨湯杞︼紝鎺у埗杩涘嚭锛屼娇鐢ㄥ紑鍙ｆ潯浠?/p>

 

          a=searchleadcar(cells);

 

          b=searchlastcar(cells);

 

          [cells,v]=border_control(cells,a,b,v,vmax);

 

          i=searchleadcar(cells); %

鎼滅储棣栬溅浣嶇疆

 

          for j=1:i

 

               if i-j+1==n

 

                  [z,v]=leadcarupdate(z,v);