数学中国

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
查看: 5290|回复: 9

如何算出 E、F 点的复数坐标,条件见图

[复制链接]
发表于 2022-2-3 22:33 | 显示全部楼层 |阅读模式

本帖子中包含更多资源

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

x
 楼主| 发表于 2022-2-3 22:46 | 显示全部楼层
此问题来源见下图,此图为史勇先生原创。不知他是如何算出 E、F 点坐标的。

本帖子中包含更多资源

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

x

点评

设\(e^{iA}=v\),单位圆上先构造A和B,最后C,更加简洁。  发表于 2022-2-4 22:39
由于平时不用平方代表点,所以下面把平方写漏了,改正就对了。  发表于 2022-2-4 22:35
回复 支持 反对

使用道具 举报

发表于 2022-2-4 22:21 | 显示全部楼层

  1. \!\(\*OverscriptBox["a", "_"]\) = 1/a;
  2. \!\(\*OverscriptBox["b", "_"]\) = 1/b;
  3. \!\(\*OverscriptBox["c", "_"]\) = 1/c;
  4. Solve[
  5. \!\(\*OverscriptBox["BE", "\[RightVector]"]\) ((I b)/
  6.     c) (b - a)/(-a^2 b^2) == (a - c) (
  7. \!\(\*OverscriptBox["a", "_"]\) -
  8. \!\(\*OverscriptBox["c", "_"]\)) - (b - c) (
  9. \!\(\*OverscriptBox["b", "_"]\) -
  10. \!\(\*OverscriptBox["c", "_"]\)),
  11. \!\(\*OverscriptBox["BE", "\[RightVector]"]\)]
  12. Solve[
  13. \!\(\*OverscriptBox["CF", "\[RightVector]"]\) ((-I c)/
  14.     b) (a - c)/(-a^2 c^2) == (a - b) (
  15. \!\(\*OverscriptBox["a", "_"]\) -
  16. \!\(\*OverscriptBox["b", "_"]\)) - (b - c) (
  17. \!\(\*OverscriptBox["b", "_"]\) -
  18. \!\(\*OverscriptBox["c", "_"]\)),
  19. \!\(\*OverscriptBox["CF", "\[RightVector]"]\)]
复制代码

应该是史勇的思路,但不知错在哪里
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-2-6 12:52 | 显示全部楼层
本帖最后由 天山草 于 2022-2-6 20:42 编辑

求 E 点坐标的方法:



求 E 点坐标的程序代码如下:

  1. Clear["Global`*"];
  2. h = a^2 + b^2 + c^2;  
  3. \!\(\*OverscriptBox[\(h\), \(_\)]\) = 1/a^2 + 1/b^2 + 1/c^2;
  4. Timing[Simplify[
  5.   Solve[{Sqrt[(a^2 - b^2) (1/a^2 - 1/b^2)] Sqrt[(b^2 - e) (1/b^2 -
  6. \!\(\*OverscriptBox[\(e\), \(_\)]\))] == (a^2 - c^2) (1/a^2 -
  7.          1/c^2) - (b^2 - c^2) (1/b^2 - 1/c^2), (h - b^2)/(
  8. \!\(\*OverscriptBox[\(h\), \(_\)]\) - 1/b^2) == (e - b^2)/(
  9. \!\(\*OverscriptBox[\(e\), \(_\)]\) - 1/b^2)}, {e}, {
  10. \!\(\*OverscriptBox[\(e\), \(_\)]\)}]]]
复制代码


求 F 点坐标的程序代码如下:

  1. Clear["Global`*"];
  2. h = a^2 + b^2 + c^2;  
  3. \!\(\*OverscriptBox[\(h\), \(_\)]\) = 1/a^2 + 1/b^2 + 1/c^2;
  4. Timing[Simplify[
  5.   Solve[{Sqrt[(a^2 - c^2) (1/a^2 - 1/c^2)] Sqrt[(c^2 - f) (1/c^2 -
  6. \!\(\*OverscriptBox[\(f\), \(_\)]\))] == (a^2 - b^2) (1/a^2 -
  7.          1/b^2) - (b^2 - c^2) (1/b^2 - 1/c^2), (h - c^2)/(
  8. \!\(\*OverscriptBox[\(h\), \(_\)]\) - 1/c^2) == (f - c^2)/(
  9. \!\(\*OverscriptBox[\(f\), \(_\)]\) - 1/c^2)}, {f}, {
  10. \!\(\*OverscriptBox[\(f\), \(_\)]\)}]]]
复制代码


E 点和 F 点未化简公式表达:



上面公式中如何化简根式? 即如何确定开方后取正号还是负号,可以用具体数字代入公式验证确定,与实际测量结果一致才行。

根式开方后的正负号确定后,可用软件进一步证明主帖中的公式,方法及结果如下:


本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-2-8 10:50 | 显示全部楼层
主帖中的命题,可改成更一般的新命题,新命题的说法对于任何形状的三角形都适用,并且不必要求 BC 边最短。



对于钝三角形也适用:



BC 边不是最短也行:

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-2-9 13:08 | 显示全部楼层
关于 E1、E2、F1、F2 的标注顺序,共有四种不同的组合,其中两种是 N1N2//OH,另两种不平行。

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

发表于 2022-2-9 19:13 | 显示全部楼层

本帖子中包含更多资源

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

x

评分

参与人数 1威望 +20 收起 理由
天山草 + 20 赞一个!

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-2-9 21:25 | 显示全部楼层
下面这个命题消除了原命题的一个毛病,应该是无懈可击了:

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-7-5 13:17 , Processed in 0.120939 second(s), 17 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表