 | In[12]:=
{D[x^2 + 3*x*y + 2*y^2 - 3*x - 5*y + k, x], D[x^2 + 3*x*y + 2*y^2 - 3*x - 5*y + k, y]}
GroebnerBasis[%, {x, y}]
sol = Solve[% == {0, 0}, {x, y}]
Out[12]=
{-3 + 2*x + 3*y, -5 + 3*x + 4*y}
Out[13]=
{1 + y, -3 + x}
Out[14]=
{{x -> 3, y -> -1}}
In[16]:=
x^2 + 3*x*y + 2*y^2 - 3*x - 5*y + k /. {x -> 3, y -> -1}
Solve[% == 0, k]
Out[16]=
-2 + k
Out[17]=
{{k -> 2}}<--コタエ こたえ（ひらがな要ると）
------------------- 確認 ； ----------------
In[18]:=
Factor[x^2 + 3*x*y + 2*y^2 - 3*x - 5*y + k /. {k -> 2}]
Out[18]=
(-2 + x + y)*(-1 + x + 2*y)
|
