Changeset d3ce7de in git

Timestamp:

May 19, 1998, 7:11:45 PM (25 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

54fb1cb1a9b3fc6782b9837d9a396991417a8d6a

Parents:

3d40e9c77b67af8262c10ff618c95463f017eb14

Message:

list bareiss(...);


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

Location:

Singular

Files:

• matpol.cc (modified) (7 diffs)
• matpol.h (modified) (2 diffs)

Singular/matpol.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: matpol.cc,v 1.12 1998-04-23 18:52:56 Singular Exp $ */
+/* $Id: matpol.cc,v 1.13 1998-05-19 17:11:07 pohl Exp $ */
 
 /*
@@ -14 +14 @@
 #include "mod2.h"
 #include "tok.h"
+#include "lists.h"
 #include "polys.h"
 #include "mmemory.h"
@@ -341 +342 @@
 *  return an list of ...
 */
-matrix mpBareiss (matrix a, BOOLEAN sw)
+lists mpBareiss (matrix a, BOOLEAN sw)
 {
   poly div;
@@ -348 +349 @@
   row_col_weight w(Bareiss->mpGetRdim(), Bareiss->mpGetCdim());
   intvec *v = new intvec(Bareiss->mpGetCdim());
-//  lists res=(lists)Alloc(sizeof(slists));
+  lists res=(lists)Alloc(sizeof(slists));
 
   if (sw) WarnS(feNotImplemented);
@@ -363 +364 @@
   Bareiss->mpSaveArray();
   delete Bareiss;
-/*
+
   res->Init(2);
   res->m[0].rtyp=MATRIX_CMD;
@@ -370 +371 @@
   res->m[1].data=(void *)v;
   return res;
-*/
-  delete v;
-  return c;
 }
 
@@ -1194 +1192 @@
 
   for (i=v->rows()-1; i>=0; i--)
-    (*v)[i] = qcol[i]; 
+    (*v)[i] = qcol[i]+1; 
 }
 

Singular/matpol.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: matpol.h,v 1.5 1997-11-13 09:09:28 siebert Exp $ */
+/* $Id: matpol.h,v 1.6 1998-05-19 17:11:45 pohl Exp $ */
 /*
 * ABSTRACT
@@ -46 +46 @@
 poly TraceOfProd ( matrix a, matrix b, int n);
 
-matrix mpBareiss (matrix a, BOOLEAN diagonal);
+lists mpBareiss (matrix a, BOOLEAN diagonal);
 matrix mpOneStepBareiss (matrix a, poly *H, int *r, int *c);
 poly mpDet (matrix m);