version 1.10, 2003/11/27 11:25:00 |
version 1.15, 2004/01/06 08:38:05 |
Line 389 def qcheck(PolyList,Vars,FLAG){ |
|
Line 389 def qcheck(PolyList,Vars,FLAG){ |
|
return RET$ |
return RET$ |
} |
} |
else{ |
else{ |
RET=append(RET,[[Vars,ResVars[1]]])$ |
RET=append(RET,[[Vars,vtol(ResVars[1])]])$ |
return RET$ |
return RET$ |
} |
} |
} |
} |
Line 450 def leastsq(NormMat,ExpMat,Vars,FLAG){ |
|
Line 450 def leastsq(NormMat,ExpMat,Vars,FLAG){ |
|
if(nonposdegchk(Res)){ |
if(nonposdegchk(Res)){ |
TMP1=makeret(Res,Vars,1)$ |
TMP1=makeret(Res,Vars,1)$ |
if(TMP1[0]==0){ |
if(TMP1[0]==0){ |
TMP=roundret(TMP1[1]*1.0)$ |
TMP=roundret(TMP1[1])$ |
if(TMP!=[]) |
if(TMP!=[]) |
RET=append(RET,wsort(TMP1[1],Vars,TMP,FLAG))$ |
RET=append(RET,wsort(TMP1[1],Vars,TMP,FLAG))$ |
|
|
Line 460 def leastsq(NormMat,ExpMat,Vars,FLAG){ |
|
Line 460 def leastsq(NormMat,ExpMat,Vars,FLAG){ |
|
return RET$ |
return RET$ |
} |
} |
else{ |
else{ |
RET=append(RET,[[Vars,TMP1[1]*1.0]])$ |
RET=append(RET,[[Vars,vtol(TMP1[1]*1.0)]])$ |
return RET$ |
return RET$ |
} |
} |
} |
} |
Line 559 def weightr(ExpMat,Vars,PolyListNum,OneMat,FLAG){ |
|
Line 559 def weightr(ExpMat,Vars,PolyListNum,OneMat,FLAG){ |
|
if(member(Rea[I],Vars)) |
if(member(Rea[I],Vars)) |
TMP=cons(Rea[I],TMP)$ |
TMP=cons(Rea[I],TMP)$ |
|
|
TMP=cons(ExtVars[F],TMP)$ |
if(member(ExtVars[F],Vars)) |
|
TMP=cons(ExtVars[F],TMP)$ |
|
|
Res=getgcd(Res,TMP)$ |
Res=getgcd(Res,TMP)$ |
|
|
if(nonposdegchk(Res)){ |
if(nonposdegchk(Res)){ |
|
|
TMP1=makeret(Res,Vars,1)$ |
TMP1=makeret(Res,Vars,1)$ |
if(TMP1[0]==0){ |
if(TMP1[0]==0){ |
TMP=roundret(TMP1[1]*1.0)$ |
TMP=roundret(TMP1[1])$ |
if(TMP!=[]) |
if(TMP!=[]) |
RET=append(RET,wsort(TMP1[1],Vars, |
RET=append(RET,wsort(TMP1[1],Vars, |
TMP,FLAG))$ |
TMP,FLAG))$ |
Line 575 def weightr(ExpMat,Vars,PolyListNum,OneMat,FLAG){ |
|
Line 577 def weightr(ExpMat,Vars,PolyListNum,OneMat,FLAG){ |
|
map(drint,TMP1[1]*1.0),FLAG))$ |
map(drint,TMP1[1]*1.0),FLAG))$ |
} |
} |
else{ |
else{ |
RET=append(RET,[[Vars,TMP1[1]*1.0]])$ |
RET=append(RET,[[Vars,vtol(TMP1[1]*1.0)]])$ |
} |
} |
} |
} |
|
|