[BACK]Return to weight CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / lib

Diff for /OpenXM_contrib2/asir2000/lib/weight between version 1.21 and 1.22

version 1.21, 2004/01/07 08:15:16 version 1.22, 2004/01/08 04:26:33
Line 709  def weight(PolyList,Vars,FLAG){
Line 709  def weight(PolyList,Vars,FLAG){
                 TMP0=map(ltov,TMP0)$                  TMP0=map(ltov,TMP0)$
   
                 for(I=0;I<length(TMP0);I++)                  for(I=0;I<length(TMP0);I++)
                         if(TMP0[I][0]==3)                          TMP0[I][0]+=2$
                                 TMP0[I][0]=5$  
                         else if(TMP0[I][0]==4)  
                                 TMP0[I][0]=6$  
   
                 TMP0=map(vtol,TMP0)$                  TMP0=map(vtol,TMP0)$
   
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>