星形分形绘制

GeoGebra 命令及参数

1. Segment(A, B) → a
2. Rotate(B, -90*°, (Rotate[B, (360 * ° / n), A] + B) / 2) → B'
3. Mirror(B', Line[A, B]) → B''
4. Intersect(Rotate[Line[B, B'], 90*°, B'], Rotate[Line[B, B''], 90*°, B'']) → C
5. Polygon(B, B', C, B'') → poly1, b, b', c, b''
6. Polygon(C, B', 4) → poly2, d, e, f, g, D, E
7. Sequence(Polygon[Rotate[B, ((i * 360) * ° / n), A], Rotate[B', ((i * 360) * ° / n), A], Rotate[C, ((i * 360) * ° / n), A], Rotate[B'', ((i * 360) * ° / n), A]], i, 0, n - 1) → list1
8. Sequence(Rotate[poly2, ((i * 360) * ° / n), A], i, 0, n - 1) → list2
9. Angle(B', B, B'') → α
10. Sequence(Dilate[list1, ratio^(i), A], i, 1, k) → list3
11. Sequence(Dilate[list2, ratio^(i), A], i, 1, k) → list4
12. Sequence(Dilate[list2, ratio^((-i)), A], i, 1, m) → list5
13. Sequence(Dilate[list1, ratio^((-i)), A], i, 1, m) → list6