多边形字符串艺术

GeoGebra 命令及参数

1. Sequence(Rotate[B, ((i * 360) * ° / n), A], i, 1, n) → list1
2. Sequence(Element[list1, i] + (d * (Element[list1, fn(i + 1)] - Element[list1, i])), i, 1, n) → list2
3. OrthogonalVector(Line[Element[list1, 1], Element[list2, 1]]) → u
4. Midpoint(Element[list2, 1], Element[list1, 1]) → F
5. Polygon(Element[list1, 1], Element[list2, 1], m) → poly1
6. Perimeter(poly1) → b
7. Area(poly1) → a
8. Sequence(Polygon[Element[list1, i], Element[list2, i], m], i, 1, n) → list3
9. Sequence(Rotate[C, ((i * 360) * ° / n), A], i, 1, n) → list4
10. Sequence(Rotate[Element[list1, 1] + (t * (Element[list2, 1] - Element[list1, 1])), ((i * 360) * ° / m), C], i, 1, m) → list5
11. Sequence(Segment[Element[list5, i], Element[list5, fm(i + 1)]], i, 1, m) → list6
12. Sequence(Rotate[list6, ((i * 360) * ° / n), A], i, 1, n) → list7