matlab动画-流星雨

clc;%清屏 ysy=figure('name','一起去看流星雨');%标题 axis([0 80 0 80]); hold on; axis off; set(ysy,'color','k');%设置背景为黑色 %%%%%以下是画月亮 t6=-pi/3:0.01:0; x6=60+10*cos(t6); y6=60+10*sin(t6); plot(x6,y6,'color',[1 1 0]);%画第一条弧线 t7=-pi*2/3:0.01:pi/3; x7=67.5+5*cos(t7); y7=60-sqrt(3)*5/2+5*sin(t7); plot(x7,y7,'color',[1 1 0]);%画第二条弧线 fill([x6,x7],[y6,y7],'y');%将月亮填充为黄色 %%%%%以下为画五角星 line([30,33,34,35,38,36,38,34,30,32,30],[60,60,62.5,60,60,59,56.5,58,56.5,59,60],... 'color','b','MarkerEdgeColor','b','linewidth',2);%画五角星 fill([30,33,34,35,38,36,38,34,30,32,30],... [60,60,62.5,60,60,59,56.5,58,56.5,59,60],'b');%填充五角星 %%%%%以下是画人 %%%%%%%男 t8=0:0.01:2*pi; x8=40+2*cos(t8); y8=24+4*sin(t8); plot(x8,y8,'b','linewidth',2);%%%%%画头 line([40,40.8],[26,26],'color','y');%左眼 line([41.4,41.8],[26,26],'color','y');%右眼 line(41.3,24.1,'color','y','linestyle','.','erasemode','xor','markersize',5);%鼻 line([41,41.8],[22,22],'color','y');%嘴 line([39.8,39.8,38.3,38.3,41.7,41.7,40.8,40.8,39.8],[20,19,18.7,0,0.5,18.7,19,20,20],... 'color','b','linewidth',2);%躯干 line([41.7,41.7],[13.4,16.2],'color','k','linewidth',2)%清除被手臂挡住的线 line([40.7,40.7],[0.35,8.7],'color','b','linewidth',2);%用一条线将矩形分开，就是腿 line([40,41,44,45,41,40],[18.2,16,18.8,17.8,13.1,15.3],'color','b','linewidth',2);%%胳膊 %%%%%%%%女 t9=0:0.01:2*pi; x9=50+2*cos(t8); y9=22+4*sin(t8); plot(x9,y9,'color','m','linewidth',2);%%%%%画头 line([50,49.2],[24,24],'color','y');%左眼 line([48.2,48.6],[24,24],'color','y');%右眼 line(48.7,22.1,'color','y','linestyle','.','erasemode','xor','markersize',5);%鼻 line([48.2,49.2],[20,20],'color','y');%嘴 line([49.8,49.8,48.3,48.3,46.3,48.3,48.3,51.7,51.7,53.7,51.7,51.7,50.8,50.8],... [18,17,16.7,8,4,4,0.5,0,4,4,8,16.7,17,18],'color','m','linewidth',2);%躯干 line([48.3,48.3],[14.1,16.1],'color','k','linewidth',2)%清除挡住的线 line([49.3,49.3],[0.35,4],'color','m','linewidth',2);%腿 line([50,47.8,45.8,45,47.8,50],[16.4,16,18.4,17.8,14,14.4],'color','m','linewidth',2);%%胳膊 b1=text(20,70,'哇塞！流星雨来了！','fontsize',16,'color','r');%输入字 pause(1);%停顿一秒 delete(b1);%删除b1 b2=text(22,68,'听说...','fontsize',16,'color','r'); pause(1); delete(b2); b3=text(24,66,'在流星雨下许的愿，一定会实现！','fontsize',16,'color','r'); pause(2); delete(b3); b4=text(54,28,'愿我们相伴一生！','fontsize',16,'color','r'); b5=text(10,30,'愿执子之手，','fontsize',16,'color','r'); b6=text(12,22,'与子偕老！','fontsize',16,'color','r'); a1=line(5,70,'color','w','linestyle','.','erasemode','xor','markersize',10);%流星1 a2=line(5,65,'color','w','linestyle','.','erasemode','xor','markersize',10);%流星2 a3=line(5,60,'color','w','linestyle','.','erasemode','xor','markersize',10);%流星3 a4=line(5,55,'color','w','linestyle','.','erasemode','xor','markersize',10);%流星4 a5=line(5,50,'color','w','linestyle','.','erasemode','xor','markersize',10);%流星5 x1=5;%流星1的初始横坐标 y1=70;;%流星1的初始纵坐标 x2=5; y2=65; x3=5; y3=60; x4=5; y4=55; x5=5; y5=50; dt1=0.4375;%递增量 dt2=0.1;%递增量 t1=x1; t2=x2; t3=x3; t4=x4; t5=x5; r1=1;%画心形中的小圆半径 r2=4;%画心形中的大圆半径 c1=39;%小圆1的初始横坐标 d1=33;%小圆1的初始纵坐标 c2=41;%小圆2的初始横坐标 d2=33;%小圆2的初始纵坐标 c3=38;%大圆1的初始横坐标 d3=33;%大圆1的初始纵坐标 c4=42;%大圆2的初始横坐标 d4=33;%大圆2的初始纵坐标 f1=c1+10;%第二个心形中小圆1的横坐标 f2=c2+10;%第二个心形中小圆2的横坐标 f3=c3+10;%第二个心形中大圆1的横坐标 f4=c4+10;%第二个心形中大圆2的横坐标 %第二个心形中的纵坐标跟第一个共用 t=0.09;%递增量 t10=0:0.01:pi;%设置弧度 t11=-pi*11/30:0.01:0; t12=-pi:0.01:-pi*19/30; %流星雨开始及心形移动 while t5<80 %循环开始 t1=t1+dt1; t2=t2+dt1; t3=t3+dt1; t4=t4+dt1; t5=t5+dt1; x1=t1; x2=t2; x3=t3; x4=t4; x5=t5; y1=y1+dt2; y2=y2+dt2; y3=y3+dt2; y4=y4+dt2; y5=y5+dt2; set(a1,'xdata',[x1,x1],'ydata',[y1,y1]);%流星1的移动 set(a2,'xdata',[x2,x2],'ydata',[y2,y2]);%流星2的移动 set(a3,'xdata',[x3,x3],'ydata',[y3,y3]);%流星3的移动 set(a4,'xdata',[x4,x4],'ydata',[y4,y4]);%流星4的移动 set(a5,'xdata',[x5,x5],'ydata',[y5,y5]);%流星5的移动 c1=c1+t/3.2; c2=c2+t/3.2; c3=c3+t/3.2; c4=c4+t/3.2; f1=f1-t/3.2; f2=f2-t/3.2; f3=f3-t/3.2; f4=f4-t/3.2; d1=d1+t; d2=d2+t; d3=d3+t; d4=d4+t; c5=c1+r1*cos(t10); d5=d1+r1*sin(t10); f5=f1+r1*cos(t10); c6=c2+r1*cos(t10); d6=d2+r1*sin(t10); f6=f2+r1*cos(t10); c7=c3+r2*cos(t11); d7=d3+r2*sin(t11); f7=f3+r2*cos(t11); c8=c4+r2*cos(t12); d8=d4+r2*sin(t12); f8=f4+r2*cos(t12); plot(c5,d5,'r');%小圆弧1 plot(c6,d6,'r');%小圆弧2 plot(c7,d7,'r');%大圆弧1 plot(c8,d8,'r');%大圆弧2 plot(f5,d5,'r');%第二个心形小圆弧1 plot(f6,d6,'r');%小圆弧2 plot(f7,d7,'r');%大圆弧1 plot(f8,d8,'r');%大圆弧2 pause(0.01);%停顿0.01秒 drawnow; fill([c1-1.1,c2+1.1,c2+1.1,c1-1.1],[d1-4,d1-4,d2+1,d2+1],'k');%除去显示出来的心形1，以便移动 fill([f1-1.1,f2+1.1,f2+1.1,f1-1.1],[d1-4,d1-4,d2+1,d2+1],'k');%除去显示出来的心形2，以便移动 end;%循环结束 plot(c5,d5,'r'); plot(c6,d6,'r'); plot(c7,d7,'r'); plot(c8,d8,'r');%显示最后的心形