Changeset 3e54dd in git for Singular/khstd.cc

Timestamp:

Nov 25, 1997, 4:30:27 PM (26 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'fc741b6502fd8a97288eaa3eba6e5220f3c3df87')

Children:

ae7aaa35b47624e3adc611e16c0bac5e971c5eed

Parents:

5f53b9c2f2efbd06dd80e625ead6cb28b7b45d80

Message:

modulweight


git-svn-id: file:///usr/local/Singular/svn/trunk@934 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/khstd.cc (modified) (4 diffs)

Singular/khstd.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: khstd.cc,v 1.4 1997-04-02 15:07:14 Singular Exp $ */
+/* $Id: khstd.cc,v 1.5 1997-11-25 15:29:57 pohl Exp $ */
 /*
 * ABSTRACT:utils for hilbert driven std
@@ -41 +41 @@
 {
   intvec *newhilb;
-  int deg;
+  int deg,l,ln,mw;
   pFDegProc degp=pFDeg;
-  if (pFDeg!=kModDeg) { degp=pTotaldegree;}
+  if (pFDeg!=kModDeg) { degp=pTotaldegree;}//quasihomogen!!
 
   eledeg--;
   if (eledeg == 0)
   {
+    l = hilb->length()-1;
+    mw = (*hilb)[l];
     newhilb = hHstdSeries(strat->Shdl,w,Q);
-    deg = degp(strat->P.p);
+    ln = newhilb->length()-1;
+    deg = degp(strat->P.p)-mw;
     loop // compare the series in degree deg, try to increase deg -----------
     {
-      if (deg < newhilb->length()) // deg may be out of range
+      if (deg < ln) // deg may be out of range
       {
-        if (deg < hilb->length())
+        if (deg < l)
           eledeg = (*newhilb)[deg]-(*hilb)[deg];
         else
@@ -61 +64 @@
       else
       {
-        if (deg < hilb->length())
+        if (deg < l)
           eledeg = -(*hilb)[deg];
         else // we have newhilb = hilb
@@ -83 +86 @@
     } /* loop */
     delete newhilb;
-    while ((strat->Ll>=0) && (degp(strat->L[strat->Ll].p) < deg)) // the essential step
+    while ((strat->Ll>=0) && (degp(strat->L[strat->Ll].p)-mw < deg)) // the essential step
     {
       count++;