Changeset 309f67 in git

Timestamp:

Oct 15, 1997, 10:05:23 AM (27 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

96c1fd15447bd64a7e673f1b32ea12a74a9a73d7

Parents:

b5ae525ed6a2020a638241140d0a4aabbc162e57

Message:

bugs in kbase


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

File:

• Singular/hdegree.cc (modified) (5 diffs)

Singular/hdegree.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: hdegree.cc,v 1.5 1997-10-15 07:58:51 Singular Exp $ */
+/* $Id: hdegree.cc,v 1.6 1997-10-15 08:05:23 pohl Exp $ */
 /*
 *  ABSTRACT -  dimension, multiplicity, HC, kbase
@@ -1155 +1155 @@
   if (Istc < Nstc)
   {
+    for (i=Nstc-1; i>=0; i--)
+    {
+      if (stc[i] && (stc[i][Nvar] >= y))
+      {
+        Istc--;
+        stc[i] = NULL;
+      }
+    }
     j = 0;
     while (stc[j]) j++;
@@ -1229 +1237 @@
   sn = hGetmem(Nstc, stc, stcmem[Ivar]);
   x = scRestrict(Nstc, sn, Nvar);
-  if (x < 0) ideg = deg;
-  else
-  {
-    if (Nstc == 0)
-    {
-      if (deg >= x) return;
-      act[Nvar] = deg;
-      for (i=Ivar; i; i--) act[i] = 0;
-      scElKbase();
-      return;
-    }
+  if (x <= 0)
+  {
+    if (x == 0) return;
+    ideg = deg;
+  }
+  else
+  {
     if (deg < x) ideg = deg;
     else ideg = x-1;
+    if (Nstc == 0)
+    {
+      scAllKbase(Nvar, ideg, deg);
+      return;
+    }
   }
   loop
@@ -1302 +1311 @@
   sn = hGetmem(Nstc, stc, stcmem[Ivar]);
   x = scRestrict(Nstc, sn, Nvar);
-  if (Nstc == 0)
-  {
-    if (x == 0) return;
-    for (i=Ivar; i; i--) act[i] = 0;
-    do
-    {
-      x--;
-      act[Nvar] = x;
-      scElKbase();
-    } while(x > 0);
-    return;
-  }
+  if (x == 0) return;
   ideg = x-1;
   loop
@@ -1431 +1429 @@
 
 
-