地内行星的运行轨迹（日心与地心模型）

GeoGebra 命令及参数

1. Point(xAxis) → O
2. Point(yAxis) → L
3. Segment(E_2, L) → n
4. Point(n) → S
5. OrthogonalLine(Earth, yAxis) → g
6. Point(g) → F
7. Intersect(xAxis, yAxis) → A
8. Circle(A, r_E) → c
9. Circle(A, r_M) → d
10. Segment(Mars, Earth) → a
11. Segment(E_2, M_2) → b
12. Point(yAxis) → B
13. Segment(E_2, S_2) → e
14. OrthogonalLine(Earth, xAxis) → f
15. Point(f) → D
16. Mirror(D, Earth) → G
17. Intersect(c, yAxis, 2) → H
18. Intersect(c, xAxis, 1) → I
19. Intersect(c, yAxis, 1) → J
20. Intersect(c, xAxis, 2) → K
21. Point(yAxis) → N
22. Point(g) → Q
23. Mod((Angle[Q, Earth, A] - 90°) / (15°), 24) → RA_{Sun}
24. Mod(Angle[B, E_2, M_2] / (15°), 24) → RA_{Mars}
25. If(RA_+ > RA_{Mars}, "Prograde", "Retrograde") → Ret
26. CurveCartesian((r_M * cos(((2 * π) * (Time - i) / T_M))) - (r_E * cos(((2 * π) * (Time - i) / T_E))), (r_M * sin(((2 * π) * (Time - i) / T_M))) - (r_E * sin(((2 * π) * (Time - i) / T_E))), i, 0, Time) → h
27. Circle(A, 0.5) → k
28. Circle(S_2, 0.5) → p
29. Mirror(F, Earth) → C
30. Segment(Earth, C) → i
31. Point(i) → R
32. Segment(R, D) → j
33. Segment(R, G) → l
34. Segment(R, F) → m
35. Segment(S, O) → r
36. Segment(S, N) → s
37. Mirror(O, S) → P
38. Segment(S, P) → a_1
39. Segment(A, Earth) → b_1
40. Polygon(T, U, V, W, Z, A_1, B_1) → poly1, t_1, u, v, w, z, a_2, b_2
41. Polygon(C_1, D_1, E_1, F_1) → poly2, c_1, d_1, e_1, f_1
42. Polygon(G_1, H_1, I_1, J_1) → poly3, g_1, h_1, i_1, j_1
43. CurveCartesian((rv * cos(((2 * π) * (Time - i) / Tv))) - (r_E * cos(((2 * π) * (Time - i) / T_E))), (rv * sin(((2 * π) * (Time - i) / Tv))) - (r_E * sin(((2 * π) * (Time - i) / T_E))), i, 0, Time) → l_1
44. Segment(E, E_2) → k_1
45. CurveCartesian((rmer * cos(((2 * π) * (Time - i) / Tmer))) - (r_E * cos(((2 * π) * (Time - i) / T_E))), (rmer * sin(((2 * π) * (Time - i) / Tmer))) - (r_E * sin(((2 * π) * (Time - i) / T_E))), i, 0, Time) → m_1
46. Segment(E_2, M) → n_1
47. Segment(Mercure, A) → p_1
48. Segment(A, Venus) → q_1