[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.15

version 1.10, 2003/11/27 11:25:00 version 1.15, 2004/01/06 08:38:05
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 450  def leastsq(NormMat,ExpMat,Vars,FLAG){
Line 450  def leastsq(NormMat,ExpMat,Vars,FLAG){
         if(nonposdegchk(Res)){          if(nonposdegchk(Res)){
                 TMP1=makeret(Res,Vars,1)$                  TMP1=makeret(Res,Vars,1)$
                 if(TMP1[0]==0){                  if(TMP1[0]==0){
                         TMP=roundret(TMP1[1]*1.0)$                          TMP=roundret(TMP1[1])$
                         if(TMP!=[])                          if(TMP!=[])
                                 RET=append(RET,wsort(TMP1[1],Vars,TMP,FLAG))$                                  RET=append(RET,wsort(TMP1[1],Vars,TMP,FLAG))$
   
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 559  def weightr(ExpMat,Vars,PolyListNum,OneMat,FLAG){
Line 559  def weightr(ExpMat,Vars,PolyListNum,OneMat,FLAG){
                         if(member(Rea[I],Vars))                          if(member(Rea[I],Vars))
                                 TMP=cons(Rea[I],TMP)$                                  TMP=cons(Rea[I],TMP)$
   
                 TMP=cons(ExtVars[F],TMP)$                  if(member(ExtVars[F],Vars))
                           TMP=cons(ExtVars[F],TMP)$
   
                 Res=getgcd(Res,TMP)$                  Res=getgcd(Res,TMP)$
   
                 if(nonposdegchk(Res)){                  if(nonposdegchk(Res)){
   
                         TMP1=makeret(Res,Vars,1)$                          TMP1=makeret(Res,Vars,1)$
                         if(TMP1[0]==0){                          if(TMP1[0]==0){
                                 TMP=roundret(TMP1[1]*1.0)$                                  TMP=roundret(TMP1[1])$
                                 if(TMP!=[])                                  if(TMP!=[])
                                         RET=append(RET,wsort(TMP1[1],Vars,                                          RET=append(RET,wsort(TMP1[1],Vars,
                                                 TMP,FLAG))$                                                  TMP,FLAG))$
Line 575  def weightr(ExpMat,Vars,PolyListNum,OneMat,FLAG){
Line 577  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.15
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>