十二面体的另一种展开图

GeoGebra 命令及参数

1. Point(Circle[(((1 - sqrt(5)) * A) + ((3 + sqrt(5)) * B)) / 4, (Distance[A, B] * sqrt(10 + (2 * sqrt(5))) / 4), Segment[A, B]]) → C
2. Dodecahedron(A, B, C) → a, D, M, N, O, P, Q, R, S, T, faceABCDE, faceAEIOJ, E, faceABFKJ, faceBCGLF, faceCDHMG, faceDEINH, faceINSTO, faceJKPTO, faceFKPQL, faceGLQRM, faceHMRSN, facePQRST, F, edgeAE, edgeAB, edgeBC, edgeCD, edgeDE, edgeAJ, edgeEI, edgeIO, edgeJO, edgeJK, G, edgeFK, edgeBF, edgeFL, edgeGL, edgeCG, edgeGM, edgeHM, edgeDH, edgeHN, edgeIN, H, edgeNS, edgeST, edgeOT, edgePT, edgeKP, edgePQ, edgeLQ, edgeQR, edgeMR, edgeRS, I, J, K, L
3. If(b ≤ 1, b, 1) → t1
4. Rotate(Polygon[P, Q, R, S, T], (t1 * α), Segment[Q, R]) → poly1
5. If(b > 1 ∧ b ≤ 2, b - 1, If[b ≤ 1, 0, 1]) → t2
6. Rotate(Polygon[Q, R, M, G, L], (α * t2), Segment[Q, L]) → poly2
7. Rotate(poly1, (α * t2), Segment[Q, L]) → poly1'
8. If(b > 2 ∧ b ≤ 3, b - 2, If[b ≤ 2, 0, 1]) → t3
9. Rotate(Polygon[P, Q, L, F, K], (α * t3), Segment[P, K]) → poly3
10. Rotate(poly2, (α * t3), Segment[P, K]) → poly2'
11. Rotate(poly1', (α * t3), Segment[P, K]) → poly1''
12. If(b > 3 ∧ b ≤ 4, b - 3, If[b ≤ 3, 0, 1]) → t4
13. Rotate(Polygon[P, K, J, O, T], (α * t4), Segment[T, O]) → poly4
14. Rotate(poly3, (α * t4), Segment[T, O]) → poly3'
15. Rotate(poly2', (α * t4), Segment[T, O]) → poly2''
16. Rotate(poly1'', (α * t4), Segment[T, O]) → poly1'''
17. If(b > 4 ∧ b ≤ 5, b - 4, If[b ≤ 4, 0, 1]) → t5
18. Rotate(Polygon[S, T, O, I, N], (α * t5), Segment[S, N]) → poly5
19. Rotate(poly4, (α * t5), Segment[S, N]) → poly4'
20. Rotate(poly3', (α * t5), Segment[S, N]) → poly3''
21. Rotate(poly2'', (α * t5), Segment[S, N]) → poly2'''
22. Rotate(poly1''', (α * t5), Segment[S, N]) → poly6
23. If(b > 5 ∧ b ≤ 6, b - 5, If[b ≤ 5, 0, 1]) → t6
24. Rotate(Polygon[R, S, N, H, M], (α * t6), Segment[M, H]) → poly7
25. Rotate(poly5, (α * t6), Segment[M, H]) → poly5'
26. Rotate(poly4', (α * t6), Segment[M, H]) → poly4''
27. Rotate(poly3'', (α * t6), Segment[M, H]) → poly3'''
28. Rotate(poly2''', (α * t6), Segment[M, H]) → poly8
29. Rotate(poly6, (α * t6), Segment[M, H]) → poly6'
30. If(b > 6 ∧ b ≤ 7, b - 6, If[b ≤ 6, 0, 1]) → t7
31. Rotate(Polygon[C, G, M, H, D], (α * t7), Segment[G, C]) → poly9
32. Rotate(poly7, (α * t7), Segment[G, C]) → poly7'
33. Rotate(poly5', (α * t7), Segment[G, C]) → poly5''
34. Rotate(poly4'', (α * t7), Segment[G, C]) → poly4'''
35. Rotate(poly3''', (α * t7), Segment[G, C]) → poly10
36. Rotate(poly8, (α * t7), Segment[G, C]) → poly8'
37. Rotate(poly6', (α * t7), Segment[G, C]) → poly6''
38. If(b > 7 ∧ b ≤ 8, b - 7, If[b ≤ 7, 0, 1]) → t8
39. Rotate(Polygon[B, F, L, G, C], (α * t8), Segment[F, B]) → poly11
40. Rotate(poly9, (α * t8), Segment[F, B]) → poly9'
41. Rotate(poly7', (α * t8), Segment[F, B]) → poly7''
42. Rotate(poly5'', (α * t8), Segment[F, B]) → poly5'''
43. Rotate(poly4''', (α * t8), Segment[F, B]) → poly12
44. Rotate(poly10, (α * t8), Segment[F, B]) → poly10'
45. Rotate(poly8', (α * t8), Segment[F, B]) → poly8''
46. Rotate(poly6'', (α * t8), Segment[F, B]) → poly6'''
47. If(b > 8 ∧ b ≤ 9, b - 8, If[b ≤ 8, 0, 1]) → t9
48. Rotate(Polygon[A, J, K, F, B], (α * t9), Segment[J, A]) → poly13
49. Rotate(poly11, (α * t9), Segment[J, A]) → poly11'
50. Rotate(poly9', (α * t9), Segment[J, A]) → poly9''
51. Rotate(poly7'', (α * t9), Segment[J, A]) → poly7'''
52. Rotate(poly5''', (α * t9), Segment[J, A]) → poly14
53. Rotate(poly12, (α * t9), Segment[J, A]) → poly12'
54. Rotate(poly10', (α * t9), Segment[J, A]) → poly10''
55. Rotate(poly8'', (α * t9), Segment[J, A]) → poly8'''
56. Rotate(poly6''', (α * t9), Segment[J, A]) → poly15
57. If(b > 9 ∧ b ≤ 10, b - 9, If[b ≤ 9, 0, 1]) → t10
58. Rotate(Polygon[E, I, O, J, A], (α * t10), Segment[I, E]) → poly16
59. Rotate(poly13, (α * t10), Segment[I, E]) → poly13'
60. Rotate(poly11', (α * t10), Segment[I, E]) → poly11''
61. Rotate(poly9'', (α * t10), Segment[I, E]) → poly9'''
62. Rotate(poly7''', (α * t10), Segment[I, E]) → poly17
63. Rotate(poly14, (α * t10), Segment[I, E]) → poly14'
64. Rotate(poly12', (α * t10), Segment[I, E]) → poly12''
65. Rotate(poly10'', (α * t10), Segment[I, E]) → poly10'''
66. Rotate(poly8''', (α * t10), Segment[I, E]) → poly18
67. Rotate(poly15, (α * t10), Segment[I, E]) → poly15'
68. If(b > 10 ∧ b ≤ 11, b - 10, If[b ≤ 10, 0, 1]) → t11
69. Rotate(Polygon[D, H, N, I, E], (α * t11), Segment[D, E]) → poly19
70. Rotate(poly16, (α * t11), Segment[D, E]) → poly16'
71. Rotate(poly13', (α * t11), Segment[D, E]) → poly13''
72. Rotate(poly11'', (α * t11), Segment[D, E]) → poly11'''
73. Rotate(poly9''', (α * t11), Segment[D, E]) → poly20
74. Rotate(poly17, (α * t11), Segment[D, E]) → poly17'
75. Rotate(poly14', (α * t11), Segment[D, E]) → poly14''
76. Rotate(poly15', (α * t11), Segment[D, E]) → poly15''
77. Rotate(poly18, (α * t11), Segment[D, E]) → poly18'
78. Rotate(poly12'', (α * t11), Segment[D, E]) → poly12'''
79. Rotate(poly10''', (α * t11), Segment[D, E]) → poly21
80. Rotate(Polygon[A, B, C, D, E], 0, Segment[A, B]) → poly22
81. Rotate(Polygon[A, B, C, D, E], 0, Segment[A, B]) → poly23
82. Rotate(Polygon[D, H, N, I, E], (α * t11), Segment[D, E]) → poly24
83. Rotate(poly16, (α * t11), Segment[D, E]) → poly16'_1
84. Rotate(poly13', (α * t11), Segment[D, E]) → poly13''_1
85. Rotate(poly11'', (α * t11), Segment[D, E]) → poly11'''_1
86. Rotate(poly9''', (α * t11), Segment[D, E]) → poly25
87. Rotate(poly17, (α * t11), Segment[D, E]) → poly17'_1
88. Rotate(poly14', (α * t11), Segment[D, E]) → poly14''_1
89. Rotate(poly12'', (α * t11), Segment[D, E]) → poly12'''_1
90. Rotate(poly10''', (α * t11), Segment[D, E]) → poly26
91. Rotate(poly18, (α * t11), Segment[D, E]) → poly18'_1
92. Rotate(poly15', (α * t11), Segment[D, E]) → poly15''_1