%********************************************************
 %程序：EX507.M
 %功能：錄制avi文件
 %********************************************************
aviobj=avifile('animation.avi','fps',3);  %使用avifile函數建立AVI文件
for k=1:25                                         %建構動畫文件的圖片
h=plot(fft(eye(k+16)));
set(h, 'EraseMode','xor');                    %設置動畫屬性
axis equal;                                        %調整坐標軸
frame=getframe(gca);
aviobj=addframe(aviobj,frame);              %將獲取的圖片放入AVI文件
end
aviobj=close(aviobj);                           %關閉句柄值為aviobj的AVI文件，以完成錄制