OpenXM_contrib2/asir2000/lib/weight - diff

Return to weight CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / lib

Diff for /OpenXM_contrib2/asir2000/lib/weight between version 1.16 and 1.17

-version 1.16, 2004/01/06 09:26:11
+version 1.17, 2004/01/06 17:23:23
 Line 203  def makeret(Res,Vars,FLAG){
 Line 203  def makeret(Res,Vars,FLAG){
 Line 203  def makeret(Res,Vars,FLAG){
          ResNum=length(Res)$
          VarsNum=length(Vars)$
-         ResVec=newvect(VarsNum,Vars)$
+         ResVec=newvect(ResNum)$
-         M=0$
+         for(M=0,I=0;I<ResNum;I++){
-         for(I=0;I<ResNum;I++){
+                 if(member(Res[I][0],Vars)){
+                         ResVec[I]=Res[I][1]$
-                 for(J=0;J<VarsNum;J++)
+                         if(FLAG && type(ResVec[I])==1){
-                         if(Vars[J]==Res[I][0])
+                                 if(M==0)
-                                 break;
+                                         M=ResVec[I]$
+                                 else
+                                         if(ResVec[I]<M)
+                                                 M=ResVec[I]$
+                         }
+                 }
+         }
-                 if(J<VarsNum){
-                         ResVec[J]=TMP=Res[I][1]$
-                         if(FLAG && type(TMP)==1){
-                                 if(M==0)
-                                         M=TMP$
-                                 else
-                                         if(TMP<M)
-                                                 M=TMP$
-                         }
-                 }
-         }
          if(M!=0)
                  ResVec=ResVec/M;
          RET=newvect(VarsNum,Vars)$
          for(I=0;I<ResNum;I++){
                  for(J=0;J<VarsNum;J++)

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>