| version 1.29, 2004/01/13 03:26:49 |
version 1.30, 2004/01/14 09:29:39 |
| Line 706 def unitweight(ExpMat,Vars,PolyListNum,OneMat,FLAG){ |
|
| Line 706 def unitweight(ExpMat,Vars,PolyListNum,OneMat,FLAG){ |
|
| |
|
| if(jacobi(ExtMatColNum,NormMat1,WorkMat)){ |
if(jacobi(ExtMatColNum,NormMat1,WorkMat)){ |
| |
|
| Res=newvect(ExpMatColNum)$ |
Res=newvect(ExtMatColNum)$ |
| for(I=0;I<ExpMatColNum;I++){ |
for(I=0;I<ExtMatColNum;I++){ |
| Res[I]=newvect(2)$ |
Res[I]=newvect(2)$ |
| Res[I][0]=Vars[I]$ |
Res[I][0]=ExtVars[I]$ |
| Res[I][1]=WorkMat[ExtMatColNum-1][I]$ |
Res[I][1]=WorkMat[ExtMatColNum-1][I]$ |
| } |
} |
| |
|
![[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