Changeset 4c4979 in git for kernel/shiftgb.cc

Timestamp:

Jun 19, 2009, 5:31:48 PM (14 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

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

Children:

03057341d897afb7daf5d8d5346c88a961df4184

Parents:

ca02ab01da5c28f679d205662ca93d894d1719eb

Message:

*levandov: redSB and redTail for non-homogeneous shift gb


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

File:

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

kernel/shiftgb.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: shiftgb.cc,v 1.11 2009-02-23 13:50:52 Singular Exp $ */
+/* $Id: shiftgb.cc,v 1.12 2009-06-19 15:31:48 levandov Exp $ */
 /*
 * ABSTRACT: kernel: utils for shift GB and free GB
@@ -578 +578 @@
 
 
+/*2
+ *if the leading term of p
+ *divides the leading term of some T[i] it will be canceled
+ */
+// static inline void clearSShift (poly p, unsigned long p_sev,int l, int* at, int* k,
+//                            kStrategy strat)
+// {
+//   assume(p_sev == pGetShortExpVector(p));
+//   if (!pLmShortDivisibleBy(p,p_sev, strat->T[*at].p, ~ strat->sevT[*at])) return;
+//   //  if (l>=strat->lenS[*at]) return;
+//   if (TEST_OPT_PROT)
+//     PrintS("!");
+//   mflush();
+//   //pDelete(&strat->S[*at]);
+//   deleteInS((*at),strat);
+//   (*at)--;
+//   (*k)--;
+// //  assume(lenS_correct(strat));
+// }
+
 /* remarks: cleanT : just deletion
 enlargeT: just reallocation */