Here you go!
syms x(t) y(t) z(t)
a = 6793.137;
mu = 398600.5;
n = sqrt(mu/a^3);
t0 = 0;
tf = 5400;
dx=diff(x,t);
dy=diff(y,t);
dz=diff(z,t);
c1 = -0.066538073651029;
c2 =0.186268907590665;
c3 =0.000003725378152;
c4 = -0.000052436200437;
c5 =0.000154811363681;
c6 = 0.000210975508077;
y0 = [c1 c2 c3 c4 c5 c6];
eq1 = diff(x,2) == 2*n*dy + 3*(n^2)*x;
eq2 = diff(y,2) == -2*n*dx;
eq3 = diff(z,2) == (-n^2)*z;
vars = [x(t); y(t); z(t)]
V = odeToVectorField([eq1,eq2,eq3])
M = matlabFunction(V,'vars', {'t','Y'});
interval = [t0 tf];
ySol = ode45(M,interval,y0);
tValues = linspace(interval(1),interval(2),1000);
yValues = deval(ySol,tValues,1);
plot(tValues,yValues)
The graph of the first position looks like below:
Best Answer