ex0434.m

用matab写的一些源程序

%使用对象方式产生动画
x=0:0.1:20;
y=1-1/sqrt(1-0.3^2)*exp(-0.3*x).*sin(sqrt(1-0.3^2)*x+acos(0.3));
plot(x,y)
h=line('color','red','marker','.','markersize',40,'erasemode','xor');
%定义红色的小球
for i=1:length(x)
    set(h,'xdata',x(i),'ydata',y(i));  %设置小球的新位置
    pause(0.005)  %暂停0.005秒
    drawnow
end