旋转对称多边形作图示例

GeoGebra 命令及参数

1. Line(A, B) → a
2. Polygon(P1, P2, P3, P4, P5, P6, P7, P8, P9, P10) → polígono1, c, l, d, e, f, g, h, i, j, k
3. Mirror(P5, a) → P5'
4. Rotate(P5', 59.99999999999999°, P5) → P5''
5. Rotate(P5, α, P5'') → P5'_1
6. Sequence(Rotate[Element[lista0, k], β, A], k, 1, 10) → lista1
7. Sequence(Auxiliarsimetría[Element[lista0, k], α, a], k, 1, 10) → lista7
8. Sequence(Rotate[Element[lista7, k], β, A], k, 1, 10) → lista3
9. Sequence(If[β ≥ (k * γ), {Polygon[Rotate[P1, (k * γ), A], Rotate[P2, (k * γ), A], Rotate[P3, (k * γ), A], Rotate[P4, (k * γ), A], Rotate[P5, (k * γ), A], Rotate[P6, (k * γ), A], Rotate[P7, (k * γ), A], Rotate[P8, (k * γ), A], Rotate[P9, (k * γ), A], Rotate[P10, (k * γ), A]]}], k, 1, n) → lista4
10. Sequence(Rotate[a, (k * γ / 2), A], k, 1, (2 * n) - 1) → lista6
11. Sequence(If[r ∧ β ≥ (k * γ), {Polygon[Rotate[Element[lista7, 1], (k * γ), A], Rotate[Element[lista7, 2], (k * γ), A], Rotate[Element[lista7, 3], (k * γ), A], Rotate[Element[lista7, 4], (k * γ), A], Rotate[Element[lista7, 5], (k * γ), A], Rotate[Element[lista7, 6], (k * γ), A], Rotate[Element[lista7, 7], (k * γ), A], Rotate[Element[lista7, 8], (k * γ), A], Rotate[Element[lista7, 9], (k * γ), A], Rotate[Element[lista7, 10], (k * γ), A]]}], k, 1, n - 1) → lista5
12. Point(Ray[C, C + (1, 0)]) → D