title1.m

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% TITLE1: Write Title in the 1-dimensional CA graph
%             for Ecodynamica
%
%	Fist Coded			28 March	1997
%	Last Modefied		28 March    1997
%
%	Copyright (c)
%	T. Suzudo JAERI-CAIL
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% load Rule
load c:\matlab\ecody\rule

tit1='';
if r_code1(1) tit1 = ...
		 '111';
end
if r_code1(2) tit1 = [tit1 '  '...
		'110'];
end
if r_code1(3) tit1 = [tit1 '  '...
		 '101'];
end
if r_code1(4) tit1 = [tit1 '  '...
		 '100'];
end
if r_code1(5) tit1 = [tit1 '  '...
		 '011'];
end
if r_code1(6) tit1 = [tit1 '  '...
		 '010'];
end;
if r_code1(7) tit1 = [tit1 '  '...
		'001'];
end;
if r_code1(8) tit1 = [tit1 '  '...
		 '000'];
end
set(timehandle,'String',tit1);