曼波变奏：弗兰克·斯特拉视觉艺术数学演示

GeoGebra 命令及参数

1. Sequence(((1 - i / n) * C) + (i / n * E), i, 0, n) → l4
2. Sequence((i / ((2 * n)) * B) + ((1 - i / ((2 * n))) * A), i, 0, (2 * n)) → l1
3. Segment(C, D) → f
4. Segment(D, E) → g
5. Rotate(C, (-(180° - Angle[C, D, E])), D) → C'
6. Rotate(E, 180° - Angle[C, D, E], D) → E'
7. Sequence(If[i / n ≤ a, ((1 - i / n) * C) + (i / n * E'), ((1 - i / n) * C') + (i / n * E)], i, 0, n) → l2
8. Sequence(Segment[Element[l1, (2 * n) - i + 2], Element[l4, i]], i, 1, n + 1) → l3
9. Mirror(l3, h) → l3'
10. Sequence(Segment[Element[l4, i], Element[l2, i]], i, 1, n + 1) → l5
11. Mirror(l5, h) → l5'
12. Sequence(Segment[Element[l2, i], Mirror[Element[l2, i], h]], i, 1, n + 1) → l6
13. Mirror({l3, l5, l3', l5', l6}, x = x(A)) → l7
14. Mirror(l7, x = x(Mirror[C, x = x(A)])) → l7'
15. Mirror(l7', x = x(A)) → l7''
16. Mirror(l7, x = x(C)) → l7'_1
17. Mirror(l7'_1, x = x(A)) → l8
18. Translate({l7, l9}, C - A) → l10
19. Mirror(l10, h) → l10'
20. Mirror(l10, x = x(A)) → l10'_1
21. Mirror(l10', x = x(A)) → l10''