|

楼主 |
发表于 2023-4-14 10:24
|
显示全部楼层
本帖最后由 天山草 于 2023-4-14 22:30 编辑
前天想到一个构图,经试用效果不错,这是因为两个自由变量都是正实数的缘故。
用这个构图解答主帖问题如下。
仿照 8# creasson 的程序思路和 11# 关于 F 点坐标的设置方法,有:
程序:
运行结果:
程序代码:
- Clear["Global`*"]; (*B 为原点,内切圆半径为 1,BC 边与横轴重合。s、t 点坐标为两个变量。 *)
- (*按 8# 楼 creasson 方法写的程序如下:*)
- Print["根据构图,可直接引用此构图下的各点坐标如下:"];
- points = {B -> 0, C -> c, A -> ((t^2 - 1) (t - c) + 2 I t (t - c))/(1 - c t + t^2), pI -> t + I, D -> (2 c (t + I) (t - c))/(1 - c^2 + t^2),
- pE -> (c (t + I)^2)/(2 c t - t^2 - 1), F -> -((c (t + I)^2 (c - t))/( c (-c t + t^2 + 1) + t v (-c + t + I)^2))}(*pI是内心坐标,pE是E点坐标*)
- (*取值范围限定*)cond = t > 0 && c > 0 && 1 - c t + t^2 < 0 && 1 - c^2 + t^2 < 0 ;
- (*因 F,E,D 共线,所以下式虚部的分子为零,从而得到 v 的方程:*)
- vEQ = (Factor[ComplexExpand[Im[#]]] // Numerator) &@((D - F)/(D - pE) /. points);
- Print["参数 v 应满足方程: ", vEQ, " = 0 -------①"];
- Print["参数 t、c、v 的取值范围如下: "];
- cond = Reduce[Factor[ComplexExpand[Im[(F - B)/(A - B) /. points]]] > 0 && cond, {t, c, v}]
- (*计算 FA,FB,FC的长度*)
- Print["FA、FB、FC 的长度如下: "];
- dists = FullSimplify[ComplexExpand[Abs[#]], Assumptions -> cond] & /@ ({F - A, F - B, F - C} /. points);
- {FA -> dists[[1]], FB -> dists[[2]], FC -> dists[[3]]}
- target = (1/dists[[2]] - 1/dists[[1]] - 1/dists[[3]]) // Factor;
- Print["如果能证明下面 ② 式等于零,即可完成证明: "];
- Print[target, " -------②"];
- Print["因为 ① 式等于零,而 ① 式中的前几个因式都不为零,故最后那个因式应为零。而 ② 式分子中也有这个因式,所以 ② \
- 式必为零,故命题 1/FB - 1/FA -1/FC = 0 成立。"]
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|