Changeset 48884f2 in git for kernel/polys.cc

Timestamp:

Jul 29, 2009, 12:07:22 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')

Children:

83d85d086aa675e45d0926a7b03e4103ce472a6c

Parents:

1305eacb0ae9e37f13cfc9e1a6df9828bff15c3b

Message:

*hannes: pLast -> polys.cc


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

File:

• kernel/polys.cc (modified) (2 diffs)

kernel/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.38 2009-05-19 08:44:30 Singular Exp $ */
+/* $Id: polys.cc,v 1.39 2009-07-29 10:07:22 Singular Exp $ */
 
 /*
@@ -1115 +1115 @@
 }
 
+/*2
+* returns the length of a (numbers of monomials)
+* respect syzComp
+*/
+poly pLast(poly a, int &l)
+{
+  if (a == NULL)
+  {
+    l = 0;
+    return NULL;
+  }
+  l = 1;
+  if (! rIsSyzIndexRing(currRing))
+  {
+    while (pNext(a)!=NULL)
+    {
+      pIter(a);
+      l++;
+    }
+  }
+  else
+  {
+    int curr_limit = rGetCurrSyzLimit(currRing);
+    poly pp = a;
+    while ((a=pNext(a))!=NULL)
+    {
+      if (pGetComp(a)<=curr_limit/*syzComp*/)
+        l++;
+      else break;
+      pp = a;
+    }
+    a=pp;
+  }
+  return a;
+}
+