正四面体切割为四个正棱柱的立体几何演示

GeoGebra 命令及参数

1. Point(Circle[Midpoint[A, B], (Distance[A, B] * sqrt(3) / 2), Segment[A, B]]) → C
2. Tetrahedron(A, B, C) → b, D, areteCD, areteBD, polyABC, polyACD, polyABD, polyBCD, AC, AB, areteBC, AD
3. Midpoint(AC) → E
4. Midpoint(AD) → F
5. Midpoint(F, E) → G
6. Midpoint(A, F) → H
7. Midpoint(B, A) → I
8. Midpoint(B, D) → J
9. Midpoint(J, I) → K
10. Midpoint(I, B) → L
11. Midpoint(areteBC) → N
12. Midpoint(E, N) → O
13. Midpoint(areteCD) → P
14. PlaneBisector(M, K) → c
15. PlaneBisector(G, J) → d
16. Midpoint(P, J) → Q
17. Midpoint(N, C) → R
18. Midpoint(H, K) → S
19. Vector(M, S) → u
20. Centroid(Polygon[Q, R, B, J]) → T
21. Point(l3) → U
22. Vector(U, T) → v
23. Centroid(Polygon[D, J, K, H]) → V
24. Midpoint(D, P) → Z
25. Centroid(Polygon[Z, G, E, C]) → W
26. Vector(M, W) → w
27. Vector(M, V) → e
28. Translate(Rotate[l2, Animation, Segment[J, E]], Vector[(Animation * w)]) → l2'
29. Translate(Rotate[l4, Animation, W], Vector[(Animation * e)]) → l4'
30. Translate(Rotate[l3, Animation, T], Vector[(Animation * v)]) → l3'
31. Translate(Rotate[l1, Animation, S], Vector[(Animation * u)]) → l1'_1
32. Translate(Rotate[l1, Animation, S], Vector[(Animation * u)]) → l5
33. Translate(Rotate[l2, Animation, Segment[J, E]], Vector[(Animation * w)]) → l6
34. Translate(Rotate[l3, Animation, T], Vector[(Animation * v)]) → l7
35. Translate(Rotate[l4, Animation, W], Vector[(Animation * e)]) → l8