Changeset 0519cc in git
- Timestamp:
- Aug 3, 2011, 6:13:26 PM (12 years ago)
- Branches:
- (u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')
- Children:
- a0432f40f592dc97101d98fa01a67c6491961523
- Parents:
- 3bef0a1d1e460c3e6aea207800d6677a02625ba9
- git-author:
- Martin Lee <martinlee84@web.de>2011-08-03 18:13:26+02:00
- git-committer:
- Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 13:14:18+01:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/interpolation.cc
r3bef0a r0519cc 11 11 #include <polys/polys.h> 12 12 #include <Singular/lists.h> 13 #include < kernel/longrat.h>13 #include <coeffs/longrat.h> 14 14 #include <Singular/ipid.h> 15 15 #include <polys/monomials/ring.h> … … 1496 1496 1497 1497 // reading the ring data *************************************************** 1498 if ((currRing==NULL) || ((!rField_is_Zp ( ))&&(!rField_is_Q ())))1498 if ((currRing==NULL) || ((!rField_is_Zp (currRing))&&(!rField_is_Q (currRing)))) 1499 1499 { 1500 1500 WerrorS("coefficient field should be Zp or Q!"); … … 1518 1518 } 1519 1519 variables=currRing->N; 1520 only_modp=rField_is_Zp( );1521 if (only_modp) myp=rChar( );1520 only_modp=rField_is_Zp(currRing); 1521 if (only_modp) myp=rChar(currRing); 1522 1522 // ring data read ********************************************************** 1523 1523 … … 1760 1760 mpz_init_set(n->z,temp->polycoef[a]); 1761 1761 n->s=3; 1762 nlNormalize(n );1762 nlNormalize(n, currRing->cf); 1763 1763 p=pNSet(n); //a monomial 1764 1764 for (j=0;j<variables;j++) pSetExp(p,j+1,temp->polyexp[a][j]);
Note: See TracChangeset
for help on using the changeset viewer.