disout.m

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

function y=disout(code,lnei,y)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% DISOUT
% Display outer-totalistic rule code
% This function-M file is called by RGEN*** and RULEGEN2&3 
%
%	Fist Coded			19  August    1997
%	Last Modefied		23  April  1998
%
%	Copyright (c)
%	T. Suzudo JAERI-CAIL
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% y		: the vertical position of the strings
% code	: outer-totalistic rule-code defined in the program
% lnei	: number of neighbors
dy=0.05;
if nargin==2 y=4*dy; end
fig11=figure(11);
zerocode=bin2dec(code(1:lnei));
x=0;
uicontrol(fig11,'Style','text',...
	'String',['0-code: ' num2str(zerocode)],...
	'Units','normalized',...
	'position',[x,y,0.5,dy]);
onecode=bin2dec(code(lnei+1:2*lnei));
x=0.5;
uicontrol(fig11,'Style','text',...
	'String',['1-code: ' num2str(onecode)],...
	'Units','normalized',...
	'position',[x,y,0.5,dy]);

% Wolframs code
for ii=1:lnei
	tcode(2*ii)=code(lnei-ii+1);
	tcode(2*ii-1)=code(2*lnei-ii+1);
end
wolcode=bin2dec(tcode(1:2*lnei));
y=y-dy;
x=0.25;
uicontrol(fig11,'Style','text',...
	'String',['Wolfram-code: ' num2str(wolcode)],...
	'Units','normalized',...
	'position',[x,y,0.5,dy]);