如何添加跟踪示踪的阴谋

6视图(30天)

显示旧的评论

丹尼尔·艾略特 2018年3月17日

0
链接

这个问题直接联系

//www.tianjin-qmedu.com/matlabcentral/answers/388974-how-to-add-trail-to-a-tracer-of-a-plot

回答: 沃尔特·罗伯森 2018年3月17日

这段代码生成一个地球绕固定中心点(太阳)在3 d。我希望能够添加一条行显示地球的位置但最接近我能得到这打印整个轨道的轨迹线。修复吗?

                         函数Planet_EART
                        
                         % UNTITLED2密谋在椭圆轨道的地球
                        
                         关闭所有
                        
                         中心= (0,0,0);
                        
                         E =结构(“质量”5.97219 e + 24日,“r_planet”6.371 e + 06“C”4.00302 e + 07“卷”1.08321 e + 21日,“Avg_den”1.813756 e-04“Avg_r”1.4959826 e + 011,“一个”1.495978707 e + 11,“b”1.495770086 e + 11,“Avg_orb_v”2.9783 e + 04“T”3.1558118 e + 07“公司”,0.0029);
                        
                         海里= 1
                        
                         T_max = Nm * 3.1557600 e + 07;
                        
                         t = 0:86400: T_max;
                        
                         x = (1) + E.a中心* cos(((2 *π)/外星人)* t);
                        
                         y =中心(2)+后代e.b. * sin(((2 *π)/外星人)* t);
                        
                         z =中心(3)+ (x。* tan (E.Inc));
                        
                         k = 2:长度(x);
                        
                         plot3(中心(1)中心(2),(3)中心“k *’);
                        
                         持有在;
                        
                         英蒂= 20海里
                        
                         p_trace = plot3 (x, y, z);
                        
                         集(p_trace,“可见”,“关闭”);
                        
                         p = plot3 (x (1), y (1)、z (1),“有限公司”);
                        
                         持有从
                        
                         轴([2 e + 11 2 e + 11 2 e + 11 2 e + 11 2 e + 11 2 e + 11))
                        
                         为k = 2:长度(x)
                        
                         p。XData = x (k);
                        
                         p。YData = y (k);
                        
                         p。ZData = z (k);
                        
                         如果k >英蒂
                        
                         p_trace。XData = x (k-indis:长度(x));
                        
                         p_trace。YData = y (k-indis:长度(x));
                        
                         p_trace。ZData = z (k-indis:长度(x));
                        
                         其他的
                        
                         结束
                        
                         drawnow
                        
                         暂停(0.01);
                        
                         结束
                        
                         结束