![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to weight CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / lib|
Return to weight CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / lib |
| version 1.34, 2004/05/05 13:15:01 | version 1.35, 2004/05/06 02:28:07 | ||
|---|---|---|---|
|
|
||
| if(TMP[1]!=[]) | if(TMP[1]!=[]) | ||
| RET=append(RET,TMP[1])$ | RET=append(RET,TMP[1])$ | ||
| else{ | else{ | ||
| RET=append(RET,leastsq(0,ExpMat,Vars,FLAG,7))$ | TMP=leastsq(0,ExpMat,Vars,FLAG,7)$ | ||
| RET=append(RET,TMP)$ | |||
| } | } | ||
| ExpMat=qsort(ExpMat,junban)$ | ExpMat=qsort(ExpMat,junban)$ | ||
|
|
||
| if(TMP[1]!=[]) | if(TMP[1]!=[]) | ||
| RET=append(RET,TMP[1])$ | RET=append(RET,TMP[1])$ | ||
| else{ | else{ | ||
| RET=append(RET,leastsq(0,ExpMat,Vars,FLAG,9))$ | TMP=leastsq(0,ExpMat,Vars,FLAG,9)$ | ||
| RET=append(RET,TMP)$ | |||
| } | } | ||
| } | } | ||
| else{ | else{ | ||
| TMP0=map(ltov,TMP0)$ | TMP=map(ltov,TMP[1])$ | ||
| for(I=0;I<length(TMP0);I++) | for(I=0;I<length(TMP);I++){ | ||
| if(TMP0[I][0]==3) | if(TMP[I][0]==3) | ||
| TMP0[I][0]=5$ | TMP[I][0]=5$ | ||
| else if(TMP0[I][0]==4) | else if(TMP[I][0]==4) | ||
| TMP0[I][0]=6$ | TMP[I][0]=6$ | ||
| else if(TMP[I][0]==7) | |||
| TMP[I][0]=9$ | |||
| else if(TMP[I][0]==8) | |||
| TMP[I][0]=10$ | |||
| } | |||
| TMP0=map(vtol,TMP0)$ | TMP=map(vtol,TMP)$ | ||
| RET=append(RET,TMP0)$ | RET=append(RET,TMP)$ | ||
| } | } | ||
| return RET$ | return RET$ |