- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 9219
- 在线时间
- 小时
|
楼主 |
发表于 2024-5-14 10:05:06
|
显示全部楼层
本帖最后由 nyy 于 2024-5-14 10:06 编辑
- Clear["Global`*"];
- (*子函数,利用三边计算角的余弦值,角是c边所对的角*)
- cs[a_,b_,c_]:=((a^2+b^2-c^2)/(2*a*b))
- b=4*Sqrt[2];
- (*两角相加等于270°,因此余弦值的平方和相加等于1*)
- cond=cs[a,b,x]^2+cs[a,b,9]^2-1//Together//Numerator
- f=x+t*cond (*拉格朗日乘子法建立目标函数*)
- ans=Solve[D[f,{{x,a,t}}]==0,{x,a,t}]//Simplify(*求偏导数解方程组*)
- Grid[ans,Alignment->Left](*列表显示*)
复制代码
我只会拉格朗日乘子法,思路都写在注释里面。
求解结果
\[\begin{array}{lll}
x\to -17 & a\to -\sqrt{185} & t\to \frac{1}{4896} \\
x\to -17 & a\to \sqrt{185} & t\to \frac{1}{4896} \\
x\to -1 & a\to -\sqrt{41} & t\to -\frac{1}{288} \\
x\to -1 & a\to \sqrt{41} & t\to -\frac{1}{288} \\
x\to 1 & a\to -\sqrt{41} & t\to \frac{1}{288} \\
x\to 1 & a\to \sqrt{41} & t\to \frac{1}{288} \\
x\to 17 & a\to -\sqrt{185} & t\to -\frac{1}{4896} \\
x\to 17 & a\to \sqrt{185} & t\to -\frac{1}{4896} \\
x\to -\sqrt{32-49 i} & a\to 0 & t\to \left(-\frac{1}{13700}+\frac{8 i}{167825}\right) \sqrt{32-49 i} \\
x\to \sqrt{32-49 i} & a\to 0 & t\to \left(\frac{1}{13700}-\frac{8 i}{167825}\right) \sqrt{32-49 i} \\
x\to -\sqrt{32+49 i} & a\to 0 & t\to \left(-\frac{1}{13700}-\frac{8 i}{167825}\right) \sqrt{32+49 i} \\
x\to \sqrt{32+49 i} & a\to 0 & t\to \left(\frac{1}{13700}+\frac{8 i}{167825}\right) \sqrt{32+49 i} \\
\end{array}\]
有意义的两组解
\[\left\{\left\{x\to 1,a\to \sqrt{41},t\to \frac{1}{288}\right\},\left\{x\to 17,a\to \sqrt{185},t\to -\frac{1}{4896}\right\}\right\}\]
可以验证第二组符合要求
约束条件
\[2 a^4-2 a^2 x^2-162 a^2+x^4-64 x^2+3425=0\]
|
|