![[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.11, 2003/11/28 11:10:47 | version 1.12, 2003/12/08 07:18:14 | ||
|---|---|---|---|
|
|
||
| VN=size(V)[0]$ | VN=size(V)[0]$ | ||
| RET0=V$ | RET0=V$ | ||
| for(I=1;I<1000;I++){ | for(I=2;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])$ |