金字塔的截面：平行于底面的平面切割

GeoGebra 命令及参数

1. Circle(O, Zoom) → c
2. PointIn(c) → P
3. Vector(O, Z) → w
4. Vector(O, Y) → v
5. Vector(O, X) → u
6. Dilate(D_1, 0.6, O') → D'_3
7. Dilate(C_1, 0.6, O') → C'_3
8. Dilate(B_1, 0.6, O') → B'_3
9. Dilate(A_1, 0.6, O') → A'_3
10. Polygon(A'_3, B'_3, C'_3, D'_3) → poly1'_1, a'_3, b'_3, c'_3, d'_3
11. Conic(Y, M_1, X, M_v, M_u) → d
12. Conic(Z, X, M_w, M_2, M_u) → e
13. Conic(Z, M_3, Y, M_w, M_v) → f
14. Polygon(A_1, B_1, C_1, D_1) → poly1, a, b, c_1, d_1
15. PointIn(poly1'_1) → B
16. PointIn(poly1'_1) → A
17. PointIn(poly1'_1) → D
18. PointIn(poly1'_1) → C
19. Polygon(A, B, C, D) → poly2, e_1, h_3, g, f_1
20. Translate(A_1, Vector[(h * u)]) → A'
21. Translate(B_1, Vector[(h * u)]) → B'
22. Translate(C_1, Vector[(h * u)]) → C'
23. Translate(D_1, Vector[(h * u)]) → D'
24. Polygon(A', B', C', D') → poly1', a', b', c', d'
25. PointIn(poly1') → S
26. Polygon(S, A, B) → poly3, h_1, s, e_2
27. Polygon(S, B, C) → poly4, g_1, s_1, h_2
28. Polygon(C, D, S) → poly5, s_2, g_2, f_2
29. Polygon(A, D, S) → poly6, s_3, e_3, f_3
30. Dilate(A, hauteur3, S) → E'
31. Dilate(B, hauteur3, S) → H'_1
32. Dilate(C, hauteur3, S) → G'
33. Dilate(B, h2, S) → H'_2
34. Dilate(D, hauteur3, S) → F'
35. Polygon(E', H'_1, G', F') → poly7, e', h'_1, g', f'
36. Translate(B_1, Vector[(((1 - hauteur3) * h) * u)]) → B'_2
37. Translate(C_1, Vector[(((1 - hauteur3) * h) * u)]) → C'_2
38. Translate(D_1, Vector[(((1 - hauteur3) * h) * u)]) → D'_2
39. Translate(A_1, Vector[(((1 - hauteur3) * h) * u)]) → A'_2
40. Polygon(A'_2, B'_2, C'_2, D'_2) → poly1'', a'_2, b'_2, c'_2, d'_2
41. Dilate(B, hauteur3, S) → H'
42. Dilate(A, hauteur3, S) → E'_1
43. Dilate(C, hauteur3, S) → G'_1
44. Translate(A_1, Vector[((1 - hauteur3) * u)]) → A'_1
45. Translate(B_1, Vector[((1 - hauteur3) * u)]) → B'_1
46. Translate(C_1, Vector[((1 - hauteur3) * u)]) → C'_1
47. Translate(D_1, Vector[((1 - hauteur3) * u)]) → D'_1
48. Translate(S, Vector[((-h) * u)]) → H
49. Segment(H, S) → j
50. Vector(O, P) → l