uprule2.m

一个利用元胞自动机进行生态仿真的matlab程序

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% UPRULE2
% Update Rules for 2-dimensional CA
%
%	Fist Coded			6  May    1997
%	Last Modefied		13 March    1998
%
%	Copyright (c)
%	T. Suzudo JAERI-CAIL
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Totalistic Rule
if tot(2)==1
	for jj=1:lnei+1
		eval(['tr_code22' num2str(lnei) '(jj)=get(tr_hand(jj),''Value'');']);
	end
% Outer-totalistic Rule
elseif tot(2)==2
	for jj=1:lnei*2
		eval(['otr_code22' num2str(lnei) '(jj)=get(tr_hand(jj),''Value'');']);
	end
% Symmetric Rule (only 5 neighbours)
elseif tot(2)==3
	for jj=1:12
		eval(['sym_code22' num2str(lnei) '(jj)=get(tr_hand(jj),''Value'');']);
	end
end