diff --git a/.singularhistory b/.singularhistory
index 2cfa7f9..a493264 100644
--- a/.singularhistory
+++ b/.singularhistory
@@ -231,3 +231,212 @@ map f = R,x2+y3,y5+x7;
 J = maxideal(20);
 setring R;
 preimage(r,f,J);
+LIB"AeCodPruebas.lib";
+ring r = 0,(t,x,y),ds;
+ideal f = t,x,y3+t2y,(x+y)^4+t3y;
+AeNormal(f);
+ideal f = t,x,y3+t2y,(x+y)^4+t3y;
+f[4];
+LIB"AeCodPruebas.lib";
+ring r = 0,(t,x,y),ds;
+ideal f = t,x,y3+t2y,y4+(t3+x3)*y;
+AeNormal(f);
+ideal f = t,x,y3+t2y,(x+y)^4+t3y;
+f[4];
+f[4] = f[4] -x4;
+f;
+AeNormal(f);
+f[4]
+;
+f[4] = y3+(t3+x3)*y+xy3;
+AeNormal(f);
+f[4] = y3+(t3+x3)*y+xy3+x2y2;
+AeNormal(f);
+f[4] = y3+(t3+4x3)*y+4xy3+6x2y2;
+AeNormal(f);
+f;
+f[4] = y4+(t3+4x3)*y+4xy3+6x2y2;
+AeNormal(f);
+f[4] = y4+(t3+x3)*y+xy3+x2y2;
+AeNormal(f);
+f[4] = y4+t3y+x3y+xy3+x2y2;
+AeNormal(f);
+f[4] = y4+t3y+xy3+x2y2;
+AeNormal(f);f
+;
+f[4] = y4+t3y+xy3+x2y2+x3y;
+AeNormal(f);f
+;
+AeNormal(f);
+f[4] = y4+t3y+xy3+x2y2+x3y;
+AeNormal(f);
+f[4] = y4+t3y+xy3+x3y;
+AeNormal(f);
+f[4] = y4+t3y+xy3+x2y2+x3y;
+AeNormal(f);
+f[4] = y4+xy3+x2y2+x3y;
+AeNormal(f);
+f;
+AeNormal(f);
+f;
+f[4] = y4+x3y;
+AeNormal(f);
+f[4] = y4+x3y+xy3;
+AeNormal(f);
+f[4] = y4+x2y2+xy3;
+AeNormal(f);
+f[4] = y4+x3y+x2y2;
+AeNormal(f);f
+f;
+f = t,x,y4+t3y,y5+xy3+x2y3+x3y2+xy4;
+size(AeNormal(f));
+f = t,x,y4+t3y,y5+xy3+x2y3+x3y2+xy4+t4y;
+size(AeNormal(f));
+f = t,x,y4+t3y,(x+y)^5;
+size(AeNormal(f));
+f = t,x,y4+t3y,(x+y)^5+t4y;
+size(AeNormal(f));
+f[4];
+f[4]=x5+t4y+x4y+x3y2+x2y3+xy4+y5;
+size(AeNormal(f));
+f[4]=t4y+x4y+x3y2+x2y3+xy4+y5;
+size(AeNormal(f));
+f[4]=t4y+x3y2+x2y3+xy4+y5;
+size(AeNormal(f));
+f[4]=t4y+x4y+x3y2+x2y3+xy4+y5;
+size(AeNormal(f));
+f[4]=t4y+x4y+x3y2+x2y3+y5;
+size(AeNormal(f));
+f[4]=x4y+x3y2+x2y3+y5;
+size(AeNormal(f));
+f = t,x,y4+t3y,(x+y)^3,t2y;
+size(AeNormal(f));
+f = t,x,y4+t3y,(x+y)^3+t2y;
+size(AeNormal(f));
+f[4];
+f[4] = t2y+x2t+xy2+y3;
+size(AeNormal(f));
+f[4] = t2y+x2y+xy2+y3;
+size(AeNormal(f));
+f[4] = t2y+3x2y+3xy2+y3;
+size(AeNormal(f));
+f[4] =3x2y+3xy2+y3;
+size(AeNormal(f));
+f[4] = t3y + 3x2y+3xy2+y3;
+size(AeNormal(f));
+f[4] = t5y + 3x2y+3xy2+y3;
+size(AeNormal(f));
+f[4] = t10y + 3x2y+3xy2+y3;
+size(AeNormal(f));
+f[4] = 3y + 3x2y+3xy2+y3;
+size(AeNormal(f));
+f;
+size(AeNormal(f));
+f[4] =  + 3x2y+3xy2+y3;
+size(AeNormal(f));
+f[4] = y;
+size(AeNormal(f));
+size(AeNormal(f));
+f = t,x,y3+t2y,(x+y)^4;
+AeNormal(f);
+f = t,x,y3+t2y,(x+y)^4+t3y;
+AeNormal(f);
+f[4];
+f[4] = x4+t3y+4x3y+6x2y2+4xy3+y4
+;
+AeNormal(f);
+size(AeNormal(f));
+f[4] = x4+t3y+4x3y+6x2y2+4xy3+y4;
+size(AeNormal(f));
+f[4] = t3y+4x3y+6x2y2+4xy3+y4;
+size(AeNormal(f));
+f[4] = t3y+x3y+x2y2+xy3+y4;
+size(AeNormal(f));
+f[4] = x3y+x2y2+xy3+y4;
+size(AeNormal(f));
+f[4] = t3y+4x3y+6x2y2+4xy3+y4;
+size(AeNormal(f));
+f[4] = 4x3y+6x2y2+4xy3+y4;
+size(AeNormal(f));
+f[4] = x3y+x2y2+xy3+y4;
+size(AeNormal(f));
+f[4] = x2y2+xy3+y4;
+size(AeNormal(f));
+f[4] = x3y+x2y2+y4;
+size(AeNormal(f));
+f[3] = y4+t3y;
+size(AeNormal(f));
+f[4] = (x+y)^5+t4y;
+size(AeNormal(f));
+f[4];
+f[4] = x4y+x3y2+x2y3+y5;
+size(AeNormal(f));
+f[4]^2;
+f[4] = x4y+x3y2+x2y3+y5;
+size(AeNormal(f));
+f[4] = x4y+x3y2+y5;
+size(AeNormal(f));
+f[4] = x4y+2x3y2+y5;
+size(AeNormal(f));
+f[4] = x4y+3x3y2+y5;
+size(AeNormal(f));
+f[4] = 5x4y+3x3y2+y5;
+size(AeNormal(f));
+f;
+f = t,x,(x+y)^4+t2y,y3+t2y;
+AeNormal(f);
+f:
+;
+f = t,x,(x+y)^4+t3y,y3+t2y;
+AeNormal(f);
+f = t,x,(x+y)^4+t2y,y3+t2y;
+AeNormal(f);
+f = t,x,(x+y)^5+t2y,y3+t2y;
+AeNormal(f);
+f = t,x,(x+y)^5+t2y,y4+t2y;
+AeNormal(f);
+f;
+f = t,x,(x+y)^4+t3y,y3+t2y;
+AeNormal(f);
+f = t,x,(x+y)^4+t3y,y3;
+AeNormal(f);
+f = t,x,(x+y)^4+t3y,y3+t2y;
+f = t,x,(x+y)^4+t3y,y3+t2y;
+AeNormal(f);
+f[3];
+f = t,x,(x+y)^4+t3y,y3+t2y;
+f[3];
+f[3] = x4+x3y+x2y2+xy3+y4;
+AeNormal(f);
+f;
+LIB"AeCodPruebas.lib";
+ring r = 0,(t,x,y),ds;
+map f = t,x,y3+t2y,y4+x3y;
+ideal f = t,x,y3+t2y,y4+x3y;
+size(AeNormal(f));
+ideal f = t,x,y5+t4y,y6+x5y;
+size(AeNormal(f));
+ideal f = t,x,y5+t4y,y6+(x5+t4)*y;
+size(AeNormal(f));
+ideal f = t,x,y3+t2y,y4+xy3+x2y2+x3y;
+size(AeNormal(f));
+ideal f = t,x,y3+t2y,xy3+x2y2+x3y;
+size(AeNormal(f));
+ideal f = t,x,y3+t2y,y4+xy3+x2y2+x3y;
+size(AeNormal(f));
+ideal f = t,x,y3+t2y,y4+xy3+x3y;
+size(AeNormal(f));
+ideal f = t,x,y3+t2y,y4+xy3-x3y;
+size(AeNormal(f));
+ideal f = t,x,y3+t2y,y4+xy3+x2y2+x3y;
+ideal f = t,x,y3+t2y,y4+x2y2+x3y;
+ideal f = t,x,y3+t2y,y4+xy3+x2y2+x3y;
+ideal f = t,x,y3+t2y,y4+x2y2+x3y;
+size(AeNormal(f));
+ideal f = t,x,y4+t2y,y5+x2y2+x3y;
+size(AeNormal(f));
+ideal f = t,x,y4+t3y,y5+x4y+x3y2;
+size(AeNormal(f));
+ideal f = t,x,y4+t3y,y5+x4y+x3y2+x2y3;
+size(AeNormal(f));
+quit;
diff --git a/.singularhistory-82675.tmp b/.singularhistory-82675.tmp
new file mode 100644
index 0000000..e69de29
diff --git a/main.pdf b/main.pdf
new file mode 100644
index 0000000..1c2582e
Binary files /dev/null and b/main.pdf differ