牟合方盖：由圆锥曲线生成的立体曲面与截线周长展示

GeoGebra 命令及参数

1. Point(xAxis) → D
2. Ray(C, D) → f
3. Point(f) → A
4. CurveCartesian(B + (r * (abs(cos(t)), cos(t), sin(t))), t, 0, (2 * π)) → a
5. CurveCartesian(A + (r * (0, cos(t), sin(t))), t, 0, (2 * π)) → b
6. Surface(((1 - u) * a(v)) + (u * b(v)), u, 0, 1, v, 0, (2 * π)) → c
7. Sequence(Rotate[l1, (i * π / 2)], i, 0, 3) → l2
8. Cylinder(A, F, r) → d, e, g, h
9. Cylinder(G, E, r) → i, k, p, j
10. CurveCartesian((r * (cos(t), cos(t), sin(t))), t, ((-π)) / 2, π / 2) → l
11. CurveCartesian((r * (cos(t), (-cos(t)), sin(t))), t, ((-π)) / 2, π / 2) → m
12. Surface(((1 - u) * m(v)) + (u * l(v)), u, 0, 1, v, 0, (2 * π)) → n
13. Surface(B + ((1 - u) * m(v)) + (u * l(v)), u, 0, 1, v, ((-π)) / 2, π / 2) → o
14. Sequence(Rotate[o, (i * π / 2)], i, 0, 3) → l5
15. Circle(A, r, xAxis) → q
16. Sequence(Rotate[q, (i * π / 2)], i, 0, 3) → l6
17. Sequence(Rotate[c, (i * π / 2)], i, 0, 3) → l3
18. Sequence(Rotate[n, (i * π / 2), zAxis], i, 0, 1) → l4