I am trying to put a point size at the end of my plot. Does not appear?

Questions
,
1

G = 6.6710^-11;
Subscript[m, e] = 5.9710^24;
Subscript[m, m] = 7.35*10^22;
r = 385000000;
Subscript[d, 1] =
Subscript[m, m]/(Subscript[m, m] - Subscript[m, e])*r;
Subscript[d, 2] = r + Subscript[d, 1];
[Omega] = Sqrt[(G (Subscript[m, e] + Subscript[m, m]))/r^3];
Subscript[m, 1] = Subscript[m, e]/(
Subscript[m, e] + Subscript[m, m]);
Subscript[m, 2] = Subscript[m, m]/(
Subscript[m, e] + Subscript[m, m]);
d1 = Subscript[m, 2];
d2 = Subscript[m, 1];
Subscript[r, e] = 6371000;
Subscript[r, m] = 1737000;

s3 = NDSolve[{x’‘[
t] == -(Subscript[m,
1]/((x[t] + d1Cos[t])^2 + (y[t] + d1Sin[t])^2)^(3/
2) (x[t] + d1Cos[t]) +
Subscript[m, 2]/((x[t] - d2Cos[t])^2 + (y[t] - d2Sin[t])^2)^(
3/2) (x[t] - d2Cos[t])),
y’‘[t] == -((
Subscript[m,
1] (y[t] +
d1Sin[t]))/((x[t] + d1Cos[t])^2 + (y[t] + d1Sin[t])^2)^(
3/2) + (Subscript[m,
2] (y[t] -
d2Sin[t]))/((x[t] - d2Cos[t])^2 + (y[t] - d2Sin[t])^2)^(
3/2)), x’[0] == -.5, y’[0] == 1.5, x[0] == .5, y[0] == 0}, {x,
y}, {t, 100}, MaxSteps → 100000]

Manipulate[
Show[{Graphics[{Green,
Disk[{-d1Cos[u], -d1Sin[u]}, 3 Subscript[r, e]/r], Gray,
Disk[{d2Cos[u], d2Sin[u]}, 3 Subscript[r, m]/r]}],
ParametricPlot[Evaluate[{x[t], y[t]} /. s3], {t, 0, u + .5},
PlotStyle → Yellow],
ParametricPlot[Evaluate[{x[t], y[t]} /. s3], {t, u, u + .5},
PlotStyle → {Blue, PointSize[.025]}]}, Background → LightBlue,
PlotRange → {{-v, v}, {-v, v}}], {{u, .1, “time”}, .1,
30}, {{v, 2, “Plot Range”}, 1, 5}]

I don’t know why there is no pint-size instead of the blue line.

2

ParametricPlot is a line plot. If you are trying to control the width of the line use Thickness, for example Thickness[0.25]. If you want a point at the end of the line, draw it with graphics, as you did with other graphics at the top of the Show.