57 lines
869 B
C
57 lines
869 B
C
LIB"AeCodPruebas.lib";
|
|
ring r = 0,(x,y),ds;
|
|
int i;
|
|
|
|
ideal f = x, xy+y6+y9;
|
|
ideal mappingf = f[1..nvars(r)];
|
|
//breakpoint(MaxPowerContained);
|
|
|
|
//AeNormal(f,maxideal(3));quit;
|
|
|
|
int k = MaxPowerContained(f);
|
|
int a = 0;
|
|
ideal aux1 = 0;
|
|
ideal aux2 = 0;
|
|
k;
|
|
while (size(aux1)==0 && size(aux2)==0)
|
|
{
|
|
a++;
|
|
aux1 = reduce(maxideal(k), std(mappingf^a));
|
|
aux2 = reduce(maxideal(k-1), std(mappingf^a));
|
|
}
|
|
|
|
a;
|
|
|
|
if (size(aux1)!=0)
|
|
{
|
|
"warning!";
|
|
}
|
|
|
|
AeNormal(f, maxideal(a));
|
|
|
|
//breakpoint(GenerateOYModule,464);
|
|
//breakpoint(MalgrFormVect);
|
|
/*
|
|
int k = MaxPowerContained(f);
|
|
int a = 1;
|
|
ideal mappingf = f[1..nvars(r)];
|
|
ideal auxred=reduce(mappingf^k, maxideal(1));
|
|
|
|
TargetIdeal(f,maxideal(5));
|
|
*/
|
|
|
|
//AeNormal(f, );
|
|
|
|
/*
|
|
def Q = MalgrRing(ideal(0),2,ideal(x,y2));
|
|
setring Q;
|
|
|
|
def f = imap(r,f);
|
|
def jf = imap(r,jf);
|
|
|
|
jf[1];
|
|
|
|
MalgrFormVect(matrix(jf[1]), maxOX^5);
|
|
*/
|
|
|
|
quit; |