Changeset 96a181 in git for Singular/LIB/primdec.lib

Timestamp:

Sep 17, 2014, 10:14:16 AM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

9d64ac1396fb685bb6ccdd847af6a90e4787e883

Parents:

43a2d4e9557dafb0a554b88ece4b92fc5bfc0be0

Message:

fix: tr.#640 (primdecGTZ with block ordering)

File:

• Singular/LIB/primdec.lib (modified) (1 diff)

Singular/LIB/primdec.lib

@@ -3137 +3137 @@
   if(homo==1)
   {
-    if((ordstr(@P)[3]=="d")||(ordstr(@P)[1]=="d")||(ordstr(@P)[1]=="w")
-       ||(ordstr(@P)[3]=="w"))
+    if(((ordstr(@P)[3]=="d")||(ordstr(@P)[1]=="d")||(ordstr(@P)[1]=="w")
+       ||(ordstr(@P)[3]=="w"))&&(size(ringlist(@P)[3])==2))
     {
       ideal jwork=imap(@P,tras);