function f=anim_zzy1(K,ki)
% anim_zzy1.m		演示紅色小球沿一條封閉螺線運(yùn)動(dòng)的實(shí)時(shí)動(dòng)畫
% 僅演示實(shí)時(shí)動(dòng)畫的調(diào)用格式為  					anim_zzy1(K)			
% 既演示實(shí)時(shí)動(dòng)畫又拍攝照片的調(diào)用格式為		f=anim_zzy1(K,ki)		
% K						紅球運(yùn)動(dòng)的循環(huán)數(shù)（不小于1）
% ki				指定拍攝照片的瞬間，取 1 到 1034 間的任意整數(shù)。
% f						存儲(chǔ)拍攝的照片數(shù)據(jù)，可用image(f.cdata)觀察照片。
% 產(chǎn)生封閉的運(yùn)動(dòng)軌線
t1=(0:1000)/1000*10*pi;x1=cos(t1);y1=sin(t1);z1=-t1;
t2=(0:10)/10;x2=x1(end)*(1-t2);y2=y1(end)*(1-t2);z2=z1(end)*ones(size(x2));
t3=t2;z3=(1-t3)*z1(end);x3=zeros(size(z3));y3=x3;
t4=t2;x4=t4;y4=zeros(size(x4));z4=y4;
x=[x1 x2 x3 x4];y=[y1 y2 y3 y4];z=[z1 z2 z3 z4];
plot3(x,y,z,'b'),	axis off		% 繪制曲線
% 定義"線"色、"點(diǎn)"型（點(diǎn)）、點(diǎn)的大小（40）、擦除方式（xor)
h=line('Color',[1 0 0],'Marker','.','MarkerSize',40,'EraseMode','xor');
% 使小球運(yùn)動(dòng)
n=length(x);i=1;j=1;
while 1													% 無(wú)窮循環(huán)
	set(h,'xdata',x(i),'ydata',y(i),'zdata',z(i));	% 小球位置
   drawnow;												% 刷新屏幕				<21>
   pause(0.0005)											% 控制球速				<22>
   i=i+1;
   if nargin==2 & nargout==1	% 僅當(dāng)輸入宗量為2、輸出宗量為1時(shí)，才拍攝照片
      if(i==ki&j==1);f=getframe(gcf);end				% 拍攝i=ki時(shí)的照片	<25>
   end
   if i>n 
      i=1;j=j+1;
      if j>K;break;end
   end
end