i1 : QQ[d] o1 = QQ[d] o1 : PolynomialRing |
i2 : T = triplet({1,2,3}, {1,3}, {0,2,3})
o2 = {{1, 2, 3}, {1, 3}, {0, 2, 3}}
o2 : Triplet
|
i3 : chiPol(d,0,{T#0,T#1},hilbCoeff(T))
o3 = d
o3 : QQ[d]
|
i4 : chiPol(d,1,{T#0,T#1},hilbCoeff(T))
1 3 1 2 1
o4 = -d + -d + -d
6 2 3
o4 : QQ[d]
|