球体的截面 by Dan Dale

GeoGebra 命令及参数

1. Polygon(B + (-2, -2), B + (2, -2), B + (2, 2), B + (-2, 2)) → poly3, e, f, g, i
2. PointIn(poly3) → C
3. Translate((0, 0, 0), Vector[B, C]) → A
4. Polygon(A + (-4, -4), A + (4, -4), A + (4, 4), A + (-4, 4)) → poly1, a, b, c, d
5. Rotate(Rotate[Translate[poly1, Vector[A, A + (0, 0, h)]], (90° * s), A + (0, 0, h), yAxis], (90° * t), A, zAxis) → poly2
6. PointIn(poly2) → G
7. PointIn(poly2) → H
8. PointIn(poly2) → I
9. Plane(G, I, H) → n
10. OrthogonalLine(A, n) → d_1
11. Sphere((0, 0, 2), 2) → j
12. IntersectPath(n, j) → k