| ■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]
|