Changeset 4132ee in git
 Timestamp:
 Jul 23, 2015, 11:09:40 AM (8 years ago)
 Branches:
 (u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
 Children:
 47362dcbb6b4fbb3b9d6cded63720e333b4c97b3654a230847a8318a2a297f1520550f19f34a440165d72f770834146c47c12f86f49af7f3c8cef09d6a52f15f9780f7af3a0ea06d03b4376f61136261
 Parents:
 0017fdba19465a475d4ccb4e08333f7d3b95d393
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/primdec.lib
r0017fd r4132ee 3413 3413 3414 3414 ideal jkeep=@j; 3415 if( ordstr(@P)[1]=="w")3415 if((ordstr(@P)[1]=="w")&&(size(ringlist(@P)[3])==2)) // weighted ordering 3416 3416 { 3417 3417 list gnir_l=ringlist(gnir); 
libpolys/polys/ext_fields/transext.cc
r0017fd r4132ee 230 230 } 231 231 232 poly gcd = singclap_gcd_r( num, den, ntRing );233 234 if( !p_IsOne(gcd, ntRing) )235 {236 Print("ERROR in %s:%d: 1 != GCD between num. & den. poly\n",f,l);237 Print("GCD: "); p_Write(gcd, ntRing);238 Print("NUM: "); p_Write(num, ntRing);239 Print("DEN: "); p_Write(den, ntRing);240 return FALSE;241 }242 243 p_Delete( &gcd, ntRing );244 232 if (COM(t)==0) 233 { 234 poly gcd = singclap_gcd_r( num, den, ntRing ); 235 if( !p_IsOne(gcd, ntRing) ) 236 { 237 Print("ERROR in %s:%d: 1 != GCD between num. & den. poly\n",f,l); 238 Print("GCD: "); p_Write(gcd, ntRing); 239 Print("NUM: "); p_Write(num, ntRing); 240 Print("DEN: "); p_Write(den, ntRing); 241 return FALSE; 242 } 243 p_Delete( &gcd, ntRing ); 244 } 245 245 return TRUE; 246 246 … … 1313 1313 pIter(h); 1314 1314 } while(h!=NULL); 1315 1315 p_ExpVectorDiff(den_f,den_f,den_f,ntRing); 1316 1316 break; 1317 1317 } … … 1435 1435 to be != 1. */ 1436 1436 if (p_IsConstant(DEN(f), ntRing) && 1437 1437 n_IsOne(p_GetCoeff(DEN(f), ntRing), ntCoeffs)) 1438 1438 { 1439 1439 /* DEN(f) = 1 needs to be represented by NULL! */ … … 1458 1458 } 1459 1459 } 1460 p_Delete(&pGcd, ntRing); 1460 1461 COM(f) = 0; 1461 p_Delete(&pGcd, ntRing);1462 1462 1463 1463 if( DEN(f) != NULL ) 1464 { 1464 1465 if( !n_GreaterZero(pGetCoeff(DEN(f)), ntCoeffs) ) 1465 1466 { … … 1474 1475 } 1475 1476 } 1477 } 1476 1478 ntTest(a); // !!!! 1477 1479 }
Note: See TracChangeset
for help on using the changeset viewer.