version 1.27, 2004/01/10 14:47:01 |
version 1.28, 2004/01/10 14:51:56 |
Line 622 def leastsq(NormMat,ExpMat,Vars,FLAG,ID){ |
|
Line 622 def leastsq(NormMat,ExpMat,Vars,FLAG,ID){ |
|
TMP=map(subst,TMP,TMP0[I][0],TMP0[I][1])$ |
TMP=map(subst,TMP,TMP0[I][0],TMP0[I][1])$ |
RET0=value2(Vars,TMP)$ |
RET0=value2(Vars,TMP)$ |
if(RET0!=[]) |
if(RET0!=[]) |
RET0=wsort(RET0,Vars,RET0,1/10)$ |
RET0=wsort(RET0,Vars,RET0,ID+1/10)$ |
} |
} |
|
|
TMP=vtol(TMP1[1])$ |
TMP=vtol(TMP1[1])$ |
Line 633 def leastsq(NormMat,ExpMat,Vars,FLAG,ID){ |
|
Line 633 def leastsq(NormMat,ExpMat,Vars,FLAG,ID){ |
|
RET0=value2(Vars,TMP)$ |
RET0=value2(Vars,TMP)$ |
|
|
if(RET0!=[]) |
if(RET0!=[]) |
RET0=wsort(RET0,Vars,RET0,1/10)$ |
RET0=wsort(RET0,Vars,RET0,ID+1/10)$ |
} |
} |
|
|
RET=append(RET,RET0)$ |
RET=append(RET,RET0)$ |