圆柱与球体的几何构造

GeoGebra 命令及参数

1. Sphere(A, R + r) → a
2. PointIn(a) → B
3. PointIn(a) → C
4. PointIn(a) → D
5. PointIn(a) → E
6. Cylinder(C, B, r) → b, c, d, e
7. Cylinder(E, D, r) → f, g, h, i
8. Sphere(A, R) → j
9. UnitVector(Vector[B, C]) → u
10. UnitVector(Vector[D, E]) → v
11. Surface(If[abs((A + (R; arg; alt) - B) ⊗ u) ≥ r ∧ abs((A + (R; arg; alt) - D) ⊗ v) ≥ r, A + (R; arg; alt)], arg, 0, (2 * π), alt, ((-π)) / 2, π / 2) → k