，上一段有错，嗯嗯~~，
function f=clw_contrail(K,ki)
clc,clf;
sita=0:0.01:2*pi;y=cos(3*sita);
polar(sita,y,'g');axis off;hold on;
h=polar(sita(1),y(1));
set(h,'Color',[1 0 0],'Marker', '.', 'MarkerSize',40,'EraseMode','xor');
n=length(sita);i=2;j=1;hold off;
while 1
hold on;polar(sita,y,'g');
h=polar(sita(i),y(i));set(h,'Color',[1 0 0],'Marker', '.', 'MarkerSize',40,'EraseMode','xor');
drawnow;hold off; % <22>
pause(0.0001) % <23>
i=i+1;
if nargin==2 & nargout==1
if(i==ki&j==1);f=getframe(gcf);end % <26>
end
if i>n
i=1;j=j+1;
if j>K;break;end
end
end
这才是我做到最后的版本，问题依旧~~