i1 : R = QQ[x,y]; |
i2 : f = { x^3*y^5 + y^2 + x^2*y, x*y + x^2 - 1}; |
i3 : fSols = phcSolve(f); using temporary files /tmp/M2-5133-1PHCinput and /tmp/M2-5133-1PHCoutput |
i4 : fSols/print {-1, 0} {1, 0} {1.33076-.335184*ii, -.62414+.513163*ii} {-.894935-.624334*ii, .143333+1.14868*ii} {.742585+.425943*ii, .270685-1.00715*ii} {-.764107, -.544612} {-.894935+.624334*ii, .143333-1.14868*ii} {.742585-.425943*ii, .270685+1.00715*ii} {-1.59272, .964857} {1.33076+.335184*ii, -.62414-.513163*ii} o4 = {, , , , , , , , , } o4 : List |
i5 : zeroSols = zeroFilter(fSols,1,1.0e-10); |
i6 : zeroSols / print {-1, 0} {1, 0} o6 = {, } o6 : List |
i7 : f = {x^2+y^2,y*x+x}; |
i8 : fSols = phcSolve(f); using temporary files /tmp/M2-5133-2PHCinput and /tmp/M2-5133-2PHCoutput |
i9 : fSols/print (-4.08297e-32+1.00148e-32*ii, 1.6714e-33-1.64221e-33*ii) {-ii, -1} {ii, -1} o9 = {, , } o9 : List |
i10 : zeroSols = zeroFilter(fSols,0,1.0e-10); |
i11 : zeroSols/print (-4.08297e-32+1.00148e-32*ii, 1.6714e-33-1.64221e-33*ii) o11 = {} o11 : List |