Changeset a04d1f in git

Timestamp:

Jun 30, 2005, 5:01:51 PM (18 years ago)

Author:

Nadine Cremer <cremer@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

8d5c5fe2a46548f5bfe950d7cdc98a3b7546996c

Parents:

62e942a351b8cb95de9e62204cd2f299b8c7fba9

Message:

*cremer: removed bug in idealsimplify


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

File:

• Singular/LIB/lejeune.lib (modified) (3 diffs)

Singular/LIB/lejeune.lib

@@ -1 +1 @@
 
 //-*- mode:C++;-*-
-// $Id: lejeune.lib,v 1.12 2005-06-30 14:03:37 cremer Exp $
+// $Id: lejeune.lib,v 1.13 2005-06-30 15:01:51 cremer Exp $
 
 
@@ -49 +49 @@
      setring R;
      I=imap(tmp, resultf_set);
-     I=simplify(I,2);
-     I=simplify(I,4);
-     I=idealsimplify(I);
-     I=idealsimplify(I);I;~;
      kill tmp;
      J=J,I;
    } 
-  //J=idealsimplify(J);J;~;
-  //J=simplify(J,4);
-  //J=simplify(J,2);
-  //J=std(J);
+  J=simplify(J,4);
+  J=simplify(J,2);
+  J=idealsimplify(J);
+  option(redSB);
+  J=std(J);
+  J=idealsimplify(J);
+  J=radical(simplify(J,4));
   J;
   return(R);
@@ -254 +253 @@
   int pos;
   for(j=1;j<=ncols(I);j++)
-    {
-      for(i=1;i<=nvars(basering);i++)     
-       {  
-         if(modd(I[j],var(i))==0)
-           {
-             divisornumber++;
-             pos=i;
-           }
+  {
+    if(size(I[j])==1)
+      {
+         for(i=1;i<=nvars(basering);i++)     
+         {  
+            if(modd(I[j],var(i))==0)
+            {
+               divisornumber++;
+               pos=i;
+             }
+          }
        }
       if(divisornumber==1)