netgrid.txt

一个简单的动网格事例,该程序用MATLAB语言编写.

% 一个简单的动网格事例
close all; 
axes('position',[0.2,0.05,0.4,0.9]);
% Author's email: [e-mail]
set(gcf,'DoubleBuffer','on');hold on;
L=10;N=19;  % N must a integer, which is more than 2.
p=linspace(-4.5,4.5,N);
for k=1:N;
    hor(k)=plot([-4.5,4.5],(1-k)*[1,1]/(N-1)*9,'r');
    ver(k)=plot(p(k)*[1,1],[0,1-L],'r');
end
M=plot([-4.5:4.5],(1-L)*ones(1,10),'g.','markersize',18);
plot([-8,8],[-4.5,-4.5]);plot([-8,8],[-9,-9]);
ylim([-11,1]);xlim([-8,8]);
t=0; k=0;
sos=['while k;',...
    't=t+0.05;',...
    'sc=[0.75+0.25*cos(t*10)];',...
    'for k=1:19;',...
    '    set(hor(k),''YData'',(1-k)*[1,1]*sc/(N-1)*9);',...
    '    set(ver(k),''YData'',[0,1-L]*sc);',...
    'end;',...
    'set(M,''YData'',(1-L)*ones(1,10)*sc);',...
    'pause(0.4);',...
    'end;'];
po1=uicontrol(gcf,'style','push',...
    'unit','normalized','position',[0.74,0.7,0.2,0.08],...
    'string','start','fontsize',12,'callback',[]);
set(po1,'callback',['k=~k;if k==1;',...
        'set(po1,''string'',''stop'');',...
        'else set(po1,''string'',''start'');',...
        'end;',sos]);