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.000184521 seconds elapsed
-- 0.000155321 seconds elapsed
-- 0.000142601 seconds elapsed
-- 0.00007928 seconds elapsed
-- 0.00017236 seconds elapsed
-- 0.000140441 seconds elapsed
-- 0.00007704 seconds elapsed
-- 0.000159961 seconds elapsed
-- 0.000139121 seconds elapsed
-- 0.000160401 seconds elapsed
-- 0.000148081 seconds elapsed
-- 0.000145441 seconds elapsed
-- 0.000084201 seconds elapsed
-- 0.000176761 seconds elapsed
-- 0.000148681 seconds elapsed
-- 0.000081161 seconds elapsed
-- 0.000179641 seconds elapsed
-- 0.000144601 seconds elapsed
-- 0.00008656 seconds elapsed
-- 0.000205521 seconds elapsed
-- 0.000200801 seconds elapsed
-- 0.000077601 seconds elapsed
-- 0.000195041 seconds elapsed
-- 0.000192281 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
|