 | ■No23083に返信(テクノミュージシャンさんの記事)
> x+y=X,xy=Yとおいて.....
指定された方針とは異なりますが、参考まで C[x,y]/I ；
世界の中心で I (deal) f1C[x,y]+f2C[x,y} を 叫ぶ
In[9]:=
f1 = x^2 + y^2 + x + y;
f2 = x^2 + y^2 + x*y - 1;
GB = GroebnerBasis[{f1, f2}, {x, y}]
Factor[%]
Out[11]={3*y + y^2 - y^3 + y^4, -2 - 2*x - y - y^3}
Out[12]={y*(1 + y)*(3 - 2*y + y^2), -2 - 2*x - y - y^3}
In[13]:=Timing[Solve[% == {0, 0}, {x, y}]]
Out[13]={ 0.*Second,
{{x -> -1, y -> 0}, {x -> 0, y -> -1},
{x -> 1 - I*Sqrt[2], y -> 1 + I*Sqrt[2]},
{x -> 1 + I*Sqrt[2], y -> 1 - I*Sqrt[2]}}}
|
