i1 : R = QQ[x,y];
|
i2 : S = subring {x*y, x^2*y, x^3*y};
|
i3 : gens S
o3 = | xy x2y x3y |
1 3
o3 : Matrix R <--- R
|
i4 : SB = sagbi(S, Limit => 3);
|
i5 : gens SB
o5 = | xy x2y |
1 2
o5 : Matrix R <--- R
|
i6 : isSAGBI S
-- 0.000066334 seconds elapsed
-- 0.000065917 seconds elapsed
-- 0.000058084 seconds elapsed
-- 0.000045291 seconds elapsed
-- 0.000079542 seconds elapsed
-- 0.000056875 seconds elapsed
-- 0.000034208 seconds elapsed
-- 0.000069917 seconds elapsed
-- 0.000054333 seconds elapsed
-- 0.0000665 seconds elapsed
-- 0.000065417 seconds elapsed
-- 0.000056 seconds elapsed
-- 0.000031959 seconds elapsed
-- 0.000066375 seconds elapsed
-- 0.0000535 seconds elapsed
-- 0.000030917 seconds elapsed
-- 0.000067875 seconds elapsed
-- 0.0000545 seconds elapsed
-- 0.000039917 seconds elapsed
-- 0.000087958 seconds elapsed
-- 0.000077417 seconds elapsed
-- 0.000041208 seconds elapsed
-- 0.00009525 seconds elapsed
-- 0.000089917 seconds elapsed
timing raw subduction
timing raw subduction
timing raw subduction
timing raw subduction
timing raw subduction
timing raw subduction
timing raw subduction
timing raw subduction
o6 = true
|
i7 : isSAGBI SB
o7 = false
|