matlab画图之 movie

%%
% this code by ariszheng 2007-7-10
%%

% set length=10;
length=10;
figure;
plot([20,20],[-20,20],[20,-20],[-20,-20],'*');
hold on
%2*pi
%set 2*pi -20 
point=zeros(3,2);
for i = 1:20
    for j=1:20
        %the O point
        point(1,:)=[0,0];
        %the A point
        point(2,1)=length*cos(i*pi/10);
        point(2,2)=length*sin(i*pi/10);
        %the B point
        point(3,1)=point(2,1)+length*cos(j*pi/10);
        point(3,2)=point(2,2)+length*sin(j*pi/10);       
        plot(point(:,1),point(:,2),'r-*');
        F(20*(i-1)+j) = getframe;
    end
end
movie(F)