ring r = 0,(x,y),ds; ideal f = x,xy+y6+y9; kbase(std(f)); ring s = 0,(x,y),dp; ideal f = x,xy+y6+y9 ; kbase(std(f)); ideal f = x,xy+y6+y8+y9; kbase(std(f)); setring r; f = imap(s,f); f; kbase(std(f)); quit; LIB"AeCodPruebas.lib"; ring r = 0,(x,y),ds; ideal f = x,y2,y3+x2y; def Q = MalgrRing(ideal(0),2,f); setring Q; TargetIdeal(ideal(x,y)); LIB"AeCodPruebas.lib"; TargetIdeal(ideal(x,y)); LIB"AeCodPruebas.lib"; TargetIdeal(ideal(x,y)); LIB"AeCodPruebas.lib"; TargetIdeal(ideal(x,y)); LIB"AeCodPruebas.lib"; TargetIdeal(ideal(x,y)); LIB"AeCodPruebas.lib"; TargetIdeal(ideal(x,y)); LIB"AeCodPruebas.lib"; TargetIdeal(ideal(x,y)); LIB"AeCodPruebas.lib"; TargetIdeal(ideal(x,y)); LIB"AeCodPruebas.lib"; TargetIdeal(ideal(x,y)); ring r = 0,(x,y),ds; ideal f = x,y2,y3+x2y; LIB"AeCodPruebas.lib"; TargetIdeal(f, ideal(x,y)); TargetIdeal(f, std(ideal(x,y))); LIB"AeCodPruebas.lib"; TargetIdeal(f, std(ideal(x,y))); LIB"AeCodPruebas.lib"; ring r = 0,(x,y),ds; ideal f = x,y2,y3+x2y; TargetIdeal(f, std(ideal(x,y))); ring r = 0,(x,y),ds; ideal f = x,y2,y3+x2y; LIB"AeCodPruebas.lib"; TargetIdeal(f, std(ideal(x,y))); LIB"AeCodPruebas.lib"; TargetIdeal(f, std(ideal(x,y))); LIB"AeCodPruebas.lib"; TargetIdeal(f, std(ideal(x,y))); LIB"AeCodPruebas.lib"; TargetIdeal(f, std(ideal(x,y))); LIB"AeCodPruebas.lib"; TargetIdeal(f, std(ideal(x,y))); TargetIdeal(f, std(maxideal(3))); TargetIdeal(f, std(maxideal(5))); LIB"AeCodPruebas.lib"; basering; AeNormal(f); LIB"AeCodPruebas.lib"; AeNormal(f); ; LIB"AeCodPruebas.lib"; AeNormal(f); LIB"AeCodPruebas.lib"; AeNormal(f); ; LIB"AeCodPruebas.lib"; AeNormal(f); ideal f = x+x4,y2,y3+x2y; LIB"AeCodPruebas.lib"; ideal f = x+x4,y2,y3+x2y; AeNormal(f,maxideal(3)); AeNormal(f,maxideal(4)); AeNormal(f); LIB"AeCodPruebas.lib"; AeNormal(f); AeNormal(f,maxideal(1)); AeNormal(f,maxideal(2)); AeNormal(f,maxideal(3)); AeNormal(f,maxideal(4)); AeNormal(f,maxideal(7)); AeNormal(f,maxideal(4)); AeNormal(f,maxideal(5)); f; def Q = MalgrRing(ideal(0),2,f); setring Q; GF; Gens; setring r; ideal w = x+x4,y2; kbase(std(w)); setring Q; GF; basering; GF; reduce(x2, GF); MalgrFormPoly(x2); MalgrFormPoly(x2, maxideal(4)); MalgrFormPoly(x2, maxideal(2)); MalgrFormPoly(x2, maxideal(5)); MalgrFormPoly(x2, maxideal(6)); GF; reduce(x2,GF); x2; X(3) - f[3]; X(3) - mappingf[3]; MalgrFormPoly(x2, maxideal(6)); LIB"AeCodPruebas.lib"; MalgrFormPoly(x2, maxideal(6)); LIB"AeCodPruebas.lib"; MalgrFormPoly(x2, maxideal(6)); MalgrFormPoly(x2, ideal(x,y)^4); LIB"AeCodPruebas.lib"; MalgrFormPoly(x2, ideal(x,y)^4); print(_); MalgrFormPoly(x3, ideal(x,y)^4); MalgrFormPoly(x3, ideal(x,y)^6); MalgrFormPoly(x3, ideal(x,y)^7); ; GF; LIB"AeCodPruebas.lib"; ring r = 0,(x,y),ds; ideal f = x,y2,y7+x2y; AeNormal(f); ideal f = x,y2,y5+x2y; AeNormal(f); ring r = 0,(t,x,y),ds; ideal f = t,x,y3+t2y,(x+y)^4+t3y; AeNormal(f); ideal f = t,x,y4+t3y,(x+y)^3+t3y; AeNormal(f); ideal f = t,x,y5+t4y,(x+y)^4+t3y; ideal f = t,x,y4+t3y,(x+y)^3+t2y; AeNormal(f); ideal f = t,x,y4+t3y,(x+y)^3+t2y; AeNormal(f); ideal f = t,x,y5+t4y,(x+y)^4+t3y; AeNormal(f); ideal f = t,x,y4+t3y,(x+y)^5+t4y; AeNormal(f); quit; ring r = 0,(x,y),ds; ideal f = x,y2,y3+x2y; AeNormal(f); LIB"AeCodPruebas.lib"; AeNormal(f); LIB"AeCodPruebas.lib"; AeNormal(f); ideal f = x+x4,y2,y3+x2y; AeNormal(f); AeNormal(f,maxideal(4)); ideal f = x+x4,y2,y3+x2y; LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(4)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(4)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(4)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(4)); LIB"AeCodPruebas.lib"; LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(4)); f; LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(4)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(4)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(4)); f; LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(4)); AeNormal(f,maxideal(6)); AeNormal(f,maxideal(10)); AeNormal(f,maxideal(20)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(10)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(10)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(10)); dimX ; LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(10)); AeNormal(f,maxideal(10)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(10)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(10)); AeNormal(f,maxideal(20)); LIB"AeCodPruebas.lib"; AeNormal(f,maxideal(20)); f; ideal g = x,xy+y^6+y^9; AeNormal(g,maxideal(20)); AeNormal(g,maxideal(10)); AeNormal(g,maxideal(12)); AeNormal(f,maxideal(12)); AeNormal(f); AeNormal(g); AeNormal(g,maxideal(12)); AeNormal(g,maxideal(20)); AeNormal(g); AeNormal(g,maxideal(50)); ring r = 0,(x,y),ds; ring R = 0,(X,Y),ds; setring r; map Rr = R,x2,y3; ideal J = maxideal(20); setring R; preimage(r,Rr,J); setring r; ideal J = maxideal(50); setring R; ideal J = maxideal(50); preimage(r,Rr,J); setring r; ideal J = maxideal(100); setring R; preimage(r,Rr,J); setring r; map f = R,x2+y3,y5+x7; J = maxideal(20); setring R; preimage(r,f,J);