探索有向数加减法与几何图形

GeoGebra 命令及参数

1. Polygon(A, N, M) → poly1, m, a_1, n
2. Rotate(A, 90*°) → A'
3. Rotate(N, 90*°) → N'
4. Rotate(M, 90*°) → M'
5. Polygon(A', N', M') → poly1', m', a', n'
6. Rotate(A, -90*°) → A'_1
7. Rotate(N, -90*°) → N'_1
8. Rotate(M, -90*°) → M'_1
9. Polygon(A'_1, N'_1, M'_1) → poly1'_1, m'_1, a'_1, n'_1
10. Translate(A'_1, Vector[(a, 0)]) → E
11. Translate(N'_1, Vector[(a, 0)]) → F
12. Translate(M'_1, Vector[(a, 0)]) → G
13. Polygon(E, F, G) → poly2, g_1, e_1, f
14. Translate(A', Vector[(a + b, 0)]) → A''
15. Translate(N', Vector[(a + b, 0)]) → N''
16. Translate(M', Vector[(a + b, 0)]) → M''
17. Polygon(A'', N'', M'') → poly1'', m'', a'', n''
18. Translate(A', Vector[(a - b, 0)]) → A''_1
19. Translate(N', Vector[(a - b, 0)]) → N''_1
20. Translate(M', Vector[(a - b, 0)]) → M''_1
21. Polygon(A''_1, N''_1, M''_1) → poly1''_1, m''_1, a''_1, n''_1
22. Translate(A'_1, Vector[(a + b, 0)]) → H
23. Translate(N'_1, Vector[(a + b, 0)]) → I
24. Translate(M'_1, Vector[(a + b, 0)]) → J
25. Polygon(H, I, J) → poly3, j_1, h_1, i_1
26. Translate(A'_1, Vector[(a - b, 0)]) → K
27. Translate(N'_1, Vector[(a - b, 0)]) → L
28. Translate(M'_1, Vector[(a - b, 0)]) → O
29. Polygon(K, L, O) → poly4, o, k_1, l_1
30. Segment(A, (0, 1)) → p
31. Segment((0, 1), (a, 1)) → q
32. Segment((a, 1), (a, 0)) → r
33. Segment((a, 0), (a, 0.5)) → s
34. Segment((a, 0.5), (a + b, 0.5)) → t
35. Segment((a + b, 0.5), (a + b, 0)) → b_1
36. Segment((0, 0), (0, -1)) → c_1
37. Segment((0, -1), (a + b, -1)) → d_1
38. Segment((a + b, -1), (a + b, 0)) → f_1
39. Segment((a, 0.5), (a - b, 0.5)) → m_1
40. Segment((a - b, 0.5), (a - b, 0)) → n_1
41. Segment((0, -1), (a - b, -1)) → p_1
42. Segment((a - b, -1), (a - b, 0)) → q_1
43. Segment((a, 0.5), (a + b, 0.5)) → r_1
44. Segment((a + b, 0.5), (a + b, 0)) → s_1