Changeset b54a393 in git for Singular/LIB/sagbi.lib

Timestamp:

Dec 11, 2009, 2:19:13 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

ded085a7412801cc56df67b95d9d1aad3854f8b4

Parents:

268ecefb97aabec39527c04a7cf70a9a701b5673

Message:

*pfister: sagbi fixes

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

File:

• Singular/LIB/sagbi.lib (modified) (2 diffs)

Singular/LIB/sagbi.lib

@@ -538 +538 @@
     S=S+Red;
   }
-  return(S);
+  return(interreduced(S));
 }
 example
@@ -546 +546 @@
  sagbi(I,1,1);
 }
+
+proc interreduced(ideal I)
+{
+  ideal J,B;
+  int i,j,k;
+  poly f;
+  for(k=1;k<=ncols(I);k++)
+  {
+    f=I[k];
+    I[k]=0;
+    f=sagbiNF(f,I,1);
+    I[k]=f;
+  }
+  I=simplify(I,2);
+  return(I);
+}
+
 ///////////////////////////////////////////////////////////////////////////////
 proc sagbiPart(id,int k,int c,list #)