□投稿者/ mo 一般人(2回)-(2007/04/08(Sun) 23:59:20)
 | ■No23820に返信(もちけんさんの記事)
> 5.は解けたのですが、1から4がどうしても出来ません。
解けた5を下の手法で再考すれば 他もこの手法で瞬時に解けてしまいます。
In[149]:=
Clear[f, g, x, y, λ];
f[x_, y_] := x + 2*y;
g[x_, y_] := x^2 + y^2 - 25;
L[x_, y_, λ_] := f[x, y] + λ*g[x, y];
gradf[L[x, y, λ], {x, y, λ}]
c = Solve[gradf[L[x, y, λ], {x, y, λ}] ==
0, {x, y, λ}]
fmax = f[x, y] /. c[[1]]
Out[153]=
{1 + 2*x*λ, 2 + 2*y*λ, -25 + x^2 + y^2}
Out[154]=
{{λ -> -(1/(2*Sqrt[5])), x -> Sqrt[5],
y -> 2*Sqrt[5]}, {λ -> 1/(2*Sqrt[5]),
x -> -Sqrt[5], y -> -2*Sqrt[5]}}
Out[155]=
5*Sqrt[5]
|
|