三维空间中的圆 by Patrick Clément

GeoGebra 命令及参数

1. CurveCartesian((((a + (e * sin((d * t)))) * cos((b * t))) * cos(t)), (((a + (e * sin((d * t)))) * cos((b * t))) * sin(t)), ((a + (e * sin((d * t)))) * sin((b * t))), t, 0, 6.28319) → traj
2. Point(traj, p) → A
3. Point(traj, p + k - floor(p + k)) → B
4. Point(traj, p + (7 * k) - floor(p + (7 * k))) → H
5. Point(traj, p + (3 * k) - floor(p + (3 * k))) → D
6. Point(traj, p + (2 * k) - floor(p + (2 * k))) → C
7. Point(traj, p + (4 * k) - floor(p + (4 * k))) → E
8. Point(traj, p + (5 * k) - floor(p + (5 * k))) → F
9. Point(traj, p + (6 * k) - floor(p + (6 * k))) → G
10. Length(P) → lp
11. Sequence((i, x(Element[P, i])), i, 1, lp) → Px
12. FitPoly(Px, deg) → fx
13. Sequence((i, y(Element[P, i])), i, 1, lp) → Py
14. FitPoly(Py, deg) → fy
15. Sequence((i, z(Element[P, i])), i, 1, lp) → Pz
16. FitPoly(Pz, deg) → fz
17. CurveCartesian(fx(t), fy(t), fz(t), t, 1, Length[P]) → sq
18. Sequence((fx(i), fy(i), fz(i)), i, 1, lp, lp / n) → LP
19. Sequence(Segment[Element[LP, i], Element[LP, i + 1]], i, 1, n) → LS
20. Sphere((0, 0, 0), a) → sph
21. Sequence(Circle[Element[LP, i], (r * (1 - cos(((i * cf) * π / n)))), Element[LS, i]], i, 1, n, 2) → LC
22. Sequence(Circle[Element[LP, i], (r * (1 - cos(((i * cf) * π / n)))), Element[LS, i]], i, 2, n, 2) → LC'