uprule.m

来自「一个利用元胞自动机进行生态仿真的matlab程序」· M 代码 · 共 17 行

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% UPRULE
% Update Rules for 1-dimensional CA
%
%	Fist Coded			24  April    1997
%	Last Modefied		24  April    1997
%
%	Copyright (c)
%	T. Suzudo JAERI-CAIL
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if ns(1)==2
	if nei(1)==7
		for jj=1:128
			r_code127(jj)=get(r_hand(jj),'Value');
		end
	end
end