勾股定理平铺 by John Golden

GeoGebra 命令及参数

1. Polygon(A, B, 4) → poly1, a, b, c, d, C_1, D
2. Point(a) → C
3. Polygon(C, A, 4) → poly2, e, f, g, h, F, G
4. Vector(D, C) → u
5. Circle(B, e) → k
6. Intersect(k, b, 1) → H
7. Vector(A, H) → v
8. Sequence(Translate[poly1, Vector[i * u]], i, -4, 4) → list1
9. Sequence(Translate[list1, Vector[i * v]], i, -4, 4) → list2
10. Sequence(Translate[poly2, Vector[i * v]], i, -4, 4) → list3
11. Sequence(Translate[list3, Vector[i * u]], i, -4, 4) → list4
12. Translate(A, u) → A'
13. Polygon(A, A', 4) → poly3, i, j, l, m, I, J
14. Sequence(Translate[poly3, Vector[i * u]], i, -4, 4) → list5
15. Sequence(Translate[list5, Vector[i * v]], i, -4, 4) → list6