>
 

MATH 392 -- Seminar in Computational Commutative Algebra 

 

November 1, 2006 

 

Gr"obner basis method for ideal intersections. 

 

Recall that if  are ideals in  

then we can compute the intersection of  I   and  J   

by computing  

 

    

 

This can be done by a Gr"obner basis computation with  

respect to any monomial order that has the elimination 

property with respect to  t  (any monomial containing  

t is greater than all monomials not containing t). 

 

> with(Groebner); -1
 

> IdI := [x^2*y-z, x*y-z+1, x^2+y^3-1]; 1
 

[x^2*y-z, x*y-z+1, x^2+y^3-1] 

> IdJ := [y^2-x+2, x+y+z]; 1
 

[y^2-x+2, x+y+z] 

> EI := [seq(t*IdI[i], i = 1 .. nops(IdI)), seq((1-t)*IdJ[j], j = 1 .. nops(IdJ))]; 1
 

[t*(x^2*y-z), t*(x*y-z+1), t*(x^2+y^3-1), (1-t)*(y^2-x+2), (1-t)*(x+y+z)]
[t*(x^2*y-z), t*(x*y-z+1), t*(x^2+y^3-1), (1-t)*(y^2-x+2), (1-t)*(x+y+z)]
 

> B := Basis(EI, plex(t, x, y, z)); 1
 

[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
[2-15*z+y+12*z^7+28*y*z^6-56*y*z^5+72*y^2*z^4-8*y*z^7-8*y^2*z+28*y*z^2+48*z^2-57*y^2*z^3+z^9-86*z^3+28*y^2*z^2+87*z^4+28*y^2*z^6-8*y*z+y^2+y*z^8-8*y^2*z^7-56*y^2*z^5-57*y*z^3+y^2*z^8+72*y*z^4-40*z^5-6...
 

> nops(B); 1
 

4 

> for i to nops(B) do has(B[i], t) end do; 1
 

false 

false 

false 

true 

The first three polynomials in  B  form a Gr"obner basis for  `intersect`(I, J)(with respect to  lex,  x > y > z,  

by the Elimination Theorem from Chapter 3).   

>