Suggs多边形

GeoGebra 命令及参数

1. Polygon(A, B, C, D, E, F) → poly1, a, b, c, d, e, f
2. Length({Vertex[poly1]}) → n
3. Sequence(Distance[Element[l1, Mod[i, n] + 1], Element[l1, Mod[i + 1, n] + 1]], i, 0, n - 1) → l2
4. IndexOf(Max[l2], l2) → g
5. Flatten(Sequence[Sequence[((1 - i / m) * Element[l1, Mod[j, n] + 1]) + (i / m * Element[l1, Mod[j + 1, n] + 1]), i, 1, m], j, 0, n - 1]) → l3
6. Sequence(Segment[G, Element[l3, i]], i, 1, (m * n)) → l4
7. Polygon(D, C, H, I) → q1, d_1, c_1, h, i
8. burst(q1, m) → l5
9. Polygon(E, J, K, L, I, D) → poly2, e_1, j, k, l, i_1, d_2
10. burst(poly2, m) → l6
11. Polygon(C, M, N, O, H) → poly3, c_2, m_1, n_1, o, h_1
12. burst(poly3, m) → l7
13. Polygon(B, C, M) → t1, m_2, b_1, c_3
14. burst(t1, m) → l8
15. Polygon(I, H, O, P, Q, R, S) → poly4, i_2, h_2, o_1, p, q, r, s
16. burst(poly4, m) → l9