Changeset 9e5836 in git

Timestamp:

Feb 7, 2001, 1:48:27 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

1c1d96b5e535776d8281b913f2c6508b4340cac7

Parents:

de901962a53d16256a7fc9fa7fa204030baca7b3

Message:

*hannes: some optimizations


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

File:

• Singular/units.cc (modified) (8 diffs)

Singular/units.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: units.cc,v 1.4 2001-02-02 11:34:53 mschulze Exp $ */
+/* $Id: units.cc,v 1.5 2001-02-07 12:48:27 Singular Exp $ */
 /*
 * ABSTRACT: procedures to compute with units
@@ -20 +20 @@
 BOOLEAN isunit(poly u)
 {
-  if(u==NULL||pTotaldegree(u)>0)
-    return FALSE;
-  return TRUE;
+  return (u!=NULL) && pIsConstant(u);
+//  if(u==NULL||pTotaldegree(u)>0)
+//    return FALSE;
+//  return TRUE;
 }
 
@@ -67 +68 @@
         return FALSE;
       }
-    } 
+    }
  }
   WerrorS("<int>,[<poly>|<matrix>] expected");
@@ -85 +86 @@
     return NULL;
   number u0=nInvers(pGetCoeff(u));
-  poly v=pOne();
-  pSetCoeff(v,u0);
+  poly v=pNSet(u0);
   if(n==0)
     return v;
@@ -106 +106 @@
 matrix invunit(int n,matrix U)
 {
+  assume(MATCOLS(u)==MATROWS(U));
   for(int i=MATCOLS(U);i>=1;i--)
     MATELEM(U,i,i)=invunit(n,MATELEM(U,i,i));
@@ -125 +126 @@
         h=h->next;
         if(h==NULL)
-        {
+        {
           res->rtyp=typ;
           res->data=(void*)series(n,pCopy(p));
           return FALSE;
-        }
+        }
         if(h->Typ()==POLY_CMD)
         {
@@ -264 +265 @@
           res->data=(void*)rednf(idCopy(N),pCopy(p),pCopy(u));
           return FALSE;
-        }
+        }
       }
     }
@@ -319 +320 @@
   else
   {
-    matrix U=mpInitI(1,1,NULL);
+    matrix U=mpNew(1,1);
     MATELEM(U,1,1)=u;
     M0=rednf(N,M,U);
+    idDelete((ideal*)&U);
   }
   poly p0=M0->m[0];