dispop.m

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  function DISPOP
%
%	Fist Coded			14 April		1997
%	Last Modefied		1   June		1998
%
%	Copyright (c)
%	T. Suzudo JAERI-CAIL
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
figure(10);
plot(cp(1:t+1,:))
% Display rules
uicontrol('position',[240 5 50 25],'string','PSD(LO)',...
    'callback','fftpsd(cp(1:t+1,:),0);');
uicontrol('position',[310 5 50 25],'string','PSD(LI)',...
    'callback','fftpsd(cp(1:t+1,:),1);');
uicontrol('position',[380 5 50 25],'string','dump',...
    'callback',['save c:\ecody\dump.dat cp -ascii -tabs;']);
uicontrol('position',[450 5 50 25],'string','close', ...
     'callback','close(10)');