Changeset c616d1 in git for Singular/matpol.cc

Timestamp:

Sep 30, 1998, 4:12:48 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'a7324b6e0b44a1a8ed3fa4d9ca3e2ff210ddd52c')

Children:

d3e295ae509633cf6ba993a8680945f24b9ab5ec

Parents:

8f14736613d731d65fa80a0322e2debe3dd2a3b0

Message:

hannes/pohl: minor fix


git-svn-id: file:///usr/local/Singular/svn/trunk@2529 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/matpol.cc (modified) (5 diffs)

Singular/matpol.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: matpol.cc,v 1.19 1998-09-29 21:14:45 siebert Exp $ */
+/* $Id: matpol.cc,v 1.20 1998-09-30 14:12:48 Singular Exp $ */
 
 /*
@@ -91 +91 @@
     t = a->m[i];
     pNormalize(t);
-#ifdef MDEBUG
-//    b->m[i] = pDBCopy(t,f,l);
     b->m[i] = pCopy(t);
-#else
-    b->m[i] = pCopy(t);
-#endif
   }
   b->rank=a->rank;
@@ -392 +387 @@
 
   /* step of Bareiss */
-  if((row && Bareiss->mpPivotRow(&w,row-1)) || Bareiss->mpPivotBareiss(&w))
+  if(((row!=0) && Bareiss->mpPivotRow(&w,row-1)) || Bareiss->mpPivotBareiss(&w))
   {
     Bareiss->mpElimBareiss(div);
@@ -580 +575 @@
         }
       }
-      p = mpDet(tmp);
+      p = mpDetBareiss(tmp);
       if ((k+l) & 1) p=pNeg(p);
       MATELEM(result,l,k) = p;
@@ -1413 +1408 @@
       }
       y = nDiv(pGetCoeff(r),x);
+      nNormalize(y);
       pSetCoeff(r,y);
       pIter(r);