earthsun5.m

来自「我们的作业」· M 代码 · 共 23 行

 figure('name','Animation'),axis([-1,1,-1,1]),axis square, axis off;
   sun=line(0,0,'marker','O','markersize',80,'markerfacecolor','r','markeredgecolor','r');
   sunname=text(-0.07,0,'sun','color','y');
   x=0.7,y=0;
   earth=line(0,0,'marker','O','markersize',40,'markerfacecolor','b','markeredgecolor','b');
   earthname=text(x-0.1,y,'earth','color','y','erasemode','normal');
   r=0.7,theta=0,framenumber=40;
   m=moviein(framenumber);
   for k=1:framenumber
      theta=0.05*pi*k,x=r*cos(theta),y=r*sin(theta);
      set(earth,'xdata',x,'ydata',y);
      set(earthname,'position',[x-0.1,y]);
      drawnow;
      m(:,k)=getframe;
      pause(0.5);
   end
   title('Press any key for movie','fontsize',16,'position',[0.5,0.8]);
   pause;
   figure('name','Movie'),axis([-1,1,-1,1]),axis square, axis off;
   frameperscond=5,times=1;
   movie(m,times,frameperscond);
   clear m;