Justin Lanier的星形分形构造

GeoGebra 命令及参数

1. Polygon(A, B, 4) → poly1, a, b, c, d, C, D
2. Ray(C, E) → e
3. Point(e) → F
4. Line(F, B) → f
5. Mirror(C, f) → C'
6. Polygon(F, C', B, C) → poly2, f_1, c', b_1, c_1
7. Line(B, C) → g
8. Line(A, B) → h
9. Angle(f, g) → α
10. Rotate(C, α, C) → C'_1
11. Rotate(E, α, C) → E'
12. Rotate(C, α, D) → C'_2
13. Rotate(E, α, D) → E'_1
14. Ray(C'_2, E'_1) → e'
15. Intersect(f, e') → G
16. Angle(B, G, C'_2) → β
17. Sequence(Polygon[Rotate[F, (i * β), G], Rotate[C', (i * β), G], Rotate[B, (i * β), G], Rotate[C, (i * β), G]], i, 1, n - 1) → list1
18. Sequence(Rotate[poly1, (i * β), G], i, 1, n - 1) → list2
19. Append(list1, poly2) → list1'
20. Append(list2, poly1) → list2'
21. Sequence(Dilate[list1', ratio^(i), G], i, 1, k - 1) → list3
22. Sequence(Dilate[list2', ratio^(i), G], i, 1, k - 1) → list4