|

楼主 |
发表于 2023-5-13 20:56
|
显示全部楼层
- \!\(\*OverscriptBox["a", "_"]\) = 1/a;
- \!\(\*OverscriptBox["b", "_"]\) = 1/b;
- \!\(\*OverscriptBox["c", "_"]\) = 1/c; o = a + b + c;
- \!\(\*OverscriptBox["o", "_"]\) =
- \!\(\*OverscriptBox["a", "_"]\) +
- \!\(\*OverscriptBox["b", "_"]\) +
- \!\(\*OverscriptBox["c", "_"]\);(*外接圆圆心在原点*)
- d = (b + c)/2;
- \!\(\*OverscriptBox["d", "_"]\) = (
- \!\(\*OverscriptBox["b", "_"]\) +
- \!\(\*OverscriptBox["c", "_"]\))/2;
- KAB[a_, b_] := (a - b)/(
- \!\(\*OverscriptBox["a", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\));
- \!\(\*OverscriptBox["KAB", "_"]\)[a_, b_] := 1/KAB[a, b];(*复斜率定义*)
- \!\(\*OverscriptBox["Jd", "_"]\)[k1_, a1_, k2_, a2_] := -((a1 - k1
- \!\(\*OverscriptBox["a1", "_"]\) - (a2 - k2
- \!\(\*OverscriptBox["a2", "_"]\)))/(
- k1 - k2));(*复斜率等于k1,过点A1与复斜率等于k2,过点A2的直线交点*)
- Jd[k1_, a1_, k2_, a2_] := -((k2 (a1 - k1
- \!\(\*OverscriptBox["a1", "_"]\)) - k1 (a2 - k2
- \!\(\*OverscriptBox["a2", "_"]\)))/(k1 - k2));
- FourPoint[a_, b_, c_, d_] := ((
- \!\(\*OverscriptBox["c", "_"]\) d - c
- \!\(\*OverscriptBox["d", "_"]\)) (a - b) - (
- \!\(\*OverscriptBox["a", "_"]\) b - a
- \!\(\*OverscriptBox["b", "_"]\)) (c - d))/((a - b) (
- \!\(\*OverscriptBox["c", "_"]\) -
- \!\(\*OverscriptBox["d", "_"]\)) - (
- \!\(\*OverscriptBox["a", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\)) (c - d));(*过两点A和B、C和D的交点*)
- \!\(\*OverscriptBox["FourPoint", "_"]\)[a_, b_, c_, d_] := -(((c
- \!\(\*OverscriptBox["d", "_"]\) -
- \!\(\*OverscriptBox["c", "_"]\) d) (
- \!\(\*OverscriptBox["a", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\)) - ( a
- \!\(\*OverscriptBox["b", "_"]\) -
- \!\(\*OverscriptBox["a", "_"]\) b) (
- \!\(\*OverscriptBox["c", "_"]\) -
- \!\(\*OverscriptBox["d", "_"]\)))/((a - b) (
- \!\(\*OverscriptBox["c", "_"]\) -
- \!\(\*OverscriptBox["d", "_"]\)) - (
- \!\(\*OverscriptBox["a", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\)) (c - d)));
- e = FourPoint[a, d, o, c];
- \!\(\*OverscriptBox["e", "_"]\) =
- \!\(\*OverscriptBox["FourPoint", "_"]\)[a, d, o, c];
- f = Jd[-KAB[a, d], e, a c, b];
- \!\(\*OverscriptBox["f", "_"]\) =
- \!\(\*OverscriptBox["Jd", "_"]\)[-KAB[a, d], e, a c, b];
- g = (e + f)/2;
- \!\(\*OverscriptBox["g", "_"]\) = (
- \!\(\*OverscriptBox["e", "_"]\) +
- \!\(\*OverscriptBox["f", "_"]\))/2;
- Simplify[{1, e,
- \!\(\*OverscriptBox["e", "_"]\), 2, f,
- \!\(\*OverscriptBox["f", "_"]\)}]
- Factor[{1, e,
- \!\(\*OverscriptBox["e", "_"]\), 2, f,
- \!\(\*OverscriptBox["f", "_"]\)}]
- Simplify[{3, g,
- \!\(\*OverscriptBox["g", "_"]\)}]
- Simplify[{4, KAB[b, c], KAB[o, g]}]
- Simplify[KAB[b, c] == -KAB[o, g]](*验证垂直*)
- Simplify[{5, (b - c)/(o - g), (
- \!\(\*OverscriptBox["b", "_"]\) -
- \!\(\*OverscriptBox["c", "_"]\))/(
- \!\(\*OverscriptBox["o", "_"]\) -
- \!\(\*OverscriptBox["g", "_"]\))}]
- Simplify[(b - c)/(o - g) == -((
- \!\(\*OverscriptBox["b", "_"]\) -
- \!\(\*OverscriptBox["c", "_"]\))/(
- \!\(\*OverscriptBox["o", "_"]\) -
- \!\(\*OverscriptBox["g", "_"]\)))](*验证实部等于0*)
复制代码 |
|