分形曲线：基于旋转与折线的迭代几何构造

GeoGebra 命令及参数

1. PolyLine(B, G, H, A) → f
2. PolyLine(A, H, G, B) → A1
3. Rotate(A, π, B) → A'
4. Rotate(H, π, B) → H'
5. Rotate(G, π, B) → G'
6. Rotate(B, π, B) → B'
7. PolyLine(A', H', G', B') → B1
8. Rotate(PolyLine[Translate[A, C - B], Translate[H, C - B], Translate[G, C - B], Translate[B, C - B]], π / 2, C) → C1
9. Rotate(C1, π / 2, D) → D1
10. Rotate(D1, ((-π)) / 2, E) → E1
11. Rotate(Dilate[{A1, B1, C1, D1, E1}, 1 / sqrt(5), A], atand(2), A) → A2
12. Rotate(A2, π, B) → B2
13. Rotate(Translate[A2, C - B], π / 2, C) → C2
14. Rotate(C2, π / 2, D) → D2
15. Rotate(D2, ((-π)) / 2, E) → E2
16. Rotate(Dilate[{A2, B2, C2, D2, E2}, 1 / sqrt(5), A], atan(2), A) → A3
17. Rotate(A3, π, B) → B3
18. Rotate(Translate[A3, C - B], π / 2, C) → C3
19. Rotate(C3, π / 2, D) → D3
20. Rotate(D3, ((-π)) / 2, E) → E3
21. Rotate(Dilate[{A3, B3, C3, D3, E3}, 1 / sqrt(5), A], atan(2), A) → A4
22. Rotate(A4, π, B) → B4
23. Rotate(Translate[A4, C - B], π / 2, C) → C4
24. Rotate(C4, π / 2, D) → D4
25. Rotate(D4, ((-π)) / 2, E) → E4
26. Rotate(Dilate[{A4, B4, C4, D4, E4}, 1 / sqrt(5), A], atan(2), A) → A5
27. Rotate(A5, π, B) → B5
28. Rotate(Translate[A5, C - B], π / 2, C) → C5
29. Rotate(C5, π / 2, D) → D5
30. Rotate(D5, ((-π)) / 2, E) → E5
31. Rotate(Dilate[{A5, B5, C5, D5, E5}, 1 / sqrt(5), A], atan(2), A) → A6
32. Rotate(A6, π, B) → B6
33. Rotate(Translate[A6, C - B], π / 2, C) → C6
34. Rotate(C6, π / 2, D) → D6
35. Rotate(D6, ((-π)) / 2, E) → E6