Changeset 3eabdb in git


Ignore:
Timestamp:
Nov 27, 2009, 2:39:31 PM (15 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
2abbb600a8cb10a3ab7a4aac22dca46940f2a9bf
Parents:
695a2d025f8cca3a2a5725e892f18e7a8dc5c5fb
Message:
pNSet

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

Legend:

Unmodified
Added
Removed
  • Singular/interpolation.cc

    r695a2d r3eabdb  
    17441744          if (mpz_sgn(temp->polycoef[a])!=0)
    17451745          {
    1746              p=pOne(); //a monomial
    1747              for (j=0;j<variables;j++) pSetExp(p,j+1,temp->polyexp[a][j]);
    1748              pSetm(p); // after all pSetExp
    17491746             number n=(number)omAllocBin(rnumber_bin);
    17501747#ifdef LDEBUG
     
    17541751             n->s=3;
    17551752             nlNormalize(n);
    1756              pSetCoeff(p,n);
     1753             p=pNSet(n); //a monomial
     1754             for (j=0;j<variables;j++) pSetExp(p,j+1,temp->polyexp[a][j]);
     1755             pSetm(p); // after all pSetExp
    17571756             sum=pAdd(sum,p);
    17581757          }
  • Singular/ipconv.cc

    r695a2d r3eabdb  
    188188  if (!nIsZero((number)data))
    189189  {
    190     p=pOne();
    191     pSetCoeff(p,(number)data);
     190    p=pNSet((number)data);
    192191  }
    193192  //else
     
    203202  if (!nIsZero((number)data))
    204203  {
    205     poly p=pOne();
    206     pSetCoeff(p,(number)data);
     204    poly p=pNSet((number)data);
    207205    I->m[0]=p;
    208206  }
  • Singular/ipshell.cc

    r695a2d r3eabdb  
    15461546    ideal I=idInit(1,1);
    15471547    L->m[3].data=(void *)I;
    1548     I->m[0]=pOne();
    1549     pSetCoeff(I->m[0],R->minpoly);
     1548    I->m[0]=pNSet(R->minpoly);
    15501549  }
    15511550  // ----------------------------------------
Note: See TracChangeset for help on using the changeset viewer.