i1 : (d,n) := (2,3); |
i2 : time Disc = denseDiscriminant(d,n) -- used 0.450217 seconds o2 = Disc o2 : SparseDiscriminant (sparse discriminant associated to | 0 0 0 0 0 0 1 1 1 2 |) | 0 0 0 1 1 2 0 0 1 0 | | 0 1 2 0 1 0 0 1 0 0 | |
i3 : f = first genericLaurentPolynomials prepend(d,n:0) 2 2 2 o3 = a x + a x x + a x + a x x + a x x + a x + a x + a x + a x + a 9 1 8 1 2 5 2 7 1 3 4 2 3 2 3 6 1 3 2 1 3 0 o3 : ZZ[a ..a , b , c , d ][x ..x ] 0 9 0 0 0 1 3 |
i4 : assert(Disc(f) == denseDiscriminant(f)) |
The object denseDiscriminant is a method function with options.