Changeset 6d37e8 in git

Timestamp:

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

Author:

Eric Westenberger <westenb@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

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

Location:

Singular/LIB

Files:

• linalg.lib (modified) (4 diffs)
• ntsolve.lib (modified) (5 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;}
     }

Singular/LIB/ntsolve.lib

@@ -1 +1 @@
 //(GMG, last modified 16.12.00)
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: ntsolve.lib,v 1.13 2001-08-27 14:47:56 Singular Exp $";
+version="$Id: ntsolve.lib,v 1.14 2002-04-11 14:51:50 westenb Exp $";
 category="Symbolic-numerical solving";
 info="
@@ -13 +13 @@
 ";
 
+LIB "general.lib";
 ///////////////////////////////////////////////////////////////////////////////
 
@@ -328 +329 @@
     for (i = 1; i <= n; i++)
     {
-        if ( abs(h[i]) > (1/10)^err)
+        if ( absValue(h[i]) > (1/10)^err)
         {
             fertig = 0;
@@ -338 +339 @@
         if (prot > 0)
         {
-           "// error:"; print(abs(h[i]));
+           "// error:"; print(absValue(h[i]));
            "// iterations to be performed: "+string(itb);
         }
@@ -363 +364 @@
 }
 ///////////////////////////////////////////////////////////////////////////////
-
-static proc abs( number r)
-{
-   if (r >= 0)
-   {
-       return(r);
-   }
-   else
-   {
-       return(-r);
-   }
-}
-///////////////////////////////////////////////////////////////////////////////
-