使用圆规构造垂直平分线

GeoGebra 命令及参数

1. Segment(P, Q) → f
2. Circle(P, m) → c
3. Intersect(c, f, 1) → R
4. Segment(R, Q) → g
5. Point(g) → A
6. Distance(P, A) → n
7. Circle(P, n) → d
8. Circle(Q, n) → e
9. Intersect(d, e, 1) → B
10. Angle(A, P, B) → α
11. If(0 ≤ t < 1, t, 1) → i
12. Rotate(A, a°, P) → A'
13. Rotate(A', ((i * 40))°, P) → C
14. Arc(d, A', C) → k
15. Rotate(A, ((-a))°, P) → A'_1
16. If(1 ≤ t < 2, t - 1, If[t < 1, 0, 1]) → h
17. Rotate(A'_1, ((-((h * 40))))°, P) → D
18. Arc(d, D, A'_1) → p
19. If(2 ≤ t < 3, t - 2, If[t < 2, 0, 1]) → j
20. If(3 ≤ t < 4, t - 3, If[t < 3, 0, 1]) → l
21. If(t ≥ 4, t - 4, 0) → o
22. Intersect(e, f, 1) → S
23. Rotate(S, ((-a))°, Q) → S'
24. Rotate(S, a°, Q) → S'_1
25. Rotate(S', ((-((j * 40))))°, Q) → E
26. Rotate(S'_1, ((l * 40))°, Q) → F
27. Arc(e, E, S') → q
28. Arc(e, S'_1, F) → r
29. Intersect(d, e, 2) → G
30. If(x(Q) > x(P), Vector[B, G], Vector[G, B]) → u
31. If(x(Q) > x(P), Translate[B, Vector[(o * u)]], Translate[G, Vector[(o * u)]]) → H
32. If(x(Q) > x(P), Segment[B, H], Segment[G, H]) → s
33. SelectedIndex(Bahasa) → nn
34. If(nn ≟ 1, "Animate", "Animasi") → Tex1
35. If(nn ≟ 1, "Stop", "Berhenti") → Tex2
36. If(nn ≟ 1, "Resume", "Teruskan") → Tex3
37. If(nn ≟ 1, "Center P radius PA", "Pusat P jejari PA") → text1
38. If(nn ≟ 1, "Center Q radius PA", "Pusat Q jejari PA") → text2
39. If(nn ≟ 1, "To construct the perpendicular bisector of PQ using a pair of compasses", "Membina pembahagi dua sama serenjang PQ dengan menggunakan jangka lukis") → text3