Changeset b54a393 in git

Timestamp:

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

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

ded085a7412801cc56df67b95d9d1aad3854f8b4

Parents:

268ecefb97aabec39527c04a7cf70a9a701b5673

Message:

*pfister: sagbi fixes

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

Location:

Singular/LIB

Files:

• homolog.lib (modified) (1 diff)
• sagbi.lib (modified) (2 diffs)

Singular/LIB/homolog.lib

@@ -1905 +1905 @@
       module Co=modulo(syz(transpose(G[c+1])),transpose(K)+transpose(G[c]));
    }
-   return(list(prune(Ke),prune(modulo(Ke,M)),prune(Co)));
+   return(list(Ke,prune(modulo(Ke,M)),prune(Co)));
 
 }

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 #)