伊斯兰风筝图案

GeoGebra 命令及参数

1. Ray(A, B) → f
2. Point(Ray[B, Rotate[A, α / 2, B]]) → C
3. Point(Segment[A, B]) → D
4. Mirror(C, f) → C'
5. Sequence(Polygon[Rotate[D, (i * (360°) / n), A], Rotate[C, (i * (360°) / n), A], Rotate[B, (i * (360°) / n), A], Rotate[C', (i * (360°) / n), A]], i, 0, n - 1) → l1
6. Sequence(Polygon[Rotate[D, (180°) / n + (i * (360°) / n), A], Rotate[C, (180°) / n + (i * (360°) / n), A], Rotate[B, (180°) / n + (i * (360°) / n), A], Rotate[C', (180°) / n + (i * (360°) / n), A]], i, 0, n - 1) → l2
7. Intersect(Line[A, B], Ray[C, Rotate[B, γ, C]]) → D'
8. Sequence(Rotate[Translate[l1, Vector[(2 * Vector[A, B])]], ((If[n < 8, 1, 2] * i) * (360°) / n), A], i, 1, If[n < 8, n, floor(n / 2)]) → l3
9. Sequence(Rotate[Translate[l2, Vector[(2 * Vector[A, B])]], ((If[n < 8, 1, 2] * i) * (360°) / n), A], i, 1, If[n < 8, n, floor(n / 2)]) → l4