-- Let I be the ideal generated by G_I={xy+z,yz+x}, and J be the ideal generated by G_J={yz+x, zx+y}.
-- We compute the intersection of I and J as follows.
NCo.SetX("txyz"); -- Let t be an new indeterminate
NCo.SetOrdering("ELIM"); -- Choose an elimination word ordering for t
F1 := [[1,"xy"], [1,"z"]]; -- xy+z
F2 := [[1,"yz"], [1,"x"]]; -- yz+x
G1 := [[1,"yz"], [1,"x"]]; -- yz+x
G2 := [[1,"zx"], [1,"y"]]; -- zx+y
N:=[NCo.Multiply([[1,"t"]],F1), NCo.Multiply([[1,"t"]],F2)]; -- t*F1, t*F2
N:=Concat(N,[NCo.Multiply([[1,""],[-1,"t"]],G1), NCo.Multiply([[1,""],[-1,"t"]],G2)]); -- (1-t)*G1, (1-t)*G2
C:=[[[1,"tx"],[-1,"xt"]],[[1,"ty"],[-1,"yt"]],[[1,"tz"],[-1,"zt"]]]; -- set of commutators
G:=Concat(N,C);
Gb:=NCo.GB(G,20,50,1);
-- Done.
-------------------------------
The following information printed by the ApCoCoAServer shows that Gb it is a partial Groebner basis.
the number of unselected generators: 0
the number of unselected MObstructions: 87
the procedure is interrupted by loop bound!
the total number of MObstructions: 349
the number of selected MObstructions: 43
the number of MObstructions detected by the Criterion M: 162
the number of MObstructions detected by the Criterion F: 0
the number of MObstructions detected by the Tail Reduction: 0
the number of MObstructions detected by the Criterion Bk: 57
the number of redundant generators: 6
A partial Groebner basis of 24 elements is computed.
It is a partial Groebner basis.
|