Changeset d894f4d in git


Ignore:
Timestamp:
Jul 31, 1997, 4:58:31 PM (27 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '82fc009ea2b0098c1a4896c841bb70860976bdfc')
Children:
65482426f08c6d0cbd80107bd86fac3d666063d0
Parents:
d7eca75bfda600a334a2a5c37cf2dace9e0bed92
Message:
* hannes: some changes in test-6-code of kstd2.cc


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

Legend:

Unmodified
Added
Removed
  • Singular/kstd2.cc

    rd7eca75 rd894f4d  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kstd2.cc,v 1.5 1997-06-09 12:21:25 Singular Exp $ */
     4/* $Id: kstd2.cc,v 1.6 1997-07-31 14:58:31 Singular Exp $ */
    55/*
    66*  ABSTRACT -  Kernel: alg. of Buchberger
     
    344344  loop
    345345  {
    346     if (TEST_OPT_DEBUG) Print("%d",j);
    347346    if (pDivisibleBy(strat->S[j],(*h).p))
    348347    {
     
    350349      if (TEST_OPT_DEBUG)
    351350      {
    352         PrintS("+\nwith ");
     351        Print("\nwith S[%d] ",j);
    353352        wrp(strat->S[j]);
    354353      }
     
    414413    else
    415414    {
    416       if (TEST_OPT_DEBUG) PrintS("-");
    417415      if (j >= strat->sl)
    418416      {
     
    456454  loop
    457455  {
    458     if (TEST_OPT_DEBUG) Print("%d",j);
    459456    if (pDivisibleBy(strat->T[j].p,(*h).p))
    460457    {
    461       if (TEST_OPT_DEBUG) PrintS("+");
     458      if (TEST_OPT_DEBUG) Print(" T[%d]",j);
    462459      pi = strat->T[j].p;
    463460      ei = strat->T[j].ecart;
     
    475472        if ((!BTEST1(20)) && (ei <= (*h).ecart))
    476473          break;
    477         if (TEST_OPT_DEBUG) Print("%d",i);
    478474        if ((strat->T[i].ecart < ei) && pDivisibleBy(strat->T[i].p,(*h).p))
    479475        {
    480           if (TEST_OPT_DEBUG) PrintS("+");
     476          if (TEST_OPT_DEBUG) Print(" T[%d]",i);
    481477          /*
    482478          * the polynomial to reduce with is now;
     
    485481          ei = strat->T[i].ecart;
    486482        }
    487         else if (TEST_OPT_DEBUG) PrintS("-");
    488483      }
    489484
     
    602597    else
    603598    {
    604       if (TEST_OPT_DEBUG) PrintS("-");
    605599      if (j >= strat->tl)
    606600      {
Note: See TracChangeset for help on using the changeset viewer.