diff options
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 |