untitled.asv

来自「《MATLAB 7.0编程基础》第4章 （源码实例）主要讲解MATLAB的符号运」· ASV 代码 · 共 28 行

clear all;

r0=1;
th = [0:pi/50:2*pi]';
x = cos(th)*r0;
y = sin(th)*r0;
cnum=7;
rc=0.3;cleft=-1; cright=1;
for j=1:50
   clf
   axis([-1 1 -1 1]);
   axis('equal'),xlabel('x'), ylabel('y');
   plot(x,y);
   hold on;
    a=cleft+(cright-cleft)*rand(1,cnum);
    b=cleft+(cright-cleft)*rand(1,cnum);
    for i=1:cnum
        axis([-1 1 -1 1]);
        axis('equal'),xlabel('x'), ylabel('y');
        cx = a(i)+cos(th)*rc;
        cy = b(i)+sin(th)*rc;
        plot(cx,cy);
    end 
    pause(0.001)
end 
hold off;
%plot(x,y,x,y1);