Sun, earth and moon

Change tMax!

mozgatás

R = 2.9 (slider from 0 to 8, step 0.1)
r = 10 (slider from 0 to 10, step 0.1)
O = Intersect(xAxis, yAxis)
tMax = 24 (slider from 0 to 24, step 0.01)
A: ((R * tMax), R)
d = Circle(A, R)
B: ((R * tMax) - (r * sin(tMax)), R - (r * cos(tMax)))
f = Segment(A, B)
yy: y = 0
k = CurveCartesian(B, t, 0, tMax)