- 注册时间
- 2014-1-2
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 3482
- 在线时间
- 小时
|
楼主 |
发表于 2019-2-12 15:09:23
|
显示全部楼层
W = e + \[Lambda]*(8 - a - b - c - d - e) + \[Mu]*(16 - a^2 - b^2 -
c^2 - d^2 - e^2)
Solve[{\!\ (
\*SubscriptBox[\ (\ [PartialD]\), \ (a\)]W\) == 0, \!\ (
\*SubscriptBox[\ (\ [PartialD]\), \ (b\)]W\) == 0, \!\ (
\*SubscriptBox[\ (\ [PartialD]\), \ (c\)]W\) == 0, \!\ (
\*SubscriptBox[\ (\ [PartialD]\), \ (d\)]W\) == 0, \!\ (
\*SubscriptBox[\ ( \ [PartialD]\), \ (e\)]W\) == 0,
8 - a - b - c - d - e == 0,
16 - a^2 - b^2 - c^2 - d^2 - e^2 == 0}, {a, b, c, d,
e, \ [Lambda], \ [Mu]}]
{{a -> 2, b -> 2, c -> 2, d -> 2,
e -> 0, \ [Lambda] -> 1, \ [Mu] -> -(1/4)}, {a -> 6/5, b -> 6/5,
c -> 6/5, d -> 6/5, e -> 16/5, \ [Lambda] -> -(3/5), \ [Mu] -> 1/4}} |
|