Return to weight CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / lib |
version 1.12, 2003/12/08 07:18:14 | version 1.13, 2003/12/08 07:30:43 | ||
---|---|---|---|
|
|
||
VN=size(V)[0]$ | VN=size(V)[0]$ | ||
RET0=V$ | RET0=V$ | ||
for(I=2;I<1000;I++){ | for(I=1;I<1000;I++){ | ||
RET1=I*RET0$ | RET1=I*RET0$ | ||
for(J=0;J<VN;J++){ | for(J=0;J<VN;J++){ | ||
X=drint(RET1[J])$ | X=drint(RET1[J])$ |