几何变换：绘制答案

GeoGebra 命令及参数

1. Random(-2, 2) → a_{1}
2. Random(-2, 2) → b_{1}
3. RandomDiscrete({0, π / 2, π, ((3 * π)) / 2}, {2, 1, 1, 1}) → r_{1}
4. Translate(W, (a_{1}, b_{1})) → A_{1}
5. Translate(X, (a_{1}, b_{1})) → B_{1}
6. Translate(Y, (a_{1}, b_{1})) → C_{1}
7. Translate(Z, (a_{1}, b_{1})) → D_{1}
8. Rotate(A_{1}, r_{1}) → A
9. Rotate(B_{1}, r_{1}) → B
10. Rotate(C_{1}, r_{1}) → C
11. Rotate(D_{1}, r_{1}) → D
12. Random(1, 2) → whatwesee
13. If(whatwesee ≟ 1, Polygon[A, B, C], whatwesee ≟ 2, Polygon[A, B, C, D]) → poly
14. Textfield(x_{a}) → InputBox1
15. Textfield(y_{a}) → InputBox2
16. Textfield(x_{b}) → InputBox3
17. Textfield(y_{b}) → InputBox4
18. Textfield(x_{c}) → InputBox5
19. Textfield(y_{c}) → InputBox6
20. Textfield(x_{d}) → InputBox7
21. Textfield(y_{d}) → InputBox8
22. Random(-5, 5) → a
23. Random(-5, 5) → b_{hi}
24. If(b_{hi} ≟ 0 ∧ a ≟ 0, b_{hi} + 2, b_{hi}) → b
25. RandomDiscrete({1, 2, 3, 4}, {2, 2, 1, 1}) → type
26. RandomDiscrete({π / 2, π, ((3 * π)) / 2}, {1, 1, 1}) → r
27. Random(-5, 5) → c
28. If(type ≟ 1, Translate[A, (a, b)], type ≟ 2, Rotate[A, r], type ≟ 3, Mirror[A, x = c], type ≟ 4, Mirror[A, y = c]) → Aprime
29. If(type ≟ 1, Translate[B, (a, b)], type ≟ 2, Rotate[B, r], type ≟ 3, Mirror[B, x = c], type ≟ 4, Mirror[B, y = c]) → Bprime
30. If(type ≟ 1, Translate[C, (a, b)], type ≟ 2, Rotate[C, r], type ≟ 3, Mirror[C, x = c], type ≟ 4, Mirror[C, y = c]) → Cprime
31. If(type ≟ 1, Translate[D, (a, b)], type ≟ 2, Rotate[D, r], type ≟ 3, Mirror[D, x = c], type ≟ 4, Mirror[D, y = c]) → Dprime
32. If(whatwesee ≟ 1, Polygon[Aprime, Bprime, Cprime], whatwesee ≟ 2, Polygon[Aprime, Bprime, Cprime, Dprime]) → polyprime
33. Text(If[whatwesee ≟ 1, "ΔABC", whatwesee ≟ 2, "ABCD"]) → text11