Changeset 6b29f27 in git

Timestamp:

Apr 5, 2019, 2:00:25 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

bc2ffb3ac3495d903c975099bc679854cfae5a29

Parents:

341943a4fa8f80ec9516fd6e7f02d9a5aee90f47

Message:

add: print module weight in hilbert series

File:

• kernel/combinatorics/hilb.cc (modified) (4 diffs)

kernel/combinatorics/hilb.cc

@@ -1396 +1396 @@
 }
 
-static void hPrintHilb(intvec *hseries)
+static void hPrintHilb(intvec *hseries,intvec *modul_weight)
 {
   int  i, j, l, k;
@@ -1403 +1403 @@
   l = hseries->length()-1;
   k = (*hseries)[l];
+  if ((modul_weight!=NULL)&&(modul_weight->compare(0)!=0))
+  {
+    char *s=modul_weight->ivString(1,0,1);
+    Print("module weights:%s\n",s);
+    omFree(s);
+  }
   for (i = 0; i < l; i++)
   {
@@ -1423 +1429 @@
   if (errorreported) return;
 
-  hPrintHilb(hseries1);
+  hPrintHilb(hseries1,modulweight);
 
   const int l = hseries1->length()-1;
@@ -1433 +1439 @@
 
   PrintLn();
-  hPrintHilb(hseries2);
+  hPrintHilb(hseries2,modulweight);
   if ((l == 1) &&(mu == 0))
     scPrintDegree(rVar(currRing)+1, 0);