Changeset 7a5fd5 in git for Singular/extra.cc

Timestamp:

Oct 13, 2016, 5:32:46 PM (8 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

7ffb4bcdad71af1ab7691d1c8544911a9b902128

Parents:

488bf28ce21dbdca62e23e85309e403e926731b0

Message:

experimental lib: ncHilb.lib

File:

• Singular/extra.cc (modified) (2 diffs)

Singular/extra.cc

@@ -315 +315 @@
       }
       return TRUE;
+    }
+    else
+/*===== nc_hilb ===============================================*/
+   // Hilbert series of non-commutative monomial algebras
+    if(strcmp(sys_cmd,"nc_hilb") == 0)
+    {
+      ideal i;
+      int lV;
+      bool ig = FALSE;
+      if((h != NULL)&&(h->Typ() == IDEAL_CMD))
+        i = (ideal)h->Data();
+      else
+      {
+        WerrorS("ideal expected");
+        return TRUE;
+      }
+      h = h->next;
+      if((h != NULL)&&(h->Typ() == INT_CMD))
+        lV = (int)(long)h->Data();
+      else
+      {
+        WerrorS("int expected");
+        return TRUE;
+      }
+      h = h->next;
+      if(h != NULL)
+        ig = TRUE;
+      HilbertSeries_OrbitData(i,lV,ig);
+      return(FALSE);
     }
     else
@@ -3046 +3075 @@
       else
   #endif
-    /*======================================================
-     * Hilbert series of non-commutative monomial algebras
-     *======================================================*/
-      if(strcmp(sys_cmd,"nc_hilb") == 0)
-      {
-        ideal i;
-        int lV;
-        bool ig = FALSE;
-        if((h != NULL)&&(h->Typ() == IDEAL_CMD))
-          i = (ideal)h->Data();
-        else
-        {
-          WerrorS("ideal expected");
-          return TRUE;
-        }
-        h = h->next;
-        if((h != NULL)&&(h->Typ() == INT_CMD))
-          lV = (int)(long)h->Data();
-        else 
-        { 
-          WerrorS("int expected"); 
-          return TRUE;
-        }
-        h = h->next;
-        if(h != NULL)
-          ig = TRUE;
-        HilbertSeries_OrbitData(i,lV,ig);
-        return(FALSE);
-      }
-      else
-
-    /*==================== sca?AltVar ==================================*/
+    /*==================== sca:AltVar ==================================*/
   #ifdef HAVE_PLURAL
       if ( (strcmp(sys_cmd, "AltVarStart") == 0) || (strcmp(sys_cmd, "AltVarEnd") == 0) )