%*************************************************
 %程序：EX504.M
 %功能：質點軌跡動畫使用實例
 %*************************************************  
 t=linspace(0,2*pi,1000);             %定義t的線型變量屬性
 x=cos(t);                                 
 y=sin(t);                                  %定義x、y與t之間的函數關系
 plot(x,y),axis square,hold on;      %畫出圖形，以便比較comet是否跟著軌跡點
 comet(x,y,0.03)                           %質點軌跡動畫