Changeset 9f9dd4 in git
 Timestamp:
 Apr 30, 2013, 2:24:21 AM (10 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
 Children:
 45d13f19037a5f9678287dd9d3ee1791a9a3eded
 Parents:
 ccb904bb634d071cbadd5d11141c512313839b46ec08e4a380cdd364bfcec2186fb3f303e2c825fa
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

Makefile.am
rccb904 r9f9dd4 37 37 debian/copyright \ 38 38 debian/rules \ 39 debian/singular.dirs \ 39 debian/singularbin.install \ 40 debian/singularcommon.dirs \ 41 debian/singularcommon.install \ 42 debian/singulardev.install \ 40 43 debian/source/format \ 41 44 debian/source/includebinaries \ 
libpolys/polys/ext_fields/transext.cc
rec08e4 r9f9dd4 183 183 number n=pGetCoeff(p); 184 184 n_Test(n,ntCoeffs); 185 if ((!(SR_HDL(n) & SR_INT))&&(n>s==0)) 186 /* not normalized, just do for the following test*/ 187 { 188 n_Normalize(pGetCoeff(p),ntCoeffs); 189 n=pGetCoeff(p); 190 } 185 191 if (!(SR_HDL(n) & SR_INT)) 186 192 { … … 988 994 then both the numerator and the denominator will be divided by the 989 995 GCD of the a_alpha's and the c_beta's (if this GCD is != 1), 990 (3) if 'a' is  e.g. after having performed steps (1) and (2)  of the991 form992 (sum_alpha a_alpha * t^alpha)993 994 c995 with integers a_alpha, and c != 1, then 'a' will be replaced by996 (sum_alpha a_alpha/c * t^alpha);997 996 this procedure does not alter COM(f) (this has to be done by the 998 997 calling procedure); … … 1004 1003 assume(!DENIS1(f)); 1005 1004 1006 if (!p_IsConstant(DEN(f), ntRing))1007 1005 { /* step (1); see documentation of this procedure above */ 1008 1006 p_Normalize(NUM(f), ntRing); … … 1038 1036 } 1039 1037 n_Delete(&lcmOfDenominators, ntCoeffs); 1040 if ( !p_IsConstant(DEN(f), ntRing))1038 if (DEN(f)!=NULL) 1041 1039 { /* step (2); see documentation of this procedure above */ 1042 1040 p = NUM(f); … … 1072 1070 n_Delete(&gcdOfCoefficients, ntCoeffs); 1073 1071 } 1074 }1075 if (p_IsConstant(DEN(f), ntRing) &&1076 (!n_IsOne(p_GetCoeff(DEN(f), ntRing), ntCoeffs)))1077 { /* step (3); see documentation of this procedure above */1078 number inverseOfDen = n_Invers(p_GetCoeff(DEN(f), ntRing), ntCoeffs);1079 NUM(f) = p_Mult_nn(NUM(f), inverseOfDen, ntRing);1080 n_Delete(&inverseOfDen, ntCoeffs);1081 p_Delete(&DEN(f), ntRing);1082 DEN(f) = NULL;1083 1072 } 1084 1073
Note: See TracChangeset
for help on using the changeset viewer.