Changeset 26ae12 in git for Singular/polys1.cc
- Timestamp:
- May 19, 1998, 11:02:40 AM (26 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 565a96ad124ccea57f357a4da2ded5764304f8cf
- Parents:
- b1fa42d7299399bfcfb6cef7291df79a2a381178
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/polys1.cc
rb1fa42 r26ae12 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: polys1.cc,v 1.1 3 1998-04-24 16:39:25 SingularExp $ */4 /* $Id: polys1.cc,v 1.14 1998-05-19 09:02:38 obachman Exp $ */ 5 5 6 6 /* … … 1238 1238 { 1239 1239 /* p1 and p2 are non-NULL, so we may use pComp0 instead of pComp */ 1240 if ( pComp0(p1,p2) != 0)1240 if (! pEqual(p1, p2)) 1241 1241 { 1242 1242 return FALSE; … … 1266 1266 while ((p1 != NULL) /*&& (p2 != NULL)*/) 1267 1267 { 1268 for (i=1; i<=pVariables; i++) 1269 { 1270 if (pGetExp(p1,i)!=pGetExp(p2,i)) 1271 { 1268 if ( ! pLmEqual(p1, p2)) 1269 { 1272 1270 nDelete(&n); 1273 1271 return FALSE; 1274 }1275 }1276 if (pGetComp(p1) != pGetComp(p2))1277 {1278 nDelete(&n);1279 return FALSE;1280 1272 } 1281 1273 if (!nEqual(pGetCoeff(p1),nn=nMult(pGetCoeff(p2),n))) … … 1292 1284 return TRUE; 1293 1285 } 1294 //{1295 // number m=NULL,n=NULL;1296 //1297 // while ((p1 != NULL) && (p2 != NULL))1298 // {1299 // if (pComp(p1,p2) != 0)1300 // {1301 // if (n!=NULL) nDelete(&n);1302 // return FALSE;1303 // }1304 // if (n == NULL)1305 // {1306 // n=nDiv(pGetCoeff(p1),pGetCoeff(p2));1307 // }1308 // else1309 // {1310 // m=nDiv(pGetCoeff(p1),pGetCoeff(p2));1311 // if (! nEqual(m,n))1312 // {1313 // nDelete(&n);1314 // nDelete(&m);1315 // return FALSE;1316 // }1317 // nDelete(&m);1318 // }1319 // p1=pNext(p1);1320 // p2=pNext(p2);1321 // }1322 // nDelete(&n);1323 // //if (p1 != p2)1324 // // return FALSE;1325 // //else1326 // // return TRUE;1327 // return (p1==p2);1328 //}
Note: See TracChangeset
for help on using the changeset viewer.