|
本帖最后由 天山草 于 2025-2-22 18:42 编辑
14# 楼陆教授的帖子中,也可以用 mathematica 计算软件求出 α 和 β 的角度值。
使用指令为 Simplify@Reduce[3 Cos[α]+ 4 Cos[α+β] == 0 && 18 Cos[β] + 4 Cos[α +β] == 0 && 0≤α≤π/2 && 0≤β≤π/2],
结果为 \(α = 2 ArcTan[\frac{1}{\sqrt{7}}]\) 和 \(β = 2 ArcTan[\frac{\sqrt{7}}{3}]\)。
角度值和最大值计算代码为:
- Clear["Global`*"]; Simplify@
- Reduce[3 Cos[\[Alpha]] + 4 Cos[\[Alpha] + \[Beta]] == 0 &&
- 18 Cos[\[Beta]] + 4 Cos[\[Alpha] + \[Beta]] == 0 &&
- 0 \[LessSlantEqual] \[Alpha] \[LessSlantEqual] \[Pi]/2 &&
- 0 \[LessSlantEqual] \[Beta] \[LessSlantEqual] \[Pi]/2]
- \[Alpha] = 2 ArcTan[1/Sqrt[7]]; \[Beta] = 2 ArcTan[Sqrt[7]/3];
- Simplify[3 Sin[\[Alpha]] + 18 Sin[\[Beta]] +
- 4 Sin[\[Alpha] + \[Beta]]]
复制代码
计算结果为:
两个角度分别为 \(α = 2 ArcTan[\frac{1}{\sqrt{7}}]\) 和 \(β = 2 ArcTan[\frac{\sqrt{7}}{3}]\)。
最大值为 \(\frac{35\sqrt{7}}{4}\)。
还可以由 14# 楼推出的面积表达式直接用 mathematica 算出面积的最大值。所用代码为:
- Simplify@Maximize[{3 Sin[\[Alpha]] + 18 Sin[\[Beta]] +
- 4 Sin[\[Alpha] + \[Beta]],
- 0 \[LessSlantEqual] \[Alpha] \[LessSlantEqual] \[Pi]/2,
- 0 \[LessSlantEqual] \[Beta] \[LessSlantEqual] \[Pi]/
- 2}, {\[Alpha], \[Beta]}]
复制代码
计算结果同上,不但给出了最大值,还同时给出了达到最大值时的角度值。
|
|