数学中国

用户名  找回密码
 注册
帖子
热搜: 活动 交友 discuz
查看: 4451|回复: 2

ABCD是具有内切圆和外接圆的四边形。圆E和圆F是△ABD和△CBD的内心。证明AEFC共圆。

[复制链接]
发表于 2023-4-29 20:08 | 显示全部楼层 |阅读模式
ABCD 是同时具有内切圆和外接圆的四边形。圆E和圆F是△ABD和△CBD的内心。
证明AEFC共圆。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2023-4-30 12:12 | 显示全部楼层
四边形有外接圆的充要条件是其对角互补。
四边形有内切圆的充要条件是其对边长度之和相等。证明中必须用到这个条件才行。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-4-30 13:53 | 显示全部楼层
本帖最后由 天山草 于 2023-4-30 14:40 编辑



说明:初始程序中采用了三个变量:uvw,考虑到四边形具有内切圆这个条件,知两组对边

长度之和应该相等,按此约束,可找出 wuv 的关系。因此最终变量只有uv 这两个。

最后,判断四点共圆的依据是如果对应的两个圆周角相等则四点共圆。

  1. Clear["Global`*"];(*令△ABC的外接圆为单位圆O,BC边平行于实轴。AB、AC、BD的复斜率为u^2,v^2,w^2*)
  2. \!\(\*OverscriptBox[\(o\), \(_\)]\) = o = 0; a = I u v;   \!\(\*OverscriptBox[\(a\), \(_\)]\) = 1/(I u v); b = (I u)/v;  
  3. \!\(\*OverscriptBox[\(b\), \(_\)]\) = v/(I u);  c = (I v)/u;  \!\(\*OverscriptBox[\(c\), \(_\)]\) = u/(I v);
  4. Simplify@Solve[{(o - b) (\!\(\*OverscriptBox[\(o\), \(_\)]\) - \!\(\*OverscriptBox[\(b\), \(_\)]\)) == (o - d) (\!\(\*OverscriptBox[\(o\), \(_\)]\) - 1/d), (b - d)/(\!\(\*OverscriptBox[\(b\), \(_\)]\) - 1/d) == w^2}, {d}] // Flatten;
  5. d = (I v w^2)/u; \!\(\*OverscriptBox[\(d\), \(_\)]\) = 1/d;
  6. (*以下五条线段的最终长度公式中前面取正号还是取负号,需要代入具体数字进行判断。对于此图,u=0.5326+0.8463 I;
  7. v=0.5534-0.8328 I; w=0.8526+0.5225 I;*)
  8. AB = Factor@Simplify[Sqrt[(a - b) (\!\(\*OverscriptBox[\(a\), \(_\)]\) - \!\(\*OverscriptBox[\(b\), \(_\)]\))]]; AB = Sqrt[-((v^2 - 1)^2/  v^2)]; AB = (v^2 - 1)/v I;
  9. BC = Factor@Simplify[ Sqrt[(b - c) (\!\(\*OverscriptBox[\(b\), \(_\)]\) - \!\(\*OverscriptBox[\(c\), \(_\)]\))]]; BC = Sqrt[-((u^2 - v^2)^2/(  u^2 v^2))]; BC = -((u^2 - v^2)/(u v)) I;
  10. DC = Factor@Simplify[ Sqrt[(d - c) (\!\(\*OverscriptBox[\(d\), \(_\)]\) - \!\(\*OverscriptBox[\(c\), \(_\)]\))]]; DC = Sqrt[-((w^2 - 1)^2/  w^2)]; DC = -((w^2 - 1)/w) I;
  11. AD = Factor@Simplify[Sqrt[(a - d) (\!\(\*OverscriptBox[\(a\), \(_\)]\) - \!\(\*OverscriptBox[\(d\), \(_\)]\))]]; AD = Sqrt[-((u^2 - w^2)^2/( u^2 w^2))]; AD = -((u^2 - w^2)/(u w)) I;
  12. BD = Factor@Simplify[Sqrt[(b - d) (\!\(\*OverscriptBox[\(b\), \(_\)]\) - \!\(\*OverscriptBox[\(d\), \(_\)]\))]]; BD = Sqrt[-((u^2 -
  13.     v^2 w^2)^2/(u^2 v^2 w^2))]; BD = -((u^2 - v^2 w^2)/(u v w)) I;
  14. e = Simplify[(a BD + b AD + d AB)/(AB + BD + AD)]; \!\(\*OverscriptBox[\(e\), \(_\)]\) = Simplify[(\!\(\*OverscriptBox[\(a\), \(_\)]\) BD + \!\(\*OverscriptBox[\(b\), \(_\)]\) AD + \!\(\*OverscriptBox[\(d\), \(_\)]\) AB)/(AB + BD + AD)];
  15. e =  I (u + (v - 1) w); \!\(\*OverscriptBox[\(e\), \(_\)]\) = (I (u (v - 1) - v w))/(u v w);
  16. f = Simplify[(b DC + c BD + d BC)/(BC + DC + BD)]; \!\(\*OverscriptBox[\(f\), \(_\)]\) = Simplify[(\!\(\*OverscriptBox[\(b\), \(_\)]\) DC + \!\(\*OverscriptBox[\(c\), \(_\)]\) BD + \!\(\*OverscriptBox[\(d\), \(_\)]\) BC)/(BC + DC + BD)];
  17. f = ( I (u (w - 1) + v w))/u; \!\(\*OverscriptBox[\(f\), \(_\)]\) = -((I (u - v w + v))/(v w));
  18. k[a_, b_] := (a - b)/(\!\(\*OverscriptBox[\(a\), \(_\)]\) - \!\(\*OverscriptBox[\(b\), \(_\)]\));(*定义复斜率*)
  19. Simplify@Solve[{AD + BC == AB + DC }, {w}] // Flatten;
  20. w = (u^2 + Sqrt[u^4 + u^3 (6 v^2 - 2) + u^2 (v^4 + 4 v^2 + 1) - 2 u v^2 (v^2 - 3) + v^4] + u (v^2 - 1) - v^2)/(2 (u + 1) v);
  21. d = Factor@Simplify[(I v w^2)/u]; \!\(\*OverscriptBox[\(d\), \(_\)]\) = 1/d;
  22. e = Factor@Simplify[I (u + (v - 1) w)]; \!\(\*OverscriptBox[\(e\), \(_\)]\) = Factor@Simplify[(I (u (v - 1) - v w))/(u v w)];
  23. f = Factor@Simplify[(I (u (w - 1) + v w))/u]; \!\(\*OverscriptBox[\(f\), \(_\)]\) = Factor@Simplify[-((I (u - v w + v))/(v w))];
  24. Print["a = ", a, ", b = ", b, ", c = ", c, ", d = ", d]; Print["e = ", e]; Print["f = ", f];
  25. f\[Angle][a_, b_, c_] := k[b, c]/k[a, b];  (*左边表示∠ABC的指数函数\[ExponentialE]^\[ImaginaryI]2\[Angle]ABC*)
  26. f\[Angle]AEC = Factor@FullSimplify[ f\[Angle][a, e, c]];
  27. f\[Angle]AFC = Factor@FullSimplify[ f\[Angle][a, f, c] ];
  28. Print["f\[Angle]AEC = ", f\[Angle]AEC];
  29. Print["f\[Angle]AFC = ", f\[Angle]AFC];
  30. Print["由于 f\[Angle]AEC = f\[Angle]AFC,所以 AEFC 四点共圆。"]
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

LaTEX预览输入 教程 符号库 加行内标签 加行间标签 
对应的 LaTEX 效果:

Archiver|手机版|小黑屋|数学中国 ( 京ICP备05040119号 )

GMT+8, 2025-7-20 07:05 , Processed in 0.098066 second(s), 16 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表
\frac{\square}{\square}\sqrt{\square}\square_{\baguet}^{\baguet}\overarc{\square}\ \dot{\baguet}\left(\square\right)\binom{\square}{\square}\begin{cases}\square\\\square\end{cases}\ \begin{bmatrix}\square&\square\\\square&\square\end{bmatrix}\to\Rightarrow\mapsto\alpha\ \theta\ \pi\times\div\pm\because\angle\ \infty
\frac{\square}{\square}\sqrt{\square}\sqrt[\baguet]{\square}\square_{\baguet}\square^{\baguet}\square_{\baguet}^{\baguet}\sum_{\baguet}^{\baguet}\prod_{\baguet}^{\baguet}\coprod_{\baguet}^{\baguet}\int_{\baguet}^{\baguet}\lim_{\baguet}\lim_{\baguet}^{\baguet}\bigcup_{\baguet}^{\baguet}\bigcap_{\baguet}^{\baguet}\bigwedge_{\baguet}^{\baguet}\bigvee_{\baguet}^{\baguet}
\underline{\square}\overline{\square}\overrightarrow{\square}\overleftarrow{\square}\overleftrightarrow{\square}\underrightarrow{\square}\underleftarrow{\square}\underleftrightarrow{\square}\dot{\baguet}\hat{\baguet}\vec{\baguet}\tilde{\baguet}
\left(\square\right)\left[\square\right]\left\{\square\right\}\left|\square\right|\left\langle\square\right\rangle\left\lVert\square\right\rVert\left\lfloor\square\right\rfloor\left\lceil\square\right\rceil\binom{\square}{\square}\boxed{\square}
\begin{cases}\square\\\square\end{cases}\begin{matrix}\square&\square\\\square&\square\end{matrix}\begin{pmatrix}\square&\square\\\square&\square\end{pmatrix}\begin{bmatrix}\square&\square\\\square&\square\end{bmatrix}\begin{Bmatrix}\square&\square\\\square&\square\end{Bmatrix}\begin{vmatrix}\square&\square\\\square&\square\end{vmatrix}\begin{Vmatrix}\square&\square\\\square&\square\end{Vmatrix}\begin{array}{l|l}\square&\square\\\hline\square&\square\end{array}
\to\gets\leftrightarrow\nearrow\searrow\downarrow\uparrow\updownarrow\swarrow\nwarrow\Leftarrow\Rightarrow\Leftrightarrow\rightharpoonup\rightharpoondown\impliedby\implies\Longleftrightarrow\leftharpoonup\leftharpoondown\longleftarrow\longrightarrow\longleftrightarrow\Uparrow\Downarrow\Updownarrow\hookleftarrow\hookrightarrow\mapsto
\alpha\beta\gamma\Gamma\delta\Delta\epsilon\varepsilon\zeta\eta\theta\Theta\iota\kappa\varkappa\lambda\Lambda\mu\nu\xi\Xi\pi\Pi\varpi\rho\varrho\sigma\Sigma\tau\upsilon\Upsilon\phi\Phi\varphi\chi\psi\Psi\omega\Omega\digamma\vartheta\varsigma\mathbb{C}\mathbb{H}\mathbb{N}\mathbb{P}\mathbb{Q}\mathbb{R}\mathbb{Z}\Re\Im\aleph\partial\nabla
\times\cdot\ast\div\pm\mp\circ\backslash\oplus\ominus\otimes\odot\bullet\varnothing\neq\equiv\not\equiv\sim\approx\simeq\cong\geq\leq\ll\gg\succ\prec\in\ni\cup\cap\subset\supset\not\subset\not\supset\notin\not\ni\subseteq\supseteq\nsubseteq\nsupseteq\sqsubset\sqsupset\sqsubseteq\sqsupseteq\sqcap\sqcup\wedge\vee\neg\forall\exists\nexists\uplus\bigsqcup\bigodot\bigotimes\bigoplus\biguplus\bigcap\bigcup\bigvee\bigwedge
\because\therefore\angle\parallel\perp\top\nparallel\measuredangle\sphericalangle\diamond\diamondsuit\doteq\propto\infty\bowtie\square\smile\frown\bigtriangledown\triangle\triangleleft\triangleright\bigcirc \wr\amalg\models\preceq\mid\nmid\vdash\dashv\nless\ngtr\ldots\cdots\vdots\ddots\surd\ell\flat\sharp\natural\wp\clubsuit\heartsuit\spadesuit\oint\lfloor\rfloor\lceil\rceil\lbrace\rbrace\lbrack\rbrack\vert\hbar\aleph\dagger\ddagger

MathQuill输入:

Latex代码输入: