Use R ::= ZZ/(32003)[z[0..3,0..3,0..3]]; -- set up the ring
A := Mat([ -- define the ideal
[z[3,0,0], z[2,1,0], z[2,0,1]],
[z[2,1,0], z[1,2,0], z[1,1,1]],
[z[2,0,1], z[1,1,1], z[1,0,2]],
[z[1,2,0], z[0,3,0], z[0,2,1]],
[z[1,1,1], z[0,2,1], z[0,1,2]],
[z[1,0,2], z[0,1,2], z[0,0,3]]
]);
I := Ideal(Minors(2, A));
$gb.Start_Res(I); -- start interactive framework
$gb.Steps(I,1000); -- first 1000 steps
$gb.GetRes(I);
0 --> R^176(-5) --> R^189(-4) --> R^105(-3) --> R^27(-2)
-------------------------------
$gb.ResReport(I);
--------------------------------------------------------------
Minimal Pairs, : 650
Groebner Pairs : 14
Minimal (Type S) : 636
H-Killed (Type S0) : 9
--------------------------------------------------------------
-------------------------------
$gb.Complete(I); -- complete the calculation
$gb.GetRes(I);
0 --> R(-9) --> R^27(-7) --> R^105(-6) --> R^189(-5) -->
R^189(-4) --> R^105(-3) --> R^27(-2)
-------------------------------
$gb.ResReport(I);
--------------------------------------------------------------
Minimal Pairs, : 730
Groebner Pairs : 25
Minimal (Type S) : 705
Minimal (Type Smin) : 616
Minimal (Type S0) : 89
H-Killed (Type S0) : 78
Hard (Type S0) : 11
--------------------------------------------------------------
-------------------------------
|