 | In[4]:=
f[x_, y_, z_] := Cos[x] + Cos[y] + Cos[z];
In[5]:=
g[x_, y_, z_] := x + y + z - 2*Pi;
In[6]:=
eqn = {D[f[x, y, z], x] ==
λ*D[g[x, y, z], x],
D[f[x, y, z], y] ==
λ*D[g[x, y, z], y],
D[f[x, y, z], z] ==
λ*D[g[x, y, z], z], g[x, y, z] == 0}
Out[6]=
{-Sin[x] == λ, -Sin[y] == λ,
-Sin[z] == λ, -2*Pi + x + y + z == 0}
.
.
.
In[7]:=f[(2*Pi)/3, (2*Pi)/3, (2*Pi)/3]
Out[7]=-(3/2)
---------------------------
In[8]:=f[0, 0, 0]
Out[8]=3
=========================
陽的にグラフからも
|
