|
本帖最后由 天山草 于 2021-9-3 22:47 编辑
要找到这个问题的规律,需要把图旋转画一下,使图形左右对称。
公式如下,估计没有“统一的向量公式”。
对下面那个图,换一个证明方法如下:
程序代码如下。复制后可在 mathematica 下运行。
- Clear["Global`*"];
- XC = 0; YC = 0; XP = 1; YP = 0; XB = u; YB = v; XQ = (\[Lambda]1 (\
- \[Lambda]2 (u - 1) +
- 1))/(-\[Lambda]1 \[Lambda]2 + \[Lambda]1 + \[Lambda]2); YQ = (\
- \[Lambda]1 \[Lambda]2 v)/(-\[Lambda]1 \[Lambda]2 + \[Lambda]1 + \
- \[Lambda]2);
- XR = \[Lambda]1 u; YR = \[Lambda]1 v; XA =
- 1 + \[Lambda]2 (u - 1); YA = \[Lambda]2 v;
- QA = Sqrt[(XA - XQ)^2 + (YA - YQ)^2]; QC = Sqrt[(XQ - XC)^2 + (YQ -
- YC)^2]; RQ = Sqrt[(XQ - XR)^2 + (YQ - YR)^2];
- RC = Sqrt[(XR - XC)^2 + (YR - YC)^2]; RB = Sqrt[(XR - XB)^2 + (YR -
- YB)^2]; PQ = Sqrt[(XP - XQ)^2 + (YP - YQ)^2];
- PR = Sqrt[(XP - XR)^2 + (YP - YR)^2]; PA = Sqrt[(XP - XA)^2 + (YP -
- YA)^2]; PB = Sqrt[(XP - XB)^2 + (YP - YB)^2];
- BA = Sqrt[(XB - XA)^2 + (YB - YA)^2]; CA = Sqrt[(XC - XA)^2 + (YC -
- YA)^2]; BC = Sqrt[(XB - XC)^2 + (YB - YC)^2];
- QR = RQ; QP = PQ; RP = PR; AP = PA; AB = BA; AQ = QA; AC = CA; CR = \
- RC; CB = BC; CQ = QC;
- w1 = FullSimplify[(QP QR)/(QA QC) + (CB CR)/(CQ CA) - (AP AB)/(
- AC AQ), 1 > \[Lambda]1 > 0 && 1 > \[Lambda]2 > 0];
- w2 = FullSimplify[(QA QC)/(QR QP) + (PA PB)/(PQ PR) - (RC RB)/(
- RP RQ ), 1 > \[Lambda]1 > 0 && 1 > \[Lambda]2 > 0];
- Print["\!\(\*FractionBox[\(QP\\\ \\\ QR\), \
- \(QA\\\ \\\ QC\)]\)+\!\(\*FractionBox[\(CB\\\ \\\ CR\), \
- \(CQ\\\ \\\ CA\)]\)-\!\(\*FractionBox[\(AP\\\ \\\ AB\), \(AC\\\ AQ\)]\
- \) = ", w1]; Print["\!\(\*FractionBox[\(QA\\\ \\\ QC\), \
- \(QR\\\ \\\ QP\)]\)+\!\(\*FractionBox[\(PA\\\ \\\ PB\), \
- \(PQ\\\ \\\ PR\)]\)-\!\(\*FractionBox[\(RC\\\ \\\ RB\), \(\(RP\)\(\
- \\\ \\\ \)\(RQ\)\(\\\ \)\)]\) = ", w2]
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|