[分享]matlab画图moive函数 做动画-经管之家官网！

免费学术公开课,扫码加入

一个自己写的 还有一个别人的 有兴趣的可以看看

function Solar_system
%code by ariszheng 2008-1-27
%Email:ariszheng@gmail.com

Sun=[0,0,0];
%Mercury %水星
%Venus %金星
%Earth %地球
%火星 %Mars
%木星 %Jupiter
%土星 %Saturn
%天王星 %Uranus
%海王星 %Neptune
%冥王星 %Pluto
%Aris
EdgeMark=10*eye(3);
R=[2.1 11.5 15 17.0 19.0];
R=R';

alpha=0:0.1:2*pi+0.1;
n=length(alpha);
PlateTraceX=zeros(5,n);
PlateTraceY=zeros(5,n);
PlateTraceZ=zeros(5,n);
theta=rand(1,5);
theta=theta';
for i=1:5
for j=1:n
PlateTraceX(i,j)=R(i)*cos(theta(i)*cos(alpha(j)))*sin(alpha(j));
PlateTraceY(i,j)=R(i)*cos(theta(i)*cos(alpha(j)))*cos(alpha(j));
PlateTraceZ(i,j)=R(i)*sin(theta(i)*cos(alpha(j)));
end
end
% plot3(PlateTraceX(1,:),PlateTraceY(1,:),PlateTraceZ(1,:),'b--');
% plot3(PlateTraceX(2,:),PlateTraceY(2,:),PlateTraceZ(2,:),'g--');
% plot3(PlateTraceX(3,:),PlateTraceY(3,:),PlateTraceZ(3,:),'r--');
% plot3(PlateTraceX(4,:),PlateTraceY(4,:),PlateTraceZ(4,:),'c--');
% plot3(PlateTraceX(5,:),PlateTraceY(5,:),PlateTraceZ(5,:),'m--');
RandStart=randint(1,5,[1,n]);
FixPoint=[0,0,20;
0,20,0;
20,0,0;
0,0,-20;
0,-20,0;
-20,0,0];

for i=1:n

plot3(FixPoint(:,1),FixPoint(:,2),FixPoint(:,3),'w.');
hold on;
plot3(Sun(1),Sun(2),Sun(3),'r.','MarkerSize',100);
plot3(PlateTraceX(3,mod(RandStart(3)+i,n)+1)+PlateTraceX(1,mod(RandStart(1)+i,n)+1),PlateTraceY(3,mod(RandStart(3)+i,n)+1)+PlateTraceY(1,mod(RandStart(1)+i,n)+1),PlateTraceZ(3,mod(RandStart(3)+i,n)+1)+PlateTraceZ(1,mod(RandStart(1)+i,n)+1),'g.','MarkerSize',10);
plot3(PlateTraceX(2,mod(RandStart(2)+i,n)+1),PlateTraceY(2,mod(RandStart(2)+i,n)+1),PlateTraceZ(2,mod(RandStart(2)+i,n)+1),'k.','MarkerSize',30);
plot3(PlateTraceX(3,mod(RandStart(3)+i,n)+1),PlateTraceY(3,mod(RandStart(3)+i,n)+1),PlateTraceZ(3,mod(RandStart(3)+i,n)+1),'b.','MarkerSize',40);
plot3(PlateTraceX(4,mod(RandStart(4)+i,n)+1),PlateTraceY(4,mod(RandStart(4)+i,n)+1),PlateTraceZ(4,mod(RandStart(4)+i,n)+1),'c.','MarkerSize',45);
plot3(PlateTraceX(5,mod(RandStart(5)+i,n)+1),PlateTraceY(5,mod(RandStart(5)+i,n)+1),PlateTraceZ(5,mod(RandStart(5)+i,n)+1),'m.','MarkerSize',50);
F(i)=getframe;
hold off
pause(.0333);

end
movie(F,4,3);

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP