Changeset 54e883b in git


Ignore:
Timestamp:
Jul 21, 2005, 1:22:45 PM (19 years ago)
Author:
Michael Brickenstein <bricken@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
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:
1 edited

Legend:

Unmodified
Added
Removed
  • kernel/tgb.cc

    rd85126 r54e883b  
    55*  Computer Algebra System SINGULAR     *
    66****************************************/
    7 /* $Id: tgb.cc,v 1.35 2005-07-20 11:12:43 bricken Exp $ */
     7/* $Id: tgb.cc,v 1.36 2005-07-21 11:22:45 bricken Exp $ */
    88/*
    99* ABSTRACT: slimgb and F4 implementation
     
    19051905  r=currRing;
    19061906  nc=rIsPluralRing(r);
    1907   Print("nc %i",nc);
     1907 
    19081908  is_homog=TRUE;
    19091909  {
     
    25762576  if (c->strat->lenSw!=NULL) return c->strat->lenSw[pos];
    25772577  return c->strat->lenS[pos];
     2578}
     2579static inline int quality_of_pos_in_strat_S_mult_high(int pos, poly high, slimgb_alg* c)
     2580  //meant only for nc
     2581{
     2582  poly m=pOne();
     2583  pExpVectorDiff(m,high ,c->strat->S[pos]);
     2584  poly product=nc_mm_Mult_p(m, pCopy(c->strat->S[pos]), c->r);
     2585  int erg=pQuality(product,c);
     2586  pDelete(&m);
     2587  pDelete(&product);
     2588  return erg;
    25782589}
    25792590
Note: See TracChangeset for help on using the changeset viewer.