【 * 例 10.7.5 .3-1 】制作紅色小球沿一條帶封閉路徑的下旋螺線運動的實時動畫。
（1）編寫函數文件 anim_zzy1.m
[anim_zzy1.m]
function f=anim_zzy1(K,ki)
% anim_zzy1.m 演示紅色小球沿一條封閉螺線運動的實時動畫
% 僅演示實時動畫的調用格式為 anim_zzy1(K)
% 既演示實時動畫又拍攝照片的調用格式為 f=anim_zzy1(K,ki)
% K 紅球運動的循環數（不小于 1 ）
% ki 指定拍攝照片的瞬間，取 1 到 1034 間的任意整數。
% f 存儲拍攝的照片數據，可用 image(f.cdata) 觀察照片。
% 產生封閉的運動軌線
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 % 繪制曲線
% 定義 " 線 " 色、 " 點 " 型（點）、點的大小（ 40 ）、擦除方式（ xor)
h=line( 'Color' ,[1 0 0], 'Marker' , '.' , 'MarkerSize' ,40, 'EraseMode' , 'xor' );
% 使小球運動
n=length(x);i=1;j=1;
while 1 % 無窮循環
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 % 僅當輸入宗量為 2 、輸出宗量為 1 時，才拍攝照片
if (i==ki&j==1);f=getframe(gcf); end % 拍攝 i=ki 時的照片 <25>
end
if i>n
i=1;j=j+1;
if j>K; break ; end
end
end
（2）在指令窗中運行以下指令，就可看到實時動畫圖形。
f=anim_zzy1(2,450);
（3）顯示拍攝的照片
image(f.cdata),axis off
圖 10.7.5 .3-1 紅球沿下旋螺線運動的瞬間照片
???? 日前，日本沖繩縣的大學生成功設計一種新型機器人盔甲，這種氣動動力裝置比電影《...
美國東部時間2月24日16點53分，發現號航天飛機順利升空，此次發現號一個重要的任務是攜...
德國埃莫克法蘭肯（EMUGE-FRANKEN）是一家擁有80多年歷史的集團公司，在螺紋加工、銑削...
當前，在加工制造產業鏈中，我國制造業仍處于低端，扮演為別人打工的角色。在重大工程...
全世界最漂亮的政商女強人可以齊心協力地干革命，卻不能心平氣和地分享權力，這似乎是...
