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
|