Changeset 0c49e2 in git


Ignore:
Timestamp:
Nov 22, 2017, 5:03:07 PM (6 years ago)
Author:
Janko Boehm <boehm@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
dd3e3b8efee4baf416fcc83fcb813388392f1edd
Parents:
3357538553567d7e2e1283a3a3a3b9d65c8d58eb
Message:
Fix weighted linear transformation.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/classify2.lib

    r335753 r0c49e2  
    541541if (printlevel>0){print("Fac "+string(fac));}
    542542//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);
     543if (deg(subst(fac[1][1],var(2),0))>1) {return(0);}
     544poly rs=subst(fac[1][1],var(1),0);
     545f1=subst(f1,var(1),var(1)/(coeff(fac[1][1],var(1)))-rs/(coeff(fac[1][1],var(1))));
    546546f1=truncateAtHighestCorner(f1);
    547547return(f1);
     
    13741374list si0;
    13751375while (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);}
    13771378  if (printlevel>0){print("S0 = "+string(S0));}
    13781379  for (i=1;i<=size(S0);i++){
    13791380     ef0[i]=exponentvector(S0[i]);
    13801381  }
    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));}
    13821384  si0=setintersection(iv,ef0);
    13831385  for (j=1;j<=size(si0);j++){
Note: See TracChangeset for help on using the changeset viewer.