Changeset 6d37e8 in git for Singular/LIB/ntsolve.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/ntsolve.lib (modified) (5 diffs)

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);
-   }
-}
-///////////////////////////////////////////////////////////////////////////////
-