%**********************************************************
%程序：EX501.M
%功能：擦除方式顯示動畫實例
%**********************************************************
t=0:0.05:10*pi;                                             %設置t的范圍及取值刻度
h=plot(t,sin(2*t).*exp(-t/5), 'EraseMode','xor');   %設置圖形屬性
set(gcf, 'position',[450,350,350,250],'Menubar','none')  %設置圖形屬性
for i=1:200                                                    %設置循環條件
y=sin(2*t+i/10).*exp(-t/5)                                %定義函數關系
set(h, 'ydata',y);                                           %設置圖形屬性
drawnow;                                                        %完成圖形動畫
end