直纹曲面（Ruled Surfaces）的几何构造与展示

GeoGebra 命令及参数

1. Line(A, zAxis) → g
2. Circle(A, R, xOyPlane) → c
3. Point(c) → C
4. Rotate(C, a, A) → B
5. Sequence(Rotate[B, k, g], k, 0, (2 * π / n), 1 / (m + n)) → l6
6. Point(g) → D
7. Sequence(Translate[B, Vector[(i * Vector[B, D])]], i, 0, 1, 1 / Length[l6]) → l2
8. Rotate(B, (2 * π / n), A) → B'
9. Sequence(Translate[D, Vector[(i * Vector[D, B'])]], i, 0, 1, 1 / Length[l6]) → l4
10. Segment(B', B) → f
11. Mirror(l6, f) → l6'
12. Sequence(Segment[Element[l6', i], Element[l2, i]], i, 1, Length[l2]) → l3
13. Sequence(Segment[Element[l6', i], Element[l4, i]], i, 1, Length[l4]) → l5
14. Join(Sequence[Rotate[l5, i, g], i, 0, (2 * π), (2 * π / n)]) → l1
15. Sequence(Rotate[l3, i, g], i, 0, (2 * π), (2 * π / n)) → l7