[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.10 and 1.12

version 1.10, 2003/11/27 11:25:00 version 1.12, 2003/12/08 07:18:14
Line 249  def roundret(V){
Line 249  def roundret(V){
         VN=size(V)[0]$          VN=size(V)[0]$
   
         RET0=V$          RET0=V$
         for(I=1;I<1000;I++){          for(I=2;I<1000;I++){
                 RET1=I*RET0$                  RET1=I*RET0$
                 for(J=0;J<VN;J++){                  for(J=0;J<VN;J++){
                         X=drint(RET1[J])$                          X=drint(RET1[J])$
Line 389  def qcheck(PolyList,Vars,FLAG){
Line 389  def qcheck(PolyList,Vars,FLAG){
                                 return RET$                                  return RET$
                         }                          }
                         else{                          else{
                                 RET=append(RET,[[Vars,ResVars[1]]])$                                  RET=append(RET,[[Vars,vtol(ResVars[1])]])$
                                 return RET$                                  return RET$
                         }                          }
                 }                  }
Line 460  def leastsq(NormMat,ExpMat,Vars,FLAG){
Line 460  def leastsq(NormMat,ExpMat,Vars,FLAG){
                         return RET$                          return RET$
                 }                  }
                 else{                  else{
                         RET=append(RET,[[Vars,TMP1[1]*1.0]])$                          RET=append(RET,[[Vars,vtol(TMP1[1]*1.0)]])$
                         return RET$                          return RET$
                 }                  }
         }          }
Line 575  def weightr(ExpMat,Vars,PolyListNum,OneMat,FLAG){
Line 575  def weightr(ExpMat,Vars,PolyListNum,OneMat,FLAG){
                                         map(drint,TMP1[1]*1.0),FLAG))$                                          map(drint,TMP1[1]*1.0),FLAG))$
                         }                          }
                         else{                          else{
                                 RET=append(RET,[[Vars,TMP1[1]*1.0]])$                                  RET=append(RET,[[Vars,vtol(TMP1[1]*1.0)]])$
                         }                          }
                 }                  }
   
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>