毕达哥拉斯风车

GeoGebra 命令及参数

1. Sequence(Polygon[(i, 0), (i + 1, 0), (i + 1, a), (i, a)], i, 0, a - 1) → l1
2. Sequence(Polygon[(i, 0), (i + 1, 0), (i + 1, (-c)), (i, (-c))], i, 0, b - 1) → l2
3. Sequence(Rotate[l2, (i * 90°), P], i, 0, 3) → l3
4. Textfield(a) → InputBox1
5. Textfield(c) → InputBox3
6. Textfield(b) → InputBox2
7. Vector((0, (-c)), (a, b)) → u
8. Sequence(Translate[l1, Vector[(i * u)]], i, -4, 4) → l4
9. Sequence(Translate[l3, Vector[(i * u)]], i, -4, 4) → l5
10. Rotate(u, 90°) → u'
11. Sequence(Translate[l4, Vector[(i * u')]], i, -4, 4) → l6
12. Sequence(Translate[l5, Vector[(i * u')]], i, -4, 4) → l7
13. PolyLine(((-c), a - b), (b, (-c)), (a + c, b)) → f
14. Sequence(Translate[f, Vector[(i * Vector[(a + c - b, b + c)])]], i, -4, 4) → l8
15. Sequence(Translate[l8, Vector[(i * Vector[(b + c, b - a - c)])]], i, -4, 4) → l9
16. Area(Polygon[((-c), a - b), (b, (-c)), 4]) → h