六边形瓷砖图案

GeoGebra 命令及参数

1. Sequence(Rotate[B, ((i * 360) * ° / n), A], i, 1, n) → list1
2. Polygon(list1) → poly1, , , , , ,
3. Sequence(Midpoint[Element[list1, i], Element[list1, f(i + 1)]], i, 1, n) → list2
4. Sequence(Midpoint[Element[list2, i], Element[list2, f(i + 1)]], i, 1, n) → list3
5. Sequence(Translate[poly1, Vector[(2 * Vector[A, Element[list3, i]])]], i, 1, n) → list4
6. Sequence(Translate[A, Vector[(4 * Vector[A, Element[list3, i]])]], i, 1, n) → list5
7. Sequence(Translate[B, Vector[(4 * Vector[A, Element[list3, i]])]], i, 1, n) → list6
8. Sequence(Translate[poly1, Vector[(4 * Vector[A, Element[list3, i]])]], i, 1, n) → list8
9. Sequence(PolyRing[Element[list5, i], Element[list6, i], n], i, 1, n) → list7