[求助]绘图过程能不能控制？

maorain

比如要画一个正弦曲线，能不能通过PAUSE来控制每一次画的点数。比如没按一下键画1个点或者是画1/4周期的曲线？谢谢！

happy

<P>[anim_zzy1.m]</P>
<P>function f=anim_zzy1(K,ki)</P>
<P>% anim_zzy1.m 演示红色小球沿一条封闭螺线运动的实时动画</P>
<P>% 仅演示实时动画的调用格式为 anim_zzy1(K)</P>
<P>% 既演示实时动画又拍摄照片的调用格式为 f=anim_zzy1(K,ki)</P>
<P>% K 红球运动的循环数（不小于 1 ）</P>
<P>% ki 指定拍摄照片的瞬间，取 1 到 1034 间的任意整数。</P>
<P>% f 存储拍摄的照片数据，可用 image(f.cdata) 观察照片。</P>
<P>% 产生封闭的运动轨线</P>
<P>t1=(0:1000)/1000*10*pi;x1=cos(t1);y1=sin(t1);z1=-t1;</P>
<P>t2=(0:10)/10;x2=x1(end)*(1-t2);y2=y1(end)*(1-t2);z2=z1(end)*ones(size(x2));</P>
<P>t3=t2;z3=(1-t3)*z1(end);x3=zeros(size(z3));y3=x3;</P>
<P>t4=t2;x4=t4;y4=zeros(size(x4));z4=y4;</P>
<P>x=[x1 x2 x3 x4];y=[y1 y2 y3 y4];z=[z1 z2 z3 z4];</P>
<P>plot3(x,y,z, 'b' ), axis off % 绘制曲线</P>
<P>% 定义 " 线 " 色、 " 点 " 型（点）、点的大小（ 40 ）、擦除方式（ xor)</P>
<P>h=line( 'Color' ,[1 0 0], 'Marker' , '.' , 'MarkerSize' ,40, 'EraseMode' , 'xor' );</P>
<P>% 使小球运动</P>
<P>n=length(x);i=1;j=1;</P>
<P>while 1 % 无穷循环</P>
<P>set(h, 'xdata' ,x(i), 'ydata' ,y(i), 'zdata' ,z(i)); % 小球位置</P>
<P>drawnow; % 刷新屏幕 &lt;21&gt;</P>
<P>pause(0.0005) % 控制球速 &lt;22&gt;</P>
<P>i=i+1;</P>
<P>if nargin==2 &amp; nargout==1 % 仅当输入宗量为 2 、输出宗量为 1 时，才拍摄照片</P>
<P>if (i==ki&amp;j==1);f=getframe(gcf); end % 拍摄 i=ki 时的照片 &lt;25&gt;</P>
<P>end</P>
<P>if i&gt;n</P>
<P>i=1;j=j+1;</P>
<P>if j&gt;K; break ; end</P>
<P>end</P>
<P>end</P>
<br>
<P>（2）在指令窗中运行以下指令，就可看到实时动画图形。 </P>
<P>f=anim_zzy1(2,450);<BR><BR><FONT color=#0000ff size=3><STRONG>参考这个自己写吧，把里边的<FONT color=#ff0000>pause(0.0005) % 控制球速</FONT>改成<FONT color=#ff0000>pause</FONT>就行了</STRONG></FONT></P>

maorain

谢谢，您真是高人呀！

xueyi

厉害，原来程序还能这样运行[em01]