平行四边形对角线平行线全等线段动态演示

GeoGebra 命令及参数

1. Ray(A, B) → f
2. Rotate(B, a°, A) → B'
3. Ray(A, B') → g
4. Line(B, g) → h
5. Point(g) → C
6. Line(C, f) → i
7. Intersect(h, i) → D
8. Segment(C, D) → g_3
9. Line(A, D) → t_1
10. Segment(A, C) → f_3
11. Point(f_3) → U
12. Line(U, t_1) → f_2
13. Angle(B, A, B') → α
14. Segment(C, D) → j
15. Segment(A, B) → k
16. Segment(B, D) → l
17. Segment(A, C) → m
18. Min(m, k) → b
19. Circle(C, (0.2 * b)) → d
20. Circle(A, (0.2 * b)) → e
21. Circle(B, (0.2 * b)) → p
22. Circle(D, (0.2 * b)) → c
23. Intersect(e, k, 1) → E
24. Intersect(e, m, 1) → F
25. Intersect(p, k, 1) → G
26. Intersect(p, l, 1) → H
27. Intersect(d, g, 2) → I
28. Ray(C, I) → q
29. Intersect(c, h, 2) → J
30. Ray(D, J) → r
31. Intersect(c, i, 2) → K
32. Ray(D, K) → s
33. Dilate(A, If[0 < o ≤ 1, 1 - o, 0], B) → A'
34. Segment(A, A') → t
35. Rotate(E, If[1 < o ≤ 2, ((o - 1) * α), α], A) → E'
36. CircleSector(A, E, E') → c_1
37. Dilate(A, If[2 < o ≤ 3, 3 - o, 0], C) → A'_1
38. Vector(A, A'_1) → u
39. Translate(c_1, u) → d_1
40. Segment(A, A'_1) → f_1
41. Dilate(C, If[3 < o ≤ 4, 4 - o, 0], D) → C'
42. Vector(C, C') → v
43. Translate(d_1, v) → e_1
44. Segment(C, C') → g_1
45. Dilate(D, If[4 < o ≤ 5, 5 - o, 0], B) → D'
46. Segment(D, D') → h_1
47. Polygon(A, B, D, C) → poly1, a_1, b_1, d_2, c_2
48. Dilate(A, If[5.5 < o ≤ 6.5, 6.5 - o, 0], C) → A'_2
49. Vector(A, A'_2) → w
50. Translate(A, w) → A'_3
51. Translate(A', w) → A''
52. Dilate(A, If[6.5 < o ≤ 7.5, 7.5 - o, 0], B) → A'_4
53. Vector(A, A'_4) → u_1
54. Translate(A, u_1) → A'_5
55. Translate(A'_1, u_1) → L
56. Rotate(D, If[6 < o ≤ 7, ((-(o - 6)) * π / 3), ((-π)) / 3], B) → D'_2
57. Rotate(D', If[6 < o ≤ 7, ((-(o - 6)) * π / 3), ((-π)) / 3], B) → D''
58. Rotate(C, If[6 < o ≤ 7, ((-(o - 6)) * π / 3), ((-π)) / 3], D) → C'_2
59. Rotate(C', If[6 < o ≤ 7, ((-(o - 6)) * π / 3), ((-π)) / 3], D) → C''
60. Rotate(A, If[6 < o ≤ 7, ((-(o - 6)) * π / 3), ((-π)) / 3], C) → A'_7
61. Rotate(A'_1, If[6 < o ≤ 7, ((-(o - 6)) * π / 3), ((-π)) / 3], C) → M
62. Rotate(A, If[6 < o ≤ 7, ((-(o - 6)) * π / 3), ((-π)) / 3], A) → A'_8
63. Rotate(A', If[6 < o ≤ 7, ((-(o - 6)) * π / 3), ((-π)) / 3], A) → A''_1
64. Rotate(D, If[7 < o ≤ 8, ((o - 7) * π / 3), π / 3], D) → D'_3
65. Rotate(D', If[7 < o ≤ 8, ((o - 7) * π / 3), π / 3], D) → D''_1
66. Rotate(C, If[7 < o ≤ 8, ((o - 7) * π / 3), π / 3], C) → C'_3
67. Rotate(C', If[7 < o ≤ 8, ((o - 7) * π / 3), π / 3], C) → C''_1
68. Rotate(A, If[7 < o ≤ 8, ((o - 7) * π / 3), π / 3], A) → A'_9
69. Rotate(A'_1, If[7 < o ≤ 8, ((o - 7) * π / 3), π / 3], A) → N
70. Rotate(A, If[7 < o ≤ 8, ((o - 7) * π / 3), π / 3], B) → A'_{10}
71. Rotate(A', If[7 < o ≤ 8, ((o - 7) * π / 3), π / 3], B) → A''_2
72. Intersect(g_3, f_2) → V
73. Segment(B, V) → g_2
74. Segment(B, U) → h_2
75. Intersect(t_1, h_2) → W
76. Intersect(t_1, g_2) → Z
77. Segment(A, W) → i_2
78. Segment(W, Z) → j_2
79. Segment(Z, D) → k_2
80. Segment(W, U) → l_2
81. Segment(W, B) → m_2
82. Segment(B, Z) → n_2
83. Segment(Z, V) → p_2
84. Min({i_2, j_2, k_2, l_2, m_2, n_2, p_2}) → o_1
85. Line(V, B) → q_2
86. Line(B, U) → r_2
87. Line(A, D) → s_2
88. Circle(Z, (0.4 * o_1)) → e_2
89. Intersect(e_2, q_2, 2) → A_1
90. Intersect(e_2, s_2, 2) → B_1
91. Intersect(e_2, s_2, 1) → C_1
92. Dilate(B, If[7 < o ≤ 8, 8 - o, 0], U) → B'_2
93. Segment(B, B'_2) → i_1
94. Circle(U, 2) → k_1
95. Circle(V, 2) → p_1
96. Intersect(p_1, f_2, 2) → P
97. Ray(V, P) → j_1
98. Dilate(U, If[8 < o ≤ 9, 9 - o, 0], V) → U'
99. Segment(U, U') → l_1
100. Dilate(A, If[9 < o ≤ 10, 10 - o, 0], W) → A'_6
101. Segment(A, A'_6) → m_1
102. Dilate(W, If[10 < o ≤ 11, 11 - o, 0], Z) → W'
103. Segment(W, W') → n_1
104. Dilate(Z, If[11 < o ≤ 12, 12 - o, 0], D) → Z'
105. Segment(Z, Z') → q_1
106. Dilate(B, If[12 < o ≤ 13, 13 - o, 0], Z) → B'_1
107. Segment(B, B'_1) → r_1
108. Dilate(Z, If[13 < o ≤ 14, 14 - o, 0], V) → Z'_1
109. Segment(Z, Z'_1) → s_1
110. Angle(D, Z, V) → β
111. Rotate(B_1, If[14 < o ≤ 15, ((o - 14) * β), β], Z) → O
112. CircleSector(Z, B_1, O) → t_2
113. Dilate(Z, If[15 < o ≤ 16, 16 - o, 0], V) → Z'_2
114. Vector(Z, Z'_2) → v_1
115. Translate(t_2, v_1) → c_3
116. Midpoint(A, D) → Q
117. Rotate(A, If[16 < o ≤ 17, ((o - 16) * π), π], Q) → A'_{11}
118. Rotate(A'_6, If[16 < o ≤ 17, ((o - 16) * π), π], Q) → R
119. Segment(A'_{11}, R) → a_2