| version 1.20, 2004/01/07 08:11:51 |
version 1.23, 2004/01/08 06:48:32 |
| Line 565 def leastsq(NormMat,ExpMat,Vars,FLAG,ID){ |
|
| Line 565 def leastsq(NormMat,ExpMat,Vars,FLAG,ID){ |
|
| return RET$ |
return RET$ |
| } |
} |
| else{ |
else{ |
| RET=append(RET,[[ID,Vars,vtol(TMP1[1]*1.0)]])$ |
RET=append(RET,[[ID,Vars,vtol(TMP1[1])]])$ |
| return RET$ |
return RET$ |
| } |
} |
| } |
} |
| Line 707 def weight(PolyList,Vars,FLAG){ |
|
| Line 707 def weight(PolyList,Vars,FLAG){ |
|
| } |
} |
| else{ |
else{ |
| TMP0=map(ltov,TMP0)$ |
TMP0=map(ltov,TMP0)$ |
| TMP0=ltov(TMP0)$ |
|
| |
|
| for(I=0;I<length(TMP0);I++) |
for(I=0;I<length(TMP0);I++) |
| if(TMP0[I][0]==3) |
TMP0[I][0]+=2$ |
| TMP0[I][0]=5$ |
|
| else if(TMP0[I][0]==4) |
|
| TMP0[I][0]=6$ |
|
| |
|
| TMP0=map(vtol,TMP0)$ |
TMP0=map(vtol,TMP0)$ |
| TMP0=vtol(TMP0)$ |
|
| |
|
| RET=append(RET,TMP0)$ |
RET=append(RET,TMP0)$ |
| } |
} |
![[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