Changeset 3fe565 in git for Singular/LIB/derham.lib

Timestamp:

Feb 22, 2013, 6:41:29 PM (11 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

27d2891f38004155fd4487f495f8379c4c9c9299

Parents:

69745c12a329a3d82624b53e9fec810e6378365b

Message:

Eliminating warnings (from reduce: not SB)

File:

• Singular/LIB/derham.lib (modified) (8 diffs)

Singular/LIB/derham.lib

@@ -1246 +1246 @@
       /*computation of V_d-strict resolution of C[5]->needed for proc 
       VdstrictDoubleComplexes*/
-      def ringofSyz=Sres(transpose(J_C),lengthofres);
+      def ringofSyz=Sres(groebner(transpose(J_C)), lengthofres);
       setring ringofSyz;
       matrix J_C=transpose(matrix(RES[2]));
@@ -1375 +1375 @@
     matrix J_A=fetch(B,J_A);
     J_A=nHomogenize(J_A);
-    def ringofSyz=Sres(transpose(J_A),lengthofres);
+    def ringofSyz=Sres(groebner(transpose(J_A)),lengthofres);
     setring ringofSyz;
     matrix J_A=transpose(matrix(RES[2]));
@@ -1547 +1547 @@
     matrix J_F=fetch(B,J_F);
     J_F=nHomogenize(J_F);
-    def ringofSyz=Sres(transpose(J_F),lengthofres);   
+    def ringofSyz=Sres(groebner(transpose(J_F)),lengthofres);   
     setring ringofSyz;
     matrix J_F=transpose(matrix(RES[2]));
@@ -1663 +1663 @@
     matrix J_D=fetch(B,J_D);
     J_D=nHomogenize(J_D);
-    def ringofSyz=Sres(transpose(J_D),lengthofres);
+    def ringofSyz=Sres(groebner(transpose(J_D)),lengthofres);
     setring ringofSyz;
     matrix J_D=transpose(matrix(RES[2]));
@@ -1938 +1938 @@
                   mem=h^totaldeg*mem;
                   mem=transpose(mem);
-                  mem=reduce(mem,M);
+                  mem=reduce(mem,groebner(M));
                   matrix jt=transpose(subst(mem,h,1));
                   setring B;
@@ -2202 +2202 @@
                   mem=h^totaldeg*mem;
                   mem=transpose(mem);
-                  mem=reduce(mem,M);
+                  mem=reduce(mem, groebner(M));
                   if (l==1)
                   {
@@ -3645 +3645 @@
         }
         /*computes a V_d-strict normal form for FB*/
-        Fb=transpose(reduce(transpose(Fb),Mnew));
+        Fb=transpose(reduce(transpose(Fb),groebner(Mnew)));
         if (VdDegnhv(Fb,d,v)> VdDegnhv(subm2,d,w) 
             and Fb!=matrix(0,nrows(Fb),ncols(Fb)))//should not happen
@@ -3667 +3667 @@
         SBcom=1;
       }
-      Fb=transpose(reduce(transpose(Fb),Mnew));//normal form 
+      Fb=transpose(reduce(transpose(Fb),groebner(Mnew)));//normal form 
     }
     for (k=1; k<=ncols(Fnew);k++)