r_0 = [-20;0;0];
t = 1000;
r_f1 = [-3;0;0];
r_f2 = [-1;0;0];
r_f3 = [-0.5; 0; 0];
r_f4 = [0;0;0];
function [y] = Orbit(r_0, r_f)
global n t F
[v_0p, ~, ~] = speedcalc(t, n, r_f, r_0);
tspan = [0 t];
iniCon = [r_0, v_0p];
[~, y] = ode45(@(t, x) sys(t, x, n, F), tspan, iniCon);
end
function dx = sys(t, x, n, F)
mc = 140;
B = [0 0 0;
0 0 0;
0 0 0;
1/mc 0 0;
0 1/mc 0;
0 0 1/mc];
B1 = B*F;
A = [0 0 0 1 0 0;
0 0 0 0 1 0;
0 0 0 0 0 1;
3*n^2 0 0 0 2*n 0;
0 0 0 -2*n 0 0;
0 0 n^2 0 0 0];
dx = A*x + B1;
end
[y] = Orbit(r_0, r_f);
[y1] = Orbit(y(length(y), 1:3)', r_f1);
[y2] = Orbit(y1(length(y1), 1:3)', r_f2);
[y3] = Orbit(y2(length(y2), 1:3)', r_f3);
[y4] = Orbit(y3(length(y3), 1:3)', r_f4);
0 Comments
Sign in to comment.