Sun, earth and moon

Change tMax!

mozgatás

R = 5 (slider from 0 to 5, step 0.1)
r = 2.5 (slider from 0 to 5, step 0.1)
m = 0 (slider from 0 to 20, step 1)
O = Intersect(xAxis, yAxis)
c = Circle(O, R)
tMax = 3.39 (slider from 0 to 6.283185307179586, step 0.01)
A: ((R * cos(tMax)), (R * sin(tMax)))
d = Circle(A, r)
B: ((R * cos(tMax)) + (r * cos((m * tMax))), (R * sin(tMax)) + (r * sin((m * tMax))))
k = CurveCartesian((R * cos(t)) + (r * cos((m * t))), (R * sin(t)) + (r * sin((m * t))), t, 0, tMax)