正多边形组合现象

GeoGebra 命令及参数

1. Polygon(A, B, 9) → poly1, f, C, D, E, F, G, H, I, g, h, i, j, k, l, m, n
2. Polygon(D, C, 6) → poly3, a, Q, b, c, d, e, f_1, N, O, P
3. Polygon(H, G, 9) → poly4, g_1, R, S, T, U, V, W, Z, h_1, i_1, j_1, k_1, l_1, m_1, n_1, p_1
4. Segment(A, B) → q
5. Segment(B, C) → r
6. Segment(C, N) → s
7. Segment(N, O) → t
8. Segment(O, P) → a_1
9. Segment(P, Q) → b_1
10. Segment(Q, D) → c_1
11. Segment(D, C) → d_1
12. Segment(A, I) → e_1
13. Segment(I, H) → f_2
14. Segment(H, G) → g_2
15. Segment(G, F) → h_2
16. Segment(F, E) → i_2
17. Segment(E, D) → j_2
18. Segment(H, Z) → k_2
19. Segment(Z, W) → l_2
20. Segment(W, V) → m_2
21. Segment(V, U) → n_2
22. Segment(U, T) → p_2
23. Segment(T, S) → q_2
24. Segment(S, R) → r_2
25. Segment(R, G) → s_2
26. Dilate(H, If[1 < o ≤ 2, 2 - o, 0], V) → H'
27. Segment(H, H') → r_1
28. Dilate(Q, If[0 < o ≤ 1, 1 - o, 0], H) → Q'
29. Segment(Q, Q') → t_1
30. Dilate(H, If[2 < o ≤ 3, 3 - o, 0], V) → H'_1
31. Vector(H, H'_1) → u
32. Translate(Q, u) → Q'_1
33. Translate(Q', u) → Q''
34. Segment(Q'_1, Q'') → p
35. Dilate(H, If[3 < o ≤ 4, 4 - o, 0], Q) → H'_2
36. Vector(H, H'_2) → v
37. Translate(H, v) → H'_3
38. Translate(H', v) → H''
39. Segment(H'_3, H'') → q_1
40. Polygon(Q, H, V, F) → q1, q_3, h_3, v_1, f_3