quit;
quit;
quit;
quit;
quit;
ring r = 0,(X(1..30)),ds;
ideal i = maxideal(50);
qring Q = i;
setring Q;
reduce(x(1)^51);
reduce(X(1)^51);
reduce(X(1)^51,ideal(0));
reduce(X(1)^51,std(ideal(0)));
basering;
Q = std(Q);
nameof(basering);
std(X(1)^51);
setring r;
qring q2 = std(maxideal(50));
setring q2;
reduce(X(1)^51,std(0));
basering;
quit;
ring r = 0,(x(1..8)),ds;
ideal i = maxideal(50);
ring r = 0,(x(1..8)),ds;
ideal i = maxideal(10);
i;
qring q = std(i);
ring r = 0,(x(1..)),ds;
ideal i = maxideal(5);
ring r = 0,(x(1..3)),ds;
ideal i = maxideal(20);
ideal i = maxideal(40);
qring q = std(i);
basering;
setring r;
ring r = 0,(x(1..6)),ds;
ideal i = maxideal(40);
qring q = std(i);
LIB"AeCodPruebas.lib";
ring r = 0,(x,y),ds;
ideal f = x,y2,y3+xy;
AeNormal(f,maxideal(4));
LIB"AeCodPruebas.lib";
def Q = MalgrRing(ideal(0),2,
ideal f = x,y2,y3+xy;
def Q = MalgrRing(ideal(0),2,ideal(x,y2));
setring Q;
def f = imap(r,f);
setring r;
matrix jf = jacob(f);
setring Q;
def jf = imap(r,jf);
print(jf);
jf[1];
MalgrFormVect(jf[1]);
;
print(jf);
jf[1];
MalgrFormVect(jf[1], maxOX^5);
quit;
quit;
quit;
quit;
quit;
quit;
quit;
quit;
quit;
setring r;
f;
AeNormal(f);
AeNormal(f);
quit;
ring r;
quit;
;
AeNormal(f,maxideal(5));
AeNormal(f);
quit;
;
quit;
;
quit;
quit;
;
quit;
quit;
LIB"AeCodPruebas.lib";
ring r = 0,(x,y),ds;
ideal f = x,y2,x3y+xy3,y5;
AeNormal(f);
ring s = 0,(x,y,a,b),ds;
ideal i = x-a,y-b;
reduce(xy3+x3y-ab3-a3b,std(i));
lift(i,xy3+x3y-ab3-a3b);
ring r = 0,(x,y,a,b),ds;
ideal f = x-a,y2-b2,x3y+xy3-a3b-ab3,y5-b5;
qring q = std(f);
basering;
ideal i = x-a,y-b;
std(i);
kbase(i);
kbase(std(i));
dim(y-b);
dim(std(i));
vdim(std(i));
i;
i = std(i);
i;
ideal z = std(0);
reduce(i,z);
reduce(i*maxideal(1),z);
reduce(i*maxideal(4),z);
reduce(i*maxideal(10),z);
reduce(i*maxideal(5),z);
reduce(i*maxideal(6),z);
reduce(i*maxideal(5),z);
reduce(i*maxideal(1),z);
reduce(i*maxideal(2),z);
setring r;
f;
ring R = 0,(x,y,b),ds;
ideal f = y+b,x*(y2+yb+b2)+x3,y4+y3b+y2b2+yb3+b4;
kbase(std(f));
quit
;
if(0){"a";}
if(1){"a";}
;
quit;
LIB"AeCodPruebas.lib";
ring r = 0,(x,y),ds;
AeNormal(ideal(x,y2,xy));
AeNormal(ideal(x,y2,y3+x2y));
AeNormal(ideal(x,y2,y3+x19y));
AeNormal(ideal(x,y2,y3+x15y));
AeNormal(ideal(x,y2,y3+x5y));
module m;
ncols(m);
m[1]==0;
m[1]!=0;
module m = 0,0,0,0;
print(m);
m = 0*gen(1)+0*gen(2);
m;
m = 0,gen(2);
m;
m[1] == 0;
print(m);
m=0;
size(m);
quit;
LIB"AeCodPruebas.lib";
ring r = 0,(x,y),ds;
ideal f = x,y2,y3+x2y;
MaxPowerContained(f);
LIB"AeCodPruebas.lib";
MaxPowerContained(f);
LIB"AeCodPruebas.lib";
MaxPowerContained(f);
LIB"AeCodPruebas.lib";
MaxPowerContained(f);
MaxPowerContained(f);
LIB"AeCodPruebas.lib";
MaxPowerContained(f);
quit;
LIB"AeCodPruebas.lib";
LIB"AeCodPruebas.lib";
quit;
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
nn
n
n
n
n
n
n
n
n
n
n
n
p GOX
n
n
n
n
n
n
p a
p GOY
n
n
n
n
n
nn
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
p a
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
p col
n
n
n
n
n
n
p M
n
p M
n
n
n
n
n
n
n
p M
n
p M
n
n
n
n
n
n
n
n
n
n
p col
n
p col
n
n
n
n
n
n
n
p M
n
n
n
n
n
n
n
n
p M
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
p M
n
n
n
n
n
n
n
n
n
n
n
p M
n
n
n
n
n
n
n
p col
n
n
n
n
n
n
n
p M
n
n
n
n
n
n
n
n
p M
p col
p k
c
?
c
c
c
c
c
c
n
n
n
n
n
nn
n
n
n
n
n
n
n
n
n
n
n
nn
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
nn
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
p M
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
nn
n
n
n
p M
n
n
n
n
n
n
p col
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
p M
n
n
n
n
n
n
n
n
n
p col
n
n
n
n
n
n
n
p M
n
n
n
n
n
n
n
n
p M
n col
p col
p mappingf
p k
p Raux
quit;
c
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
?
n
n
n
n
n
n
p col
n
p v
n
p v
c
n
n
n
n
n
n
n
n
n
c
p M
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
c
n
n
n
n
n
n
n
n
p M
n
c
p M
p Gens
p M
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
c
p m
p M
n
n
n
n
n
n
n
n
n
c
p M
n
n
n
n
n
n
n
n
n
n
n
p col
n
n
n
n
n
n
n
n
p v
n
c
n
p M
n
n
n
n
n
n
p col
n
n
p v
c
p M
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
n
p GOX
n
n
n
n
n
n
n
n
n
n
n
n
n
p col
n
n
n
n
n
n
n
n
p v
n
p #
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
p determinacyIdeal
n GF
p GF
p K
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
p maxibound
n
n
n
n
n
p determinacyIdeal
p maxibound
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
p maxibound
p determinacyIdeal
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
n
p tkef
n
n
p tkef
n
n
p freemax
n
n
n
n
n
n
p freemax
n
n
p auxtke
n
n
n
n
n
p auxtke