|

楼主 |
发表于 2022-5-19 21:10
|
显示全部楼层
本帖最后由 uk702 于 2022-5-19 21:13 编辑
请教各位达人,我用复数的方法硬算,代码很简单,算得
\( g = \frac{r^2 (-1+u^2) (-1+v^2)}{(u-v+r(-1+uv))^2} \)
其中 r 为任意实数,u、v 为两模为 1 的单位复数,现在的问题是,如何证明 g 是一个纯实数?
附代码如下:
- ClearAll["Global`*"]; a = -1; b = 1;
- pp = Solve[{(d - p)/(d - a) == -(( \!\(\*OverscriptBox[\(d\), \(_\)]\) - \!\(\*OverscriptBox[\(p\), \(_\)]\))/( \!\(\*OverscriptBox[\(d\), \(_\)]\) - a)), (c - p)/(c - b) == -(( \!\(\*OverscriptBox[\(c\), \(_\)]\) - \!\(\*OverscriptBox[\(p\), \(_\)]\))/( \!\(\*OverscriptBox[\(c\), \(_\)]\) - b))}, {p, \!\(\*OverscriptBox[\(p\), \(_\)]\)}]; (* PD\[UpTee]DA ,PC\[UpTee]CB *)
- p = p /. pp;
- \!\(\*OverscriptBox[\(p\), \(_\)]\) = \!\(\*OverscriptBox[\(p\), \(_\)]\) /. pp; (* 取得 P 点的值 *)
- qq = Solve[{q - p == -(q - \!\(\*OverscriptBox[\(p\), \(_\)]\))}, {q}]; q = q /. qq; (* PQ\[UpTee]AB *)
- g = Simplify[((d - q) (c - q))/(p - q)^2]; (* 若 \[Angle]DQP=\[Angle]CQP,则 g 为纯实数 *)
- c = r u; \!\(\*OverscriptBox[\(c\), \(_\)]\) = r /u; d = r v; \!\(\*OverscriptBox[\(d\), \(_\)]\) = r /v;
- Simplify[g]
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|