Changeset e4ca29b in git for kernel/hdegree.cc

Timestamp:

Nov 9, 2007, 12:29:45 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

0b4007f61f4525624acc8b539c5da92fdfe546fc

Parents:

e5e8e8aff2ec0d0232c8319fccfd6395577635cc

Message:

*hannes: scComputeHCw: currently not in use


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

File:

• kernel/hdegree.cc (modified) (4 diffs)

kernel/hdegree.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: hdegree.cc,v 1.8 2007-11-06 17:55:57 Singular Exp $ */
+/* $Id: hdegree.cc,v 1.9 2007-11-09 11:29:45 Singular Exp $ */
 /*
 *  ABSTRACT -  dimension, multiplicity, HC, kbase
@@ -1359 +1359 @@
 }
 
+#if 0 -- alternative implementation of scComputeHC
 void scComputeHCw(ideal ss, ideal Q, int ak, poly &hEdge, ring tailRing)
 {
@@ -1419 +1420 @@
     ideal res=scIdKbase();
     res->rank=ss->rank;
-    poly p_ind=NULL; int ind=-2;
-    for(i=IDELEMS(res)-1;i>=0;i--)
-    {
-      if (pCmp(res->m[i],p_ind)==1) { p_ind=res->m[i]; ind=i; }
+    poly p_ind=res->m[0]; int ind=0;
+    for(i=IDELEMS(res)-1;i>0;i--)
+    {
+      if (pCmp(res->m[i],p_ind)==-1) { p_ind=res->m[i]; ind=i; }
     }
     assume(p_ind!=NULL);
@@ -1438 +1439 @@
   }
 }
+#endif