四面体球堆积的趣味循环

GeoGebra 命令及参数

1. Point(xAxis) → Q
2. Rotate(A, 120°) → A'
3. Mirror(A', xAxis) → A''
4. Polygon(A', A'', A) → t1, a, a', a''
5. Tetrahedron(t1, true) → b, B, faceAA'B, faceA'A''B, faceAA''B, edgeA'B, edgeAB, edgeA''B
6. Midpoint(edgeAB) → C
7. OrthogonalPlane(C, edgeAB) → p
8. Intersect(zAxis, p) → D
9. Polynomial({M, N, F}) → s
10. Translate(S, Vector[(0, 0, Ds(t))]) → S'
11. Sphere(S', Ra(t)) → i
12. Intersect(zAxis, i) → G, H
13. Sphere(I, r) → c
14. Sphere(J, r) → d
15. Sphere(K, r) → e
16. Sphere(S, r) → g
17. Translate(I, Vector[(f(t) * I)]) → I'
18. Ray(O, I) → k
19. Sphere(S', r + Ra(t)) → l
20. Intersect(k, l) → L,
21. Sequence(Rotate[Sphere[L, r], (k * 120°), zAxis], k, 0, 2) → l2
22. Sphere(I', r + Ra(t)) → h
23. If(t ≥ 0, H + (0, 0, r), H + (0, 0, r) + (0, 0, f_1(t))) → E
24. Sphere(E, r) → j
25. Polynomial({P, Q, R, T, U}) → g_1
26. Rotate(l2, ((4 / 5 * t) * 120°)) → l2'
27. Tetrahedron(Polygon[Sequence[Rotate[L, (k * 120°), zAxis], k, 0, 2]], true) → m, V, face2, face1, face3, edge1, edge3, edge2
28. Rotate(m, ((4 / 5 * t) * 120°)) → m'