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