exa5_31.m

来自「有关matlab r2007的实用教程」· M 代码 · 共 23 行

clear
n=12;
m=moviein(n);
t=0:2/n*pi:4*pi;
x=0:1/n*pi:4*pi;
nj=length(x);
for i=1:n
    for j=1:nj
        y(j)=sin(x(j)-t(i));
    end
    plot(x,y)
    axis([0,4*pi,-1.5,1.5]);
    m(i)=getframe;
    hold on
end
movie(m,20)