i1 : S=ZZ/101[x_0..x_3] o1 = S o1 : PolynomialRing |
i2 : (J,M)=pickGorensteinIdeal(S,{1,3,6,6,3,1}); |
i3 : hVector J o3 = {1, 3, 6, 6, 3, 1} o3 : List |
i4 : hVector (S^{2}/J) o4 = {-2, {1, 3, 6, 6, 3, 1}} o4 : List |
i5 : hVector 10 o5 = {1, 3, 6} o5 : List |