Changeset a7a295 in git for Singular

Timestamp:

Sep 14, 2016, 6:19:04 PM (8 years ago)

Author:

Sharwan Tiwari <stiwari@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

579edfd1e445a134cdaeced2df1b8db73d9b7d9b

Parents:

6865a515676783a93fc67ca4c11e6931b8df506a

git-author:

Sharwan Tiwari <stiwari@gmail.com>2016-09-14 18:19:04+02:00

git-committer:

Sharwan Tiwari <stiwari@gmail.com>2016-10-11 17:40:28+02:00

Message:

Hilbert series of non-comm monomial algebras

Location:

Singular

Files:

• LIB/ncHilb.lib (added)
• extra.cc (modified) (1 diff)

Singular/extra.cc

@@ -3046 +3046 @@
       else
   #endif
-  /*==================== sca?AltVar ==================================*/
+        //==========================================================
+        // Hilbert series for non-comm. monomial algebras
+        // =========================================================
+  if(strcmp(sys_cmd,"nc_hilb")==0)
+        {
+                ideal i;
+                bool ig=FALSE;
+                if((h!=NULL)&&(h->Typ()==IDEAL_CMD))
+                        i=(ideal)h->Data();
+                        else return TRUE;
+                        h=h->next;
+                        if(h!=NULL)
+                        ig=TRUE;
+                        HilbertSeries_OrbitData(i,ig);
+                        return(FALSE);
+    }
+                else
+
+        /*==================== sca?AltVar ==================================*/
   #ifdef HAVE_PLURAL
       if ( (strcmp(sys_cmd, "AltVarStart") == 0) || (strcmp(sys_cmd, "AltVarEnd") == 0) )