Changeset 6d37e8 in git for Singular/LIB/linalg.lib

Timestamp:

Apr 11, 2002, 4:51:50 PM (21 years ago)

Author:

Eric Westenberger <westenb@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

0e8152ebb2559f1aabc537bc2bd088ef1c8c1041

Parents:

ca41246411e667fc0037f19eb53bf1a019285622

Message:

*westenb: removed static proc abs, call now absValue from general.lib


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

File:

• Singular/LIB/linalg.lib (modified) (4 diffs)

Singular/LIB/linalg.lib

@@ -1 +1 @@
 //GMG last modified: 04/25/2000
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: linalg.lib,v 1.31 2002-03-26 12:41:43 mschulze Exp $";
+version="$Id: linalg.lib,v 1.32 2002-04-11 14:48:43 westenb Exp $";
 category="Linear Algebra";
 info="
@@ -37 +37 @@
 LIB "ring.lib";
 LIB "elim.lib";
+LIB "general.lib";
 //////////////////////////////////////////////////////////////////////////////
 // help functions
 //////////////////////////////////////////////////////////////////////////////
-static proc abs(poly c)
-"RETURN: absolut value of c, c must be constants"
-{
-  if(c>=0){ return(c);}
-  else{ return(-c);}
-}
-
 static proc const_mat(matrix A)
 "RETURN:   1 (0) if A is (is not) a constant matrix"
@@ -797 +791 @@
       jp=i;pivo=0;
       for(j=i+1;j<=n;j=j+1){
-        c=abs(A[j,i+k]);
+        c=absValue(A[j,i+k]);
         if(pivo<c){ pivo=c;jp=j;}
       }
@@ -884 +878 @@
 
     //Pivotisierung
-    pivo=abs(A[i,i+k]);jp=i;
+    pivo=absValue(A[i,i+k]);jp=i;
     for(j=i+1;j<=n;j=j+1){
-      c=abs(A[j,i+k]);
+      c=absValue(A[j,i+k]);
       if(pivo<c){ pivo=c;jp=j;}
     }