旋转体生成与空间曲面

GeoGebra 命令及参数

1. PointIn(g) → A_{1}
2. Line(A, B) → f
3. Circle(f, A_{1}) → c
4. Center(c) → H
5. Point(c) → F
6. Angle(A_{1}, H, F) → α
7. If(z(F) > 0, α, (2 * π) - α) → rot
8. If(rot > (2 * π) - (2 * π / 20), (2 * π) - rot, (2 * π / 20)) → ang'
9. PointIn(g) → B_{1}
10. PointIn(g) → C
11. PointIn(g) → D
12. PointIn(g) → E
13. Spline(l1, 3) → a
14. Rotate(F, ang', f) → F'
15. If(rot < (2 * π / 20), rot, (2 * π / 20)) → ang
16. Rotate(F, (-ang), f) → F''
17. Tangent(F', c) → h,
18. UnitVector(Vector[Direction[h]]) → u
19. Segment(F', G) → i
20. Rotate(F', (2 * π / 20), F') → F''_1
21. Line(H, F''_1) → j
22. Rotate(F', π / 4, j) → F''_2
23. Rotate(G, π / 4, j) → G'
24. Segment(F''_2, G') → i'
25. Mirror(F''_2, h) → I
26. Mirror(G', h) → G''
27. Segment(I, G'') → i''
28. Tangent(F'', c) → k,
29. UnitVector(Vector[Direction[k]]) → v
30. Line(H, F'') → l
31. Segment(F'', J) → m
32. Rotate(F'', π / 4, l) → F'''
33. Rotate(J, π / 4, l) → J'
34. Segment(F''', J') → m'
35. Mirror(F''', l) → L
36. Mirror(J', l) → J''
37. Mirror(F''', k) → M
38. Mirror(J', k) → J''_1
39. Segment(M, J''_1) → m''
40. Surface(a, rot, f) → b
41. CircleArc(H, F, F') → d
42. CircleArc(H, M, F) → e
43. Rotate(a, rot, f) → a'