- 注册时间
- 2017-1-14
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 9630
- 在线时间
- 小时
|
发表于 2025-2-8 10:06:42
|
显示全部楼层
本帖最后由 王守恩 于 2025-2-8 10:26 编辑
利用《角格点问题》可以这样解。∠BAD=a, ∠ACE=∠CBE=b, ∠DAE=c。(1)化简=(2), (2)化简=(3)。(3)还是可以化简的, 可惜我的功底不够了。
- Solve[{Tan[a] == 3/4, Sin[b]Sin[b]Sin[a+c]/(Sin[Pi/2-a-b]Sin[Pi/2-a-b]Sin[a-c]) == 1, Sin[b]Sin[Pi/6+c]Sin[c]/(Sin[Pi/2-a-b]Sin[Pi/3-c]Sin[a-c]) == 1, (49/3)/Sin[Pi/3] == DE/Sin[c]
- Solve[{Tan[a] == 3/4, Sin[a + c] Sin[Pi/3 - c]^2 Sin[a - c]^2/(Sin[a - c] Sin[Pi/6 + c]^2 Sin[c]^2) == 1, (49/3)/Sin[Pi/3] == DE/Sin[c], 1 > a > 0, 1 > c > 0}, {a, c, DE}]
- Solve[{Tan[a] == 3/4, Sin[a + c] Sin[a - c]/(Tan[Pi/6 + c]^2 Sin[c]^2) == 1, (49/3)/Sin[Pi/3] == DE/Sin[c], 1 > a > 0, 1 > c > 0}, {a, c, DE}] // FullSimplify
复制代码
{{a -> ArcTan[3/4], c -> 2 ArcCot[3 Sqrt[3]], DE -> 7}} |
|