%使用對象方式產生動畫
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