[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.35 and 1.36

version 1.35, 2004/05/06 02:28:07 version 1.36, 2004/05/06 02:55:39
Line 780  def leastsq(NormMat,ExpMat,Vars,FLAG,ID){
Line 780  def leastsq(NormMat,ExpMat,Vars,FLAG,ID){
                         RET=append(RET,[[ID,Vars,vtol(TMP1[1])]])$                          RET=append(RET,[[ID,Vars,vtol(TMP1[1])]])$
         }          }
   
         return RET$          return [NormMat0,RET]$
 }  }
   
 def weight(PolyList,Vars,FLAG){  def weight(PolyList,Vars,FLAG){
Line 828  def weight(PolyList,Vars,FLAG){
Line 828  def weight(PolyList,Vars,FLAG){
                 RET=append(RET,TMP[1])$                  RET=append(RET,TMP[1])$
         else{          else{
                 TMP=leastsq(0,ExpMat,Vars,FLAG,7)$                  TMP=leastsq(0,ExpMat,Vars,FLAG,7)$
                 RET=append(RET,TMP)$                  RET=append(RET,TMP[1])$
         }          }
   
         ExpMat=qsort(ExpMat,junban)$          ExpMat=qsort(ExpMat,junban)$
Line 845  def weight(PolyList,Vars,FLAG){
Line 845  def weight(PolyList,Vars,FLAG){
                         RET=append(RET,TMP[1])$                          RET=append(RET,TMP[1])$
                 else{                  else{
                         TMP=leastsq(0,ExpMat,Vars,FLAG,9)$                          TMP=leastsq(0,ExpMat,Vars,FLAG,9)$
                         RET=append(RET,TMP)$                          RET=append(RET,TMP[1])$
                 }                  }
         }          }
         else{          else{
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>