三维齿轮啮合动画：旋转与平移的立体几何演示

GeoGebra 命令及参数

1. Point(zAxis) → A
2. PointIn(Plane[xAxis, zAxis]) → B
3. Ray(O, B) → f
4. AngularBisector(A, O, B) → g
5. Rotate(A, ((-e) - Angle[A, O, B]) / 2, yAxis) → A'
6. Rotate(Rotate[A, (e - Angle[A, O, B]) / 2, yAxis], π / n, zAxis) → C
7. Rotate(Rotate[A, (e - Angle[A, O, B]) / 2, yAxis], ((-π)) / n, zAxis) → D
8. Pyramid(A', C, D, O) → pyr1, faceA'CD_1, arêteDO_1, faceA'CO_1, faceCDO_1, faceA'DO_1, arêteA'C_1, arêteCD_1, arêteA'D_1, arêteA'O_1, arêteCO_1
9. Rotate(B, ((-e) + Angle[A, O, B]) / 2, yAxis) → B'
10. Rotate(Rotate[B, (e + Angle[A, O, B]) / 2, yAxis], π / n, f) → E
11. Rotate(B', (2 * π / n), f) → B''
12. Pyramid(B', B'', E, O) → pyr2, face1, arête6, face2, face3, face4, arête1, arête2, arête3, arête4, arête5
13. Sequence(Rotate[pyr1, i + d, zAxis], i, 0, (2 * π), (2 * π / n)) → liste1
14. Sequence(Rotate[pyr2, i + d, f], i, 0, (2 * π), (2 * π / n)) → liste2
15. Ray(O, A) → h
16. Translate(liste2, Vector[(j * Vector[O, B])]) → liste2'