dlsh 发表于 2022-1-16 20:58:56


\!\(\*OverscriptBox["a", "_"]\) = 1/a;
\!\(\*OverscriptBox["b", "_"]\) = 1/b;
\!\(\*OverscriptBox["c", "_"]\) = 1/c;(*原点在外心上，并且是单位圆*)
Chuizu := (
\!\(\*OverscriptBox["a", "_"]\) b - a
\!\(\*OverscriptBox["b", "_"]\) + p (
\!\(\*OverscriptBox["a", "_"]\) -
\!\(\*OverscriptBox["b", "_"]\)) +
\!\(\*OverscriptBox["p", "_"]\) (a - b))/(2 (
\!\(\*OverscriptBox["a", "_"]\) -
\!\(\*OverscriptBox["b", "_"]\)));(*=(1/2)[p+(
\!\(\*OverscriptBox["a", "_"]\)b-a
\!\(\*OverscriptBox["b", "_"]\)+
\!\(\*OverscriptBox["p", "_"]\)(a-b))/(
\!\(\*OverscriptBox["a", "_"]\)-
\!\(\*OverscriptBox["b", "_"]\))]P到直线AB的垂足*)

\!\(\*OverscriptBox["Chuizu", "_"]\) := (a
\!\(\*OverscriptBox["b", "_"]\) -
\!\(\*OverscriptBox["a", "_"]\) b +
\!\(\*OverscriptBox["p", "_"]\) (a - b) + p (
\!\(\*OverscriptBox["a", "_"]\) -
\!\(\*OverscriptBox["b", "_"]\)))/(2 (a - b));
d = Chuizu;
\!\(\*OverscriptBox["d", "_"]\) =
\!\(\*OverscriptBox["Chuizu", "_"]\); e = Chuizu;
\!\(\*OverscriptBox["e", "_"]\) =
\!\(\*OverscriptBox["Chuizu", "_"]\); f = Chuizu;
\!\(\*OverscriptBox["f", "_"]\) =
\!\(\*OverscriptBox["Chuizu", "_"]\);
Simplify[{d,
\!\(\*OverscriptBox["d", "_"]\), , e,
\!\(\*OverscriptBox["e", "_"]\), , f,
\!\(\*OverscriptBox[
RowBox[{"f", "\"}], "_"]\)}]
Simplify[{(a - f)/(b - f), (b - d)/(c - d), (c - e)/(a - e)}]
Simplify[{(a - f)/(b - f) + (b - d)/(c - d) + (c - e)/(
   a - e)}](*根据Ceva定理，和等于0*)
Factor[{(a - f)/(b - f) + (b - d)/(c - d) + (c - e)/(a - e)}]



达布曲线是三次方程。

dlsh 发表于 2022-1-16 23:06:18

38,39行错误，正确语句和结果如下图：

dlsh 发表于 2022-1-17 20:32:23


这次才是对的
页: 1 [2]
查看完整版本: 三角形的达布点对