|
TSC999
Post time 2023-9-17 20:14
本帖最后由 TSC999 于 2023-9-17 20:20 编辑 此题可用复平面解析几何做:
- Clear["Global`*"];(*令△ABC的外接圆为单位圆,圆心O为坐标原点,且BC边平行于实轴,AB、AC的复斜率分别为 u^2、v^2 *)
- \!\(\*OverscriptBox[\(o\), \(_\)]\) = o = 0; a = I u v; \!\(\*OverscriptBox[\(a\), \(_\)]\) = 1/a; b = I u/v;
- \!\(\*OverscriptBox[\(b\), \(_\)]\) = 1/b; c = I v/u; \!\(\*OverscriptBox[\(c\), \(_\)]\) = 1/c;
- \!\(\*OverscriptBox[\(d\), \(_\)]\) = d = -1/2; \!\(\*OverscriptBox[\(e\), \(_\)]\) = e = 1/4;
- k[a_, b_] := (a - b)/(\!\(\*OverscriptBox[\(a\), \(_\)]\) - \!\(\*OverscriptBox[\(b\), \(_\)]\)); (*复斜率定义*)
- (*过A1点、复斜率等于k1的直线,与过A2点、复斜率等于k2的直线的交点:*)
- Jd[k1_, a1_, k2_, a2_] := -((k2 (a1 - k1 \!\(\*OverscriptBox[\(a1\), \(_\)]\)) - k1 (a2 - k2 \!\(\*OverscriptBox[\(a2\), \(_\)]\)))/(k1 - k2));
- \!\(\*OverscriptBox[\(Jd\), \(_\)]\)[k1_, a1_, k2_, a2_] := -((a1 - k1 \!\(\*OverscriptBox[\(a1\), \(_\)]\) - (a2 - k2 \!\(\*OverscriptBox[\(a2\), \(_\)]\)))/(k1 - k2));
- p = Simplify@Jd[k[b, d], b, k[c, e], c]; \!\(\*OverscriptBox[\(p\), \(_\)]\) = Simplify@\!\(\*OverscriptBox[\(Jd\), \(_\)]\)[k[b, d], b, k[c, e], c];
- Simplify@Solve[{p == 1/\!\(\*OverscriptBox[\(p\), \(_\)]\), p == a}, {u, v}];
- u = -Sqrt[1/21 (-19 + 4 I Sqrt[5])]; v = 1/63 Sqrt[-399 + 84 I Sqrt[5]] (Sqrt[5] + 2 I);
- Simplify[a]
Copy the Code
程序运行结果为:\(-\frac{2}{7}+i\frac{3\sqrt{5}}{7}\)
|
|