Changeset a1ecc18 in git
- Timestamp:
- Nov 23, 2000, 6:44:07 PM (23 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 6c7f744ef85ac056f7291044e0d591cb8001d794
- Parents:
- 85342036e5a4c81e1cace3f56c0dc8c1c1c655e0
- Location:
- Singular
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/p_polys.cc
r853420 ra1ecc18 7 7 * Author: obachman (Olaf Bachmann) 8 8 * Created: 8/00 9 * Version: $Id: p_polys.cc,v 1.1 0 2000-11-23 17:34:12 obachmanExp $9 * Version: $Id: p_polys.cc,v 1.11 2000-11-23 17:42:30 Singular Exp $ 10 10 *******************************************************************/ 11 11 … … 730 730 return k; 731 731 } 732 733 /*2 734 * returns a polynomial representing the integer i 735 */ 736 poly p_ISet(int i, ring r) 737 { 738 poly rc = NULL; 739 if (i!=0) 740 { 741 rc = p_Init(r); 742 pSetCoeff0(rc,r->cf->nInit(i)); 743 if (r->cf->nIsZero(p_GetCoeff(rc,r))) 744 p_DeleteLm(&rc,r); 745 } 746 return rc; 747 } 748 -
Singular/p_polys.h
r853420 ra1ecc18 8 8 * Author: obachman (Olaf Bachmann) 9 9 * Created: 9/00 10 * Version: $Id: p_polys.h,v 1.1 5 2000-11-23 17:34:12 obachmanExp $10 * Version: $Id: p_polys.h,v 1.16 2000-11-23 17:41:32 Singular Exp $ 11 11 *******************************************************************/ 12 12 #ifndef P_POLYS_H … … 216 216 int p_IsPurePower(const poly p, const ring r); 217 217 218 // returns the poly representing the integer i 219 poly p_ISet(int i, ring r); 220 218 221 /*************************************************************** 219 222 * -
Singular/polys.h
r853420 ra1ecc18 4 4 * Computer Algebra System SINGULAR * 5 5 ****************************************/ 6 /* $Id: polys.h,v 1.4 6 2000-11-23 17:34:12 obachmanExp $ */6 /* $Id: polys.h,v 1.47 2000-11-23 17:40:02 Singular Exp $ */ 7 7 /* 8 8 * ABSTRACT - all basic methods to manipulate polynomials of the … … 312 312 313 313 void pEnlargeSet(polyset *p, int length, int increment); 314 poly pISet(int i); 314 #define pISet(i) p_ISet(i,currRing) 315 315 #define pOne() pISet(1) 316 316 -
Singular/polys1.cc
r853420 ra1ecc18 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: polys1.cc,v 1.5 4 2000-11-23 17:34:13 obachmanExp $ */4 /* $Id: polys1.cc,v 1.55 2000-11-23 17:44:07 Singular Exp $ */ 5 5 6 6 /* … … 497 497 } 498 498 *p=h; 499 }500 501 /*2502 * returns a polynomial representing the integer i503 */504 poly pISet(int i)505 {506 poly rc = NULL;507 if (i!=0)508 {509 rc = pInit();510 pSetCoeff0(rc,nInit(i));511 if (nIsZero(pGetCoeff(rc)))512 pDeleteLm(&rc);513 }514 return rc;515 499 } 516 500
Note: See TracChangeset
for help on using the changeset viewer.