[½»Á÷] ¡¾Ô­´´¡¿Õðµ´µÄСÇò¶¯»­ÑÝʾ(matlabÔ´Âë) ÒÑÓÐ1È˲ÎÓë

function bai
%Õðµ´µÄСÇò¶¯»­ÑÝʾ
%EDIT BY PSL@CSU
%QQ£º547423688
%Email£ºanyuezhiji@qq.com
clear
clc
savemov=0;%ÊÇ·ñÉú³ÉaviÎļþ£¬1ΪÊÇ£¬0Ϊ·ñ
if(savemov==1)
mov=avifile('bai.avi');
end
t=0:pi/18:4*pi;
n=length(t);
y=cos(t);      %Õ𵴹켣£¬¿É¸Ä±äº¯Êý
line1=plot(t,y,'b');  %»æÖÆÇúÏß
axis([0 4*pi -1.5 1.5]);
hold on;
title('Õðµ´µÄСÇò¶¯»­ÑÝʾ£¨By pslpsl£©');
%ÏÂÃæÀûÓÃÏß»æÖÆСÇò£¬²¢¶¨ÒåÏßµÄÑÕÉ«£¬ÏßÐδóСºÍ²Á³ý·½Ê½
%СÇò¶ÔÏóµÄ¾ä±ú´æ·ÅÔÚ±äÁ¿hÖУ¬ºóÃæÀûÓÃÕâ¸ö¾ä±ú¶ÔСÇò¿ØÖÆ
h=line('color',[0 0.5 0.5],'linestyle','.','markersize',50,'erasemode','xor');
%×î¹Ø¼üµÄÒ»µã°Ñ²Á³ý·½Ê½ÉèΪ'xor',ÕâÑù²ÅÄÜʵÏֺõĶ¯»­Ð§¹û
%ÏÂÃæΪ½Å±¾Îļþ
i=1;
k=1;%¿ØÖÆתÏò
count=1;
j=2;%Õðµ´´ÎÊý j/2´Î
line2=plot(t(1),y(1),'r');%´æ·ÅÕðµ´Ïß
while count
delete(line2);%»òcla %ɾ³ýÕðµ´Ïß
temp=rand(1)-0.5;%Ëæ»úÕðµ´
set(h,'xdata',t(i),'ydata',y(i)+temp);
line2=plot([t(i),t(i)],[y(i),y(i)+temp],'r');
pause(0.01);
%drawnow;%Ë¢ÐÂ
if(savemov==1)
f=getframe(gcf);
mov=addframe(mov,f);
end
i=i+k;
count=count+1;
%Åöµ½·´ÉäµãתÏò
if(i==1|i==n)
    k=-k;
end
end
hold off;
if(savemov==1)
mov=close(mov);
end
%EDIT BY PSL@CSU
%QQ£º547423688
%Email£ºanyuezhiji@qq.com