diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-06 03:14:30 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-06 03:14:30 +0000 |
commit | d14fd317bc282ba83762209a48632087e5036ebf (patch) | |
tree | f13bc1e0e91ab9592f7fdfbc197f1ad49cab69e2 /src/algebra/multsqfr.spad.pamphlet | |
parent | c32856c7077d6220b6785b1e6e819b41ea4244be (diff) | |
download | open-axiom-d14fd317bc282ba83762209a48632087e5036ebf.tar.gz |
* interp/metalex.lisp (KEYWORDS): Include try.
* algebra/numode.spad.pamphlet: Change field try to tryValue.
* algebra/multsqfr.spad.pamphlet: Change identifier try to tryCount.
Diffstat (limited to 'src/algebra/multsqfr.spad.pamphlet')
-rw-r--r-- | src/algebra/multsqfr.spad.pamphlet | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/multsqfr.spad.pamphlet b/src/algebra/multsqfr.spad.pamphlet index b05b4bb9..7114c0f6 100644 --- a/src/algebra/multsqfr.spad.pamphlet +++ b/src/algebra/multsqfr.spad.pamphlet @@ -226,7 +226,7 @@ MultivariateSquareFree (E,OV,R,P) : C == T where intChoose(f:SUP,lvar:List(OV),ltry:List List R):Choice == degf:= degree f - try:NNI:=0 + tryCount:NNI:=0 nvr:=#lvar range:Z:=10 lfact1:List(FFE):=[] @@ -251,17 +251,17 @@ MultivariateSquareFree (E,OV,R,P) : C == T where d0:=compdegd lfact ---- inizialize lfact1 ---- - try=0 => + tryCount=0 => f1:=f0 lfact1:=lfact ctf1:=ctf lval1:=lval d1:=d0 - try:=1 + tryCount:=1 d0=d1 => return [f1,lval1,lfact1,ctf1]$Choice d0 < d1 => - try:=1 + tryCount:=1 f1:=f0 lfact1:=lfact ctf1:=ctf |