Changeset f93c1c0 in git
 Timestamp:
 Jan 30, 2003, 3:59:59 PM (21 years ago)
 Branches:
 (u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
 Children:
 2eb3dbb39cecb0405a162b62f67738ea926e7e2e
 Parents:
 73c183e64c399fcc250e8964df3457cc5be93544
 Location:
 Singular
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

Singular/polys.cc
r73c183 rf93c1c0 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: polys.cc,v 1.7 8 20011009 16:36:18Singular Exp $ */4 /* $Id: polys.cc,v 1.79 20030130 14:59:59 Singular Exp $ */ 5 5 6 6 /* … … 692 692 *normalize all coeffizients 693 693 */ 694 void p Normalize(poly p)695 { 696 if (rField_has_simple_inverse( )) return; /* Z/p, GF(p,n), R, long R/C */694 void p_Normalize(poly p, ring r) 695 { 696 if (rField_has_simple_inverse(r)) return; /* Z/p, GF(p,n), R, long R/C */ 697 697 while (p!=NULL) 698 698 { 699 nTest(pGetCoeff(p));700 n Normalize(pGetCoeff(p));699 if (currRing==r) {nTest(pGetCoeff(p));} 700 n_Normalize(pGetCoeff(p),r); 701 701 pIter(p); 702 702 } 
Singular/polys.h
r73c183 rf93c1c0 4 4 * Computer Algebra System SINGULAR * 5 5 ****************************************/ 6 /* $Id: polys.h,v 1.5 6 20010305 16:41:49 mschulzeExp $ */6 /* $Id: polys.h,v 1.57 20030130 14:59:58 Singular Exp $ */ 7 7 /* 8 8 * ABSTRACT  all basic methods to manipulate polynomials of the … … 359 359 void pContent(poly p); 360 360 void pCleardenom(poly p); 361 void pNormalize(poly p); 361 void p_Normalize(poly p, ring r); 362 #define pNormalize(p) p_Normalize(p,currRing) 362 363 363 364 // homogenizes p by multiplying certain powers of the varnumth variable
Note: See TracChangeset
for help on using the changeset viewer.