![[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.19, 2004/01/07 06:53:11 | version 1.22, 2004/01/08 04:26:33 | ||
|---|---|---|---|
|
|
||
| RET=append(RET,TMP[1])$ | RET=append(RET,TMP[1])$ | ||
| RET=append(RET,leastsq(TMP[0],ExpMat,Vars,FLAG,3))$ | TMP0=leastsq(TMP[0],ExpMat,Vars,FLAG,3)$ | ||
| RET=append(RET,TMP0)$ | |||
| ExpMat=qsort(ExpMat,junban)$ | ExpMat=qsort(ExpMat,junban)$ | ||
| ExpMat2=[]$ | ExpMat2=[]$ | ||
|
|
||
| if(size(ExpMat)[0]!=length(ExpMat2)){ | if(size(ExpMat)[0]!=length(ExpMat2)){ | ||
| ExpMat=newvect(length(ExpMat2),ExpMat2)$ | ExpMat=newvect(length(ExpMat2),ExpMat2)$ | ||
| RET=append(RET,leastsq(0,ExpMat,Vars,FLAG,5))$ | RET=append(RET,leastsq(0,ExpMat,Vars,FLAG,5))$ | ||
| } | |||
| else{ | |||
| TMP0=map(ltov,TMP0)$ | |||
| for(I=0;I<length(TMP0);I++) | |||
| TMP0[I][0]+=2$ | |||
| TMP0=map(vtol,TMP0)$ | |||
| RET=append(RET,TMP0)$ | |||
| } | } | ||
| return RET$ | return RET$ |