version 1.28, 2004/01/10 14:51:56 |
version 1.30, 2004/01/14 09:29:39 |
Line 313 def makeret(Res,Vars,FLAG){ |
|
Line 313 def makeret(Res,Vars,FLAG){ |
|
|
|
ResVec=newvect(ResNum)$ |
ResVec=newvect(ResNum)$ |
|
|
for(M=0,I=0;I<ResNum;I++){ |
if(FLAG) |
|
M=0$ |
|
else |
|
M=-1$ |
|
|
|
for(I=0;I<ResNum;I++){ |
if(member(Res[I][0],Vars)){ |
if(member(Res[I][0],Vars)){ |
ResVec[I]=Res[I][1]$ |
ResVec[I]=Res[I][1]$ |
|
|
if(FLAG && type(ResVec[I])==1){ |
if(FLAG){ |
if(M==0) |
if(type(ResVec[I])==1){ |
M=ResVec[I]$ |
if(M==0) |
else |
M=ResVec[I]$ |
if(ResVec[I]<M) |
else |
M=ResVec[I]$ |
if(ResVec[I]<M) |
} |
M=ResVec[I]$ |
} |
} |
|
else |
|
M=-1$ |
|
} |
|
} |
} |
} |
|
|
if(M!=0) |
|
|
if(M!=-1) |
ResVec=ResVec/M; |
ResVec=ResVec/M; |
|
|
RET=newvect(VarsNum,Vars)$ |
RET=newvect(VarsNum,Vars)$ |
Line 696 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]$ |
} |
} |
|
|