Changeset 78b904 in git


Ignore:
Timestamp:
Jul 23, 2007, 12:46:57 PM (17 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
9866fc7d15f2e47654cbf50937ac78e9ab9c7a33
Parents:
7c38bcb5f2878e308ca07340e00bfe7b4fdd406e
Message:
*hannes: NF2: lazy normalize


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

Legend:

Unmodified
Added
Removed
  • kernel/kstd2.cc

    r7c38bc r78b904  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kstd2.cc,v 1.46 2007-07-13 14:19:26 Singular Exp $ */
     4/* $Id: kstd2.cc,v 1.47 2007-07-23 10:46:57 Singular Exp $ */
    55/*
    66*  ABSTRACT -  Kernel: alg. of Buchberger
     
    995995    if (j>=0)
    996996    {
     997      if (!nIsOne(pGetCoeff(strat->S[j])))
     998      {
     999         pNorm(strat->S[j]);
     1000         //if (TEST_OPT_PROT) { PrintS("n"); mflush(); }
     1001      }
    9971002      nNormalize(pGetCoeff(P.p));
    9981003#ifdef KDEBUG
     
    13441349  /*- compute------------------------------------------------------- -*/
    13451350  //if ((TEST_OPT_INTSTRATEGY)&&(lazyReduce==0))
    1346   {
    1347     for (i=strat->sl;i>=0;i--)
    1348       pNorm(strat->S[i]);
    1349   }
     1351  //{
     1352  //  for (i=strat->sl;i>=0;i--)
     1353  //    pNorm(strat->S[i]);
     1354  //}
    13501355  kTest(strat);
    13511356  if (TEST_OPT_PROT) { PrintS("r"); mflush(); }
     
    13541359  if ((p!=NULL)&&(lazyReduce==0))
    13551360  {
     1361    BITSET save=test;
     1362    test &= ~Sy_bit(OPT_INTSTRATEGY);
    13561363    if (TEST_OPT_PROT) { PrintS("t"); mflush(); }
    13571364    p = redtailBba(p,max_ind,strat);
     1365    test=save;
    13581366  }
    13591367  /*- release temp data------------------------------- -*/
Note: See TracChangeset for help on using the changeset viewer.