两点间中点

GeoGebra 命令及参数

1. If(y(P) ≤ y(Q), P, Q) → F
2. If(y(P) ≤ y(Q), Q, P) → G
3. Line(F, xAxis) → f
4. Line(G, xAxis) → g
5. Line(F, yAxis) → h
6. Line(G, yAxis) → i
7. Midpoint(Q, P) → M
8. Line(M, xAxis) → j
9. Line(M, yAxis) → k
10. Intersect(g, yAxis) → A
11. Intersect(j, yAxis) → B
12. Intersect(f, yAxis) → C
13. Intersect(h, xAxis) → D
14. Intersect(k, xAxis) → E
15. Intersect(i, xAxis) → H
16. Segment(A, G) → l
17. Segment(F, D) → p
18. Segment(M, E) → q
19. Segment(G, H) → r
20. Segment(P, Q) → s
21. Intersect(f, i) → I
22. Segment(C, I) → n
23. Intersect(i, j) → J
24. Segment(B, J) → m
25. Segment(C, F) → t
26. Segment(B, M) → a
27. Segment(I, H) → b
28. Intersect(f, k) → K
29. Segment(E, K) → d
30. Text(x(P)) → X_P
31. Text(y(P)) → Y_P
32. If(x(Q) ≥ 0, Text[x(Q)], "(" + (Text[x(Q)]) + ")") → X_Q
33. If(y(Q) ≥ 0, Text[y(Q)], "(" + (Text[y(Q)]) + ")") → Y_Q
34. If(IsInteger[Xv] ≟ true ∨ c ≟ false, Text[Xv], If[Xv < 0, "–" + (FractionText[(Xv * (-1))]), FractionText[Xv]]) → Xt
35. If(IsInteger[Yv] ≟ true ∨ c ≟ false, Text[Yv], If[Yv < 0, "–" + (FractionText[(Yv * (-1))]), FractionText[Yv]]) → Yt
36. SelectedIndex(Bahasa) → nn
37. If(nn ≟ 1, "Coordinates of M", "Koordinat M") → text1