clc;clear;clf; a = 314*exp(2); mu = 398600.4418; % 地球引力常数 t0 = 0; % 初始时间 tf = 2*pi*sqrt(a^3/mu); % 终止时间 dt = (tf - t0)/1000; % 时间步长 r0 = [14.4601 2.3155 12.9992]'; % 初始位置矢量 v0 = [-108.9716 20.9281 117.4898]'; % 初始速度矢量 y0 = [r0; v0]; % 定义ODE函数 odedef = @(t,y) [y(4:6); -mu/norm(y(1:3))^3.*y(1:3)]; % 初始化结果数组 y_all = zeros(10000, 6);y_all(1,:) = y0'; % 求解ODE方程 for i = 2:10000 [t,y] = ode45(odedef, [(i-1)*dt, i*dt], y_all(i-1,:)); % 存储结果 y_all(i:i+size(y,1)-1,:) = y; if size(y_all, 1) >= 10*size(y,1) break; end end % 绘制轨道图 figure; for i = 1:10 idx = (i-1)*size(y,1)+1:i*size(y,1); plot3(y_all(idx,1), y_all(idx,2), y_all(idx,3)); hold on; end axis equal; grid on; xlabel('X轴'); ylabel('Y轴'); zlabel('Z轴'); title('地球卫星轨道图');此代码运行后只有一个轨道

这段代码是用 MATLAB 编写的，用于求解地球引力下的卫星轨道。其中，通过定义初始位置矢量和速度矢量，求解ODE方程得到卫星在地球引力下的运动轨迹。绘制轨道图的代码使用了 plot3 函数，在三维坐标系中绘制了卫星的轨道。根据代码中的参数设置，只绘制了一条轨道。如果想要绘制多个轨道，可以修改代码中的绘图循环部分，增加轨道的数量。