uprule1.m

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% UPRULE1
% Update Rules for 1-dimensional CA
%
%	Fist Coded			24  April    1997
%	Last Modefied		28  April    1997
%
%	Copyright (c)
%	T. Suzudo JAERI-CAIL
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Note on 15 May
% The outer totalistic rules are added.
if tot(1)==1
	for jj=1:lnei+1
		eval(['tr_code12' num2str(lnei) '(jj)=get(tr_hand(jj),''Value'');']);
	end
elseif tot(1)==2
	for jj=1:lnei*2
		eval(['otr_code12' num2str(lnei) '(jj)=get(tr_hand(jj),''Value'');']);
	end
elseif tot(1)==3
	if lns==2
		if lnei==7
			for jj=1:128
				r_code127(jj)=get(r_hand(jj),'Value');
			end
		end
	end
end