Changeset b004b6 in git

Timestamp:

Nov 11, 2010, 3:44:15 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

f815bd7a2ee7abb3db49b741b7d04aa001f54a35

Parents:

49a7660d31092e03deb306e45707cb52b2c37900

Message:

handling of 1 improved

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

File:

• kernel/sparsmat.cc (modified) (5 diffs)

kernel/sparsmat.cc

@@ -2433 +2433 @@
 {
   BOOLEAN sw;
-  number x,o=nInit(1);
+  number x;
 
   while (a != NULL)
   {
     x = nGetDenom(pGetCoeff(a));
-    sw = nEqual(x,o);
+    sw = nIsOne(x);
     nDelete(&x);
     if (!sw)
     {
-      nDelete(&o);
       return TRUE;
     }
     pIter(a);
   }
-  nDelete(&o);
   return FALSE;
 }
@@ -2512 +2510 @@
   int rpiv;            // row-position of the pivot
   int *perm;           // permutation of rows
-  number one;          // the "1"
   number *sol;         // field for solution
   int *wrw, *wcl;      // weights of rows and columns
@@ -2605 +2602 @@
   omFreeSize((ADDRESS)pmat,smat->ncols*sizeof(poly));
   omFreeBin((ADDRESS)smat, sip_sideal_bin);
-  one = nInit(1);
 }
 
@@ -2623 +2619 @@
   omFreeSize((ADDRESS)m_row, sizeof(smnumber)*i);
   omFreeSize((ADDRESS)perm, sizeof(int)*i);
-  nDelete(&one);
 }
 
@@ -2809 +2804 @@
 void sparse_number_mat::smGElim()
 {
-  number p = nDiv(one,piv->m);  // pivotelement
+  number p = nInvers(piv->m);  // pivotelement
   smnumber c = m_act[act];      // pivotcolumn
   smnumber r = red;             // row to reduce