Changeset 54e883b in git

Timestamp:

Jul 21, 2005, 1:22:45 PM (18 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

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

Children:

56a6ccd4654cf4075c8af0cce6b971975087fccd

Parents:

d851263adece184782658a61c859962e6911ef8f

Message:

*bricken: minus some output


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

File:

• kernel/tgb.cc (modified) (3 diffs)

kernel/tgb.cc

@@ -5 +5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: tgb.cc,v 1.35 2005-07-20 11:12:43 bricken Exp $ */
+/* $Id: tgb.cc,v 1.36 2005-07-21 11:22:45 bricken Exp $ */
 /*
 * ABSTRACT: slimgb and F4 implementation
@@ -1905 +1905 @@
   r=currRing;
   nc=rIsPluralRing(r);
-  Print("nc %i",nc);
+  
   is_homog=TRUE;
   {
@@ -2576 +2576 @@
   if (c->strat->lenSw!=NULL) return c->strat->lenSw[pos];
   return c->strat->lenS[pos];
+}
+static inline int quality_of_pos_in_strat_S_mult_high(int pos, poly high, slimgb_alg* c)
+  //meant only for nc
+{
+  poly m=pOne();
+  pExpVectorDiff(m,high ,c->strat->S[pos]);
+  poly product=nc_mm_Mult_p(m, pCopy(c->strat->S[pos]), c->r);
+  int erg=pQuality(product,c);
+  pDelete(&m);
+  pDelete(&product);
+  return erg;
 }