Changeset 3ec38a in git


Ignore:
Timestamp:
Feb 26, 2009, 5:34:46 PM (14 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')
Children:
e080abd680b3a24e92a87f55bce1810d468b80a3
Parents:
c0e2c365e9f081e528f9eb28536ac32e035adb32
Message:
*hannes: red...


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

Legend:

Unmodified
Added
Removed
  • kernel/gr_kstd2.cc

    rc0e2c36 r3ec38a  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: gr_kstd2.cc,v 1.32 2009-02-26 15:57:01 Singular Exp $ */
     4/* $Id: gr_kstd2.cc,v 1.33 2009-02-26 16:34:46 Singular Exp $ */
    55/*
    66*  ABSTRACT -  Kernel: noncomm. alg. of Buchberger
     
    255255#endif
    256256        //poly hh = nc_CreateSpoly(strat->S[c_j],(*h).p, currRing);
    257         if(c_e==-1)
    258           c_p = nc_CreateSpoly(pCopy(strat->S[c_j]),pCopy((*h).p), currRing);
    259         else
    260           c_p=nc_rat_ReduceSpolyNew(pCopy(strat->S[c_j]),pCopy((*h).p), currRing->real_var_start-1,currRing);
     257        Print("vor nc_rat_ReduceSpolyNew (ce:%d) ",c_e);wrp(h->p);PrintLn();
     258        //if(c_e==-1)
     259        //  c_p = nc_CreateSpoly(pCopy(strat->S[c_j]),pCopy((*h).p), currRing);
     260        //else
     261          c_p=nc_rat_ReduceSpolyNew(strat->S[c_j],pCopy((*h).p), currRing->real_var_start-1,currRing);
     262        Print("nach nc_rat_ReduceSpolyNew ");wrp(c_p);PrintLn();
    261263        pDelete(&((*h).p));
    262264        (*h).p=c_p;
Note: See TracChangeset for help on using the changeset viewer.