截锥体 by Guillermo Bautista

GeoGebra 命令及参数

1. Point(Circle[B, Distance[A, B], Segment[A, B]]) → C
2. Point(Circle[B, Distance[A, B], Segment[A, B]]) → D
3. Cube(A, B, D) → a, E, faceDEIH, faceFGHI, edgeAE, edgeAB, edgeBD, edgeDE, edgeAF, edgeEI, edgeFI, edgeFG, F, edgeBG, edgeGH, edgeDH, edgeHI, G, H, I, faceABDE, faceAEIF, faceABGF, faceBDHG
4. Sphere(F, Distance[A, B] / 3) → b
5. Intersect(edgeFI, b, 1) → J
6. Intersect(edgeFG, b, 1) → K
7. Intersect(edgeAF, b, 1) → L
8. Polygon(J, L, K) → t1, k, j, l
9. Rotate(t1, 90°, zAxis) → t1'
10. Rotate(t1, 180°, zAxis) → t1'_{1}
11. Rotate(t1, 270°, zAxis) → t1'_{2}
12. Rotate(t1, -90°, xAxis) → t1'_{3}
13. Rotate(t1'_{3}, 90°, zAxis) → t2
14. Rotate(t1'_{3}, 180°, zAxis) → t3
15. Rotate(t1'_{3}, 270°, zAxis) → t4
16. Rotate(J, 90°, zAxis) → J'
17. Rotate(L, 90°, zAxis) → L'
18. Rotate(K, -90°, xAxis) → K'
19. Rotate(J', -90°, xAxis) → J''
20. Rotate(L', -90°, xAxis) → L''
21. Rotate(J, -90°, xAxis) → J'_{1}
22. Rotate(J, 90°, zAxis) → J'_{2}
23. Rotate(K, 90°, zAxis) → K'_{1}
24. Rotate(K'_{1}, -90°, xAxis) → M
25. Polygon(K, L, J'_{1}, K', J'', M, L', J'_{2}) → poly1, k_1, l_1, j'_{1}, k', j'', m, l', j'_{2}
26. Rotate(poly1, 90°, zAxis) → poly1'
27. Rotate(poly1, 180°, zAxis) → poly1'_{1}
28. Rotate(poly1, 270°, zAxis) → poly1'_{2}
29. Rotate(poly1', 90°, yAxis) → poly1''
30. Rotate(poly1', 270°, yAxis) → poly1''_{1}