Bolygó_1Epiciklikus sugara

Bolygó_1Deferens periódusideje

Bolygó_1Epiciklikus periódusideje

Bolygó_1 látszólagos helye az égen

Bolygó_2Deferens periódusideje

Bolygó_2Epiciklikus sugara

Bolygó_2Epiciklikus periódusideje

Bolygó_2 lászólagos helye az égen

Föld = (6.220696908022078, 10.348592891515201)
A = Point(Circle[Föld, 3.0])
b = Segment(Föld, A)
Bolygó_1Deferens = Circle(Föld, A)
B1ER_1 = 2.2 (slider from 0 to 5, step 0.1)
D = Point(Bolygó_1Deferens)
Idő = 5.5 (slider from 0 to 72, step 0.1)
B1DPeriódusidő_1 = 0.1 (slider from 0 to 1, step 0.01)
D'_1 = Rotate(D, B1DPeriódusidő_1 * Idő, Föld)
α = Angle(D, Föld, D'_1)
Bolygó_1Epiciklikus = Circle(D'_1, B1ER_1)
B1EPeriódusIdő = 0.48 (slider from 0 to 1, step 0.01)
B = Point(Circle[D'_1, B1ER_1])
a = Segment(D'_1, B)
Bolygó_1 = Rotate(B, B1EPeriódusIdő * Idő, D'_1)
β = Angle(B, D'_1, Bolygó_1)
C = (6, 12)
Ekliptika = Circle(Föld, 10.0)
γ = Angle(D, Föld, Bolygó_1)
c = Ray(Föld, D)
E = Intersect(Ekliptika, c, 1.0)
d = Ray(Föld, Bolygó_1)
F = Intersect(Ekliptika, d, 1.0)
e = CircleArc(Föld, E, F)
B2DPeriódusidő = 0.15 (slider from 0 to 1, step 0.01)
Bolygó_2Deferens = Circle(Föld, 4.0)
D' = Rotate(D, B2DPeriódusidő * Idő, Föld)
δ = Angle(D, Föld, D')
f = Ray(Föld, D')
G = Intersect(Bolygó_2Deferens, f, 1.0)
B2ER = 1.5 (slider from 0 to 5, step 0.1)
Bolygó_2Epiciklikus = Circle(G, B2ER)
H = Point(Circle[G, B2ER])
g = Segment(G, H)
B2EPeriódusIdő = 0.63 (slider from 0 to 1, step 0.01)
Bolygó_2 = Rotate(H, B2EPeriódusIdő * Idő, G)
ε = Angle(H, G, Bolygó_2)
h = Ray(Föld, Bolygó_2)
I = Intersect(Ekliptika, h, 1.0)
k = CircleArc(Föld, E, I)
J = Point(e)