多边形波普艺术

GeoGebra 命令及参数

1. Sequence(Sequence[A + (2 * (j, (-k))), j, 0, w - 1], k, 0, h - 1) → list1
2. Join(list1) → Points
3. Vector(A, C) → v
4. Rotate(D, α, C) → D'
5. Vector(C, D') → c
6. Rotate(B, α, A) → B'
7. Vector(A, B') → u
8. Sequence(Polygon[Element[Points2, i], Rotate[Element[Points2, i], (360 * ° / n), Element[Points, i]], n], i, 1, (h * w)) → list2
9. Sequence(Polygon[Element[PointsC2, j], Rotate[Element[PointsC2, j], (360 * ° / i), Element[PointsC, j]], i], j, 1, (h * w)) → list3
10. Textfield(h) → inputBox1
11. Textfield(w) → inputBox2