Changeset 2b2e08 in git
 Timestamp:
 Jul 19, 2013, 11:32:30 AM (10 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')
 Children:
 24d28c126eeee4f3f659e22340b915e485fbbcf1
 Parents:
 9713eea80d019296cc6a670a2d19b267b228d562
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

libpolys/polys/monomials/p_polys.cc
r9713ee r2b2e08 2170 2170 while (p!=NULL) 2171 2171 { // each monom: coeff in Q_a 2172 fraction f=(fraction)pGetCoeff(p); 2172 fraction f=(fraction)pGetCoeff(p); 2173 2173 poly c_n=NUM(f); 2174 2174 if (hzz==NULL) 2175 2176 hzz=n_Copy(pGetCoeff(c_n),r>cf>extRing>cf); 2177 2178 2175 { 2176 hzz=n_Copy(pGetCoeff(c_n),r>cf>extRing>cf); 2177 pIter(c_n); 2178 } 2179 2179 while ((c_n!=NULL)&&(!n_IsOne(hzz,r>cf>extRing>cf))) 2180 2180 { // each monom: coeff in Q … … 2195 2195 while (p!=NULL) 2196 2196 { // each monom: coeff in Q_a 2197 2197 fraction f=(fraction)pGetCoeff(p); 2198 2198 NUM(f)=p_Mult_nn(NUM(f),h,r>cf>extRing); 2199 2200 2199 p_Normalize(NUM(f),r>cf>extRing); 2200 pIter(p); 2201 2201 } 2202 2202 } … … 3622 3622 { 3623 3623 zz = (poly) z; 3624 3625 if( zz == NULL ) 3626 return NULL; 3627 3628 } else if (nCoeff_is_transExt(srcCf)) 3624 if( zz == NULL ) return NULL; 3625 } 3626 else if (nCoeff_is_transExt(srcCf)) 3629 3627 { 3630 3628 assume( !IS0(z) ); … … 3633 3631 p_Test (zz, srcExtRing); 3634 3632 3635 if( zz == NULL ) 3636 return NULL; 3637 3638 //if( !DENIS1(z) ) 3639 //WarnS("Not implemented yet: Cannot permute a rational fraction and make a polynomial out of it! Ignorring the denumerator."); 3640 } else 3641 { 3642 assume (FALSE); 3643 Werror("Number permutation is not implemented for this data yet!"); 3644 return NULL; 3645 } 3633 if( zz == NULL ) return NULL; 3634 if( !DENIS1(z) ) 3635 { 3636 if (p_IsConstant(DEN(z),srcExtRing)) 3637 { 3638 number n=pGetCoeff(DEN(z)); 3639 zz=p_Div_nn(zz,n,srcExtRing); 3640 } 3641 //else 3642 // WarnS("Not implemented yet: Cannot permute a rational fraction and make a polynomial out of it! Ignorring the denumerator."); 3643 } 3644 } 3645 else 3646 { 3647 assume (FALSE); 3648 Werror("Number permutation is not implemented for this data yet!"); 3649 return NULL; 3650 } 3646 3651 3647 3652 assume( zz != NULL ); 3648 3653 p_Test (zz, srcExtRing); 3649 3654 3650 3651 3655 nMapFunc nMap = n_SetMap(srcExtRing>cf, dstCf); 3652 3656 … … 3654 3658 3655 3659 poly qq; 3656 3657 3660 if ((par_perm == NULL) && (rPar(dst) != 0 && rVar (srcExtRing) > 0)) 3658 3661 {
Note: See TracChangeset
for help on using the changeset viewer.