牛顿引力动力学简述

GeoGebra 命令及参数

1. Angle((fucosϕ(θ_0 - w), fusinϕ(θ_0 - w))) → ϕt0
2. Intersect(g, tit, (0, 0)) → Eg2
3. Intersect(g, tia, (0, 0)) → Eg
4. Derivative(g) → gd
5. Segment(A_1, A_2) → axa
6. Midpoint(axa) → C
7. Segment(Pa', Mirror[Pa', axa]) → hha
8. Angle(A_2, C, Pa') → ϕva
9. Segment(C, Pa') → rc
10. Segment(Pt', Mirror[Pt', axa]) → hht
11. Angle(A_2, C, Pt') → ϕvt
12. CurveCartesian(((a * (1 - e^(2)) / (1 + (e * cos(θ - w)))); θ), θ, 0, (2 * π)) → el0
13. Circle(C, a) → Ci
14. Angle((fucosθ(ϕa), fusinθ(ϕa))) → θa
15. Angle((fucosθ(ϕt), fusinθ(ϕt))) → θt
16. Vector(Pt0, Pt0 + (vsca * ((vr0; θ_0) + (vθ0; θ_0 + π / 2)))) → vv0
17. Segment(C, Pt') → rc_t
18. Vector(Pt', Pt' + ((vvci * vsca) * ((-sin(ϕt + w)), cos(ϕt + w)))) → vvϕt
19. Angle((fucosθ(ϕt), fusinθ(ϕt))) → θtrad_{temp}
20. Segment(F_2, Pt) → re_t
21. Tangent(Pt, el0) → tgcheck
22. Angle(xAxis, re_t) → θtcheckggb
23. Vector(Pt, Pt + (vsca * (((rθfu(θt + w) * θ'(ϕt)); θt + w + π / 2) + ((rθfu'(θt + w) * θ'(ϕt)); θt + w)))) → vvPt
24. Segment(Pt', Pt) → segPP'
25. Vector(Eg2, Psi) → vpsi
26. Vector(Psit, Eg2) → vpsit
27. Segment(B_1, B_2) → axb
28. Circle(F_2, a / 20) → sun