三六边形折纸（Trihexaflexagon）动态模型

GeoGebra 命令及参数

1. Intersect(xAxis, yAxis) → A
2. Circle(B, A) → d
3. Circle(A, B) → c
4. Intersect(d, c) → C, D, ,
5. Polygon(B, D, 6) → poly1, f, H, g, h, i, j, k, E, F, G
6. LineBisector(E, F) → q
7. Line(A, B) → l
8. LineBisector(E, D) → m
9. Rotate(B, If[α ≥ 0°, α, α / 3], m) → B'
10. Line(E, H) → n
11. Rotate(D, If[α ≥ 0°, ((-α)) / 3, (-α)], q) → D'
12. Polygon(B', A, D') → poly2, d', b', a
13. OrthogonalLine(A, xOyPlane) → p
14. Point(p) → I
15. Plane(I, A, B) → b
16. Sequence(Rotate[{poly2, Mirror[poly2, b]}, (n * 120°), p], n, 0, 2, 1) → list1
17. Vector((0, 0, If[z(D') > 0, 0, (-z(D'))])) → vLift
18. Translate(list1, vLift) → list1'
19. OrthogonalLine(B', xOyPlane) → r
20. Intersect(r, xOyPlane) → J
21. Midpoint(J, B') → K
22. Plane(K, xOyPlane) → e
23. Translate(Mirror[list1, e], vLift) → list1''
24. Rotate(list1', 60°, p) → list1''_1