i1 : S=ZZ/10009[a..d];hV={1,3,3,1},n=3; |
i3 : time (J,I,M)=findSplittingExample(S,hV,n); -- used 0.0470565 seconds |
i4 : hV = hVector degree J o4 = {1, 3, 4} o4 : List |
i5 : betti res J 0 1 2 3 o5 = total: 1 3 3 1 0: 1 . . . 1: . 3 . . 2: . . 3 . 3: . . . 1 o5 : BettiTally |
i6 : betti res I 0 1 2 3 o6 = total: 1 4 5 2 0: 1 1 . . 1: . 3 5 2 o6 : BettiTally |
i7 : time (tf,tg,th)=tangentDimension(I,J) -- used 0.00998469 seconds o7 = (12, 21, 9) o7 : Sequence |
i8 : tf==tg-th o8 = true |
i9 : I'=J:I; o9 : Ideal of S |
i10 : time tangentDimension(I,I',J) -- used 0.00820033 seconds o10 = ((12, 21, 9), (6, 21, 15)) o10 : Sequence |
i11 : degree I, degree J, degree I' o11 = (3, 8, 5) o11 : Sequence |