Changeset 29b5e9d in git

Timestamp:

Jan 22, 2015, 10:11:30 AM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

4b278ca27388e13838313dcd3b914338f9e5dbf3d181eea62bf528f5777c224499fbf26cccac5ff7

Parents:

048f2223e4bc5492067385a8169f1c5ba10f6b86

Message:

minor fixes for primdec.lib: handling of attrib isSB

File:

• Singular/LIB/primdec.lib (modified) (7 diffs)

Singular/LIB/primdec.lib

@@ -2554 +2554 @@
   }
 
-  if(((homo==1)||(a==1))&&(find(ordstr(basering),"l")==0)
+  if(((homo==1)||(a))&&(find(ordstr(basering),"l")==0)
                                 &&(find(ordstr(basering),"s")==0))
   {
@@ -2561 +2561 @@
      ideal i=imap(P,i);
      ideal j=i;
-     if(a==1)
+     if(a)
      {
        attrib(j,"isSB",1);
@@ -2659 +2659 @@
   int homo=homog(i);
 
-  if(((homo==1)||(a==1))&&(find(ordstr(basering),"l")==0)
+  if(((homo==1)||(a))&&(find(ordstr(basering),"l")==0)
                                 &&(find(ordstr(basering),"s")==0))
   {
@@ -2666 +2666 @@
      ideal i=imap(P,i);
      ideal j=i;
-     if(a==1)
+     if(a)
      {
        attrib(j,"isSB",1);
@@ -3038 +3038 @@
   ideal peek=i;
   ideal ser,tras;
-  int isS=(attrib(i,"isSB")==1);
+  int isS=attrib(i,"isSB");
 
   if(size(#)>0)
@@ -7541 +7541 @@
   list result;
   intvec @hilb;
-  int isS=(attrib(i,"isSB")==1);
+  int isS=attrib(i,"isSB");
 
   // Debug
@@ -7591 +7591 @@
   if(homo==1)
   {
-    if(attrib(i,"isSB")!=1)
+    if(attrib(i,"isSB"))
+    {
+      ltras=i,i;
+    }
+    else
     {
       //ltras=mstd(i);
       tras=groebner(i);
       ltras=tras,tras;
-      attrib(ltras[1],"isSB",1);
-    }
-    else
-    {
-      ltras=i,i;
-      attrib(ltras[1],"isSB",1);
-    }
+    }
+    attrib(ltras[1],"isSB",1);
     tras = ltras[1];
     attrib(tras,"isSB",1);