Changeset 521349 in git for kernel/polys.cc
 Timestamp:
 Jul 7, 2008, 3:18:57 PM (15 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
 Children:
 b547dc098c643d2e47143c81e0a51e711b5b10ff
 Parents:
 d351d85cc90334b89306247371fbd1761ed311b7
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

kernel/polys.cc
rd351d8 r521349 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: polys.cc,v 1. 29 20080624 16:25:02wienand Exp $ */4 /* $Id: polys.cc,v 1.30 20080707 13:18:57 wienand Exp $ */ 5 5 6 6 /* … … 720 720 void pNorm(poly p1) 721 721 { 722 poly h;723 number k, c;724 722 #ifdef HAVE_RINGS 725 723 if (rField_is_Ring(currRing)) 726 724 { 727 if ((p1!=NULL) && rField_has_Units(currRing)) 728 { 729 k = nGetUnit(pGetCoeff(p1)); 730 if (!nIsOne(k)) 731 { 732 k = nInvers(k); 733 c = nMult(pGetCoeff(p1), k); 734 nDelete(&pGetCoeff(p1)); 735 pSetCoeff0(p1, c); 736 h = pNext(p1); 737 while (h != NULL) 738 { 739 c = nMult(pGetCoeff(h), k); 740 nDelete(&pGetCoeff(h)); 741 pSetCoeff0(h, c); 742 pIter(h); 743 } 744 } 745 nDelete(&k); 746 } 747 return; 725 Werror("pNorm not possible in the case of coefficient rings."); 748 726 } 749 727 else … … 756 734 return; 757 735 } 736 poly h; 758 737 if (!nIsOne(pGetCoeff(p1))) 759 738 { 739 number k, c; 760 740 nNormalize(pGetCoeff(p1)); 761 741 k = pGetCoeff(p1);
Note: See TracChangeset
for help on using the changeset viewer.