单叶双曲面与圣诞快乐

GeoGebra 命令及参数

1. Sequence((0, u, (-u^(2)) + (6 * u) - 1 + Lift), u, 0.3, 3, 0.1) → s1
2. Length(s1) → ds1
3. Surface((r * (cos(u) - (v * sin(u)))), (r * (sin(u) + (v * cos(u)))), (h * (v + Lift)), u, 0, (6.28319 * k), v, 0, h1) → e
4. Circle(zAxis, A) → p
5. Circle(zAxis, B) → c
6. Surface((r * (cos(u) - (v * sin(u)))), ((-r) * (sin(u) + (v * cos(u)))), ((-h) * (v - Lift)), u, (-6.28319 * k), 0, v, 0, h1) → f
7. Sequence(((r * (cos((a * n)) - (h1 * sin((a * n))))), (r * (sin((a * n)) + (h1 * cos((a * n))))), ((-h) * (h1 - Lift))), n, 1, i + i_3) → список2
8. Sequence(((r * (cos((a * n)) - (h1 * sin((a * n))))), (r * (sin((a * n)) + (h1 * cos((a * n))))), (h * (h1 + Lift))), n, 1, i) → список1
9. Sequence(((r * (cos((a * n)) - (h1 * sin((a * n))))), (r * (sin((a * n)) + (h1 * cos((a * n))))), ((-h) * (h1 - Lift))), n, 1, i + i_3) → список4
10. Sequence(((r * (cos((a * n)) - (h1 * sin((a * n))))), (r * (sin((a * n)) + (h1 * cos((a * n))))), (h * (h1 + Lift))), n, 1, i + i_3) → список5
11. Sequence(Segment[Element[список1, u], Element[список2, u + i_3]], u, 1, Length[список1]) → список3
12. Sequence(Translate[Element[s1, u], Vector[(0, 0, 0), (0.2 - δ, 0.2 + δ, 0.3)]], u, 1, ds1) → s2
13. Sequence(Segment[Element[список4, u], Element[список5, u + i_3]], u, 1, Length[список4]) → список6
14. Sequence(Segment[Element[s1, u], Element[s2, u]], u, 1, ds1) → u1
15. Sequence(Rotate[Element[u1, u], 72°, Element[s1, u]], u, 1, ds1) → u2
16. Sequence(Rotate[Element[u1, u], 144°, Element[s1, u]], u, 1, ds1) → u3
17. Sequence(Rotate[Element[u1, u], 216°, Element[s1, u]], u, 1, ds1) → u4
18. Sequence(Rotate[Element[u1, u], 288°, Element[s1, u]], u, 1, ds1) → u5
19. RotateText("uStas\;\&\,T.C.", 90°) → надпись01
20. CurveCartesian(0, u, (-u^(2)) + (6 * u) - 1 + Lift, u, -0.25, 3) → φ
21. Sphere(Z, δ + ((0.5 * δ) * (-1)^(j))) → Ω_1
22. Sphere(Z, δ - ((0.5 * δ) * (-1)^(j))) → Ω_2