Changeset d3b2eb in git


Ignore:
Timestamp:
May 23, 2007, 9:47:31 AM (16 years ago)
Author:
Oliver Wienand <wienand@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')
Children:
8f898b3d87777eda0d1e26b3d933773565c143ac
Parents:
04d04e0c25104c0e15190f608f770610097fbaf2
Message:
polys.cc:
debug comment

kutil.cc, rmodulo*:
silly mistake corrected

polys1.cc:
pContent update


git-svn-id: file:///usr/local/Singular/svn/trunk@10068 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
kernel
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • kernel/kutil.cc

    r04d04e0 rd3b2eb  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kutil.cc,v 1.56 2007-05-22 16:14:09 wienand Exp $ */
     4/* $Id: kutil.cc,v 1.57 2007-05-23 07:47:29 wienand Exp $ */
    55/*
    66* ABSTRACT: kernel: utils for kStd
    … …  
    12571257  k_GetStrongLeadTerms(p, strat->S[i], currRing, m1, m2, gcd, strat->tailRing);
    12581258
    1259   pSetCoeff0(m1, (number) s);
    1260   pSetCoeff0(m2, (number) t);
    1261   pSetCoeff0(gcd, (number) d);
     1259  pSetCoeff0(m1, nInit(s));
     1260  pSetCoeff0(m2, nInit(t));
     1261  pSetCoeff0(gcd, nInit(d));
    12621262
    12631263

  • kernel/polys.cc

    r04d04e0 rd3b2eb  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys.cc,v 1.18 2007-05-19 13:22:23 wienand Exp $ */
     4/* $Id: polys.cc,v 1.19 2007-05-23 07:47:30 wienand Exp $ */
    55
    66/*
    … …  
    705705    unit = nAdd(unit, nIntDiv(0, gcd_new));
    706706  }
     707//  Print("k = %d ; unit = %d ; gcd = %d", k, unit, gcd);
    707708  return unit;
    708709}

  • kernel/polys1.cc

    r04d04e0 rd3b2eb  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys1.cc,v 1.27 2007-05-10 08:12:42 wienand Exp $ */
     4/* $Id: polys1.cc,v 1.28 2007-05-23 07:47:30 wienand Exp $ */
    55
    66/*
    … …  
    486486    {
    487487      number k = nGetUnit(pGetCoeff(ph));
    488       poly h;
    489488      if (!nIsOne(k))
    490489      {
    491         pSetCoeff0(ph, nDiv(pGetCoeff(ph), k));
    492         h = pNext(ph);
     490        k = nInvers(k);
     491        poly h = pNext(ph);
     492        pSetCoeff0(ph, nMult(pGetCoeff(ph), k));
    493493        while (h != NULL)
    494494        {
    495           pSetCoeff(h, nDiv(pGetCoeff(h), k));
     495          pSetCoeff(h, nMult(pGetCoeff(h), k));
    496496          pIter(h);
    497497        }

  • kernel/rmodulo2m.cc

    r04d04e0 rd3b2eb  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: rmodulo2m.cc,v 1.10 2007-05-19 13:22:23 wienand Exp $ */
     4/* $Id: rmodulo2m.cc,v 1.11 2007-05-23 07:47:31 wienand Exp $ */
    55/*
    66* ABSTRACT: numbers modulo 2^m
    … …  
    103103number nr2mInit (int i)
    104104{
    105   NATNUMBER ii = i;
     105  long ii = i;
    106106  while (ii < 0) ii += nr2mModul;
    107107  while ((ii>1) && (ii >= nr2mModul)) ii -= nr2mModul;

  • kernel/rmodulon.cc

    r04d04e0 rd3b2eb  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: rmodulon.cc,v 1.4 2007-05-19 13:22:23 wienand Exp $ */
     4/* $Id: rmodulon.cc,v 1.5 2007-05-23 07:47:31 wienand Exp $ */
    55/*
    66* ABSTRACT: numbers modulo n
    … …  
    114114number nrnInit (int i)
    115115{
    116   NATNUMBER ii = i;
     116  long ii = i;
    117117  while (ii < 0) ii += nrnModul;
    118118  while ((ii>1) && (ii >= nrnModul)) ii -= nrnModul;
Note: See TracChangeset for help on using the changeset viewer.