i1 : R = QQ[x,y]; |
i2 : f = {x^2 + 4*y^2 - 4, 2*y^2 - x};
|
i3 : fSols = phcSolve(f); using temporary files /tmp/M2-5183-1PHCinput and /tmp/M2-5183-1PHCoutput |
i4 : fSols/print
{1.23607, -.786151}
{1.23607, .786151}
{-3.23607, -1.27202*ii}
{-3.23607, 1.27202*ii}
o4 = {, , , }
o4 : List
|
i5 : realSols = realFilter(fSols,1.0e-10)
o5 = {{1.23607, -.786151}, {1.23607, .786151}}
o5 : List
|
i6 : realSols_0#Coordinates_0 --this is the first coordinate of the first solution o6 = 1.23606797749979-1.44265290902902e-129*ii o6 : CC (of precision 53) |