22 lines
282 B
C
22 lines
282 B
C
LIB"AeCodPruebas.lib";
|
|
ring r = 0,(x,y,z),ds;
|
|
|
|
ideal f = x,y,yz+z6+z8,z3+xz;
|
|
matrix jf = jacob(f);
|
|
|
|
AeNormal(f,maxideal(2));
|
|
|
|
|
|
/*
|
|
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; |