Changeset 0c49e2 in git
- Timestamp:
- Nov 22, 2017, 5:03:07 PM (6 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- dd3e3b8efee4baf416fcc83fcb813388392f1edd
- Parents:
- 3357538553567d7e2e1283a3a3a3b9d65c8d58eb
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/classify2.lib
r335753 r0c49e2 541 541 if (printlevel>0){print("Fac "+string(fac));} 542 542 //subst(fac[1][1],y,0); 543 if (deg(subst(fac[1][1], y,0))>1) {return(0);}544 poly rs=subst(fac[1][1], x,0);545 f1=subst(f1, x,x-rs);543 if (deg(subst(fac[1][1],var(2),0))>1) {return(0);} 544 poly rs=subst(fac[1][1],var(1),0); 545 f1=subst(f1,var(1),var(1)/(coeff(fac[1][1],var(1)))-rs/(coeff(fac[1][1],var(1)))); 546 546 f1=truncateAtHighestCorner(f1); 547 547 return(f1); … … 1374 1374 list si0; 1375 1375 while (1==1) { 1376 NP=newtonPolygon(f);if (printlevel>0){print("Newton polygon ");print(NP);} 1376 NP=newtonPolygon(f); 1377 if (printlevel>0){print("Newton polygon ");print(NP);} 1377 1378 if (printlevel>0){print("S0 = "+string(S0));} 1378 1379 for (i=1;i<=size(S0);i++){ 1379 1380 ef0[i]=exponentvector(S0[i]); 1380 1381 } 1381 iv=innerVertices(NP);if (printlevel>0){print("inner vertices "+string(iv)+" exponents "+string(ef0));} 1382 iv=innerVertices(NP); 1383 if (printlevel>0){print("inner vertices "+string(iv)+" exponents "+string(ef0));} 1382 1384 si0=setintersection(iv,ef0); 1383 1385 for (j=1;j<=size(si0);j++){
Note: See TracChangeset
for help on using the changeset viewer.