Changeset c42241 in git

Timestamp:

May 11, 2006, 9:16:21 PM (17 years ago)

Author:

Motsak Oleksandr <motsak@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')

Children:

08f210b153658058246045d7792d3606873c18b9

Parents:

ec9b961ce4d7cc79de9cb5d45e263f4ea6d58d21

Message:

+ minor changes (sa_reduce checks for constant in FLM ideal)


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

File:

• Singular/LIB/center.lib (modified) (5 diffs)

Singular/LIB/center.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: center.lib,v 1.20 2006-05-11 18:53:25 motsak Exp $"
+version="$Id: center.lib,v 1.21 2006-05-11 19:16:21 motsak Exp $"
 category="Noncommutative"
 info="
@@ -1567 +1567 @@
   while( size(FLM) > 0 )
     {
+//    FLM;
+    
       // Take the 1st element of FLM...
       p = FLM[1]; // SANF( FLM[1], FOUND_LEADING_MONOMIALS );
@@ -1574 +1576 @@
       d = maxdegInt( p );
       T = ideal(p); 
+      
+//      d; size(FOUND_LEADING_MONOMIALS);
+
+    if( d > 0 )
+    {
         
       FOUND_LEADING_MONOMIALS[d] = FOUND_LEADING_MONOMIALS[d] + T;
@@ -1591 +1598 @@
             }
         }
+    }
         
       if( size(FLM) > 0 )
@@ -1601 +1609 @@
         } 
         
-      DBPrint(1, "Found: " + string(T) );
-        
-      result = result + T;
+        if( size(T) > 0 )
+        {
+          DBPrint(1, "Found: " + string(T) );
+          result = result + T;
+        }
         
     }