费马点构造 by Bernat

GeoGebra 命令及参数

1. Polygon(A, B, C) → tri1, c, a, b
2. Polygon(B, C, 3, xOyPlane) → pol1, f, g, h, T_1
3. Polygon(A, B, 3, xOyPlane) → pol2, i, j, k, T_2
4. Polygon(C, A, 3, xOyPlane) → pol3, l, m, n, T_3
5. Ray(T_2, C) → p
6. Ray(T_1, A) → q
7. Ray(T_3, B) → r
8. Intersect(p, q) → F
9. PointIn(tri1) → D
10. Segment(D, B) → s_2
11. Segment(D, C) → s_3
12. Segment(D, A) → s_1
13. Segment(F, E) → s
14. Segment(D, G) → t
15. CurveCartesian(x(A) + (k * (x(B) - x(A))), y(A) + (k * (y(B) - y(A))), 0, k, 0, 1) → e
16. Surface((k * e(t)) + ((1 - k) * C), k, 0, 1, t, 0, 1) → o
17. Surface((t * (x(A) + (k * (x(B) - x(A))))) + ((1 - t) * x(C)), (t * (y(A) + (k * (y(B) - y(A))))) + ((1 - t) * y(C)), ss((t * (x(A) + (k * (x(B) - x(A))))) + ((1 - t) * x(C)), (t * (y(A) + (k * (y(B) - y(A))))) + ((1 - t) * y(C))), k, 0, 1, t, 0, 1) → u
18. CurveCartesian(x(A) + (k * (x(B) - x(A))), y(A) + (k * (y(B) - y(A))), ss(x(A) + (k * (x(B) - x(A))), y(A) + (k * (y(B) - y(A)))), k, 0, 1) → v
19. CurveCartesian(x(A) + (k * (x(C) - x(A))), y(A) + (k * (y(C) - y(A))), ss(x(A) + (k * (x(C) - x(A))), y(A) + (k * (y(C) - y(A)))), k, 0, 1) → w
20. CurveCartesian(x(B) + (k * (x(C) - x(B))), y(B) + (k * (y(C) - y(B))), ss(x(B) + (k * (x(C) - x(B))), y(B) + (k * (y(C) - y(B)))), k, 0, 1) → a_1