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.28 and 1.29

-version 1.28, 2004/01/10 14:51:56
+version 1.29, 2004/01/13 03:26:49
 Line 313  def makeret(Res,Vars,FLAG){
 Line 313  def makeret(Res,Vars,FLAG){
 Line 313  def makeret(Res,Vars,FLAG){
          ResVec=newvect(ResNum)$
-         for(M=0,I=0;I<ResNum;I++){
+         if(FLAG)
+                 M=0$
+         else
+                 M=-1$
+         for(I=0;I<ResNum;I++){
                  if(member(Res[I][0],Vars)){
                          ResVec[I]=Res[I][1]$
-                         if(FLAG && type(ResVec[I])==1){
+                         if(FLAG){
-                                 if(M==0)
+                                 if(type(ResVec[I])==1){
-                                         M=ResVec[I]$
+                                         if(M==0)
-                                 else
+                                                 M=ResVec[I]$
-                                         if(ResVec[I]<M)
+                                         else
-                                                 M=ResVec[I]$
+                                                 if(ResVec[I]<M)
-                         }
+                                                         M=ResVec[I]$
-                 }
+                                 }
+                                 else
+                                         M=-1$
+                         }
+                 }
          }
-         if(M!=0)
+         if(M!=-1)
                  ResVec=ResVec/M;
          RET=newvect(VarsNum,Vars)$

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