distot.m

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

function distot(code,lnei)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% DISTOT
% Display totalistic rule code
% This function-M file is called by RGEN***
%
%	Fist Coded			19  August    1997
%	Last Modefied		19  August    1997
%
%	Copyright (c)
%	T. Suzudo JAERI-CAIL
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% code	: rule-code defined in the program
% lnei	: number of neighbors
fig11=figure(11);
dy=0.05;
scode=bin2dec(code(1:(lnei+1)/2));
x=0;
y=4*dy;
uicontrol(fig11,'Style','text',...
	'String',['s-code: ' num2str(scode)],...
	'Units','normalized',...
	'position',[x,y,0.5,dy]);
lcode=bin2dec(code((lnei+1)/2+1:lnei+1));
x=0.5;
uicontrol(fig11,'Style','text',...
	'String',['l-code: ' num2str(lcode)],...
	'Units','normalized',...
	'position',[x,y,0.5,dy]);