diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-14 03:30:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-14 03:30:48 +0000 |
| commit | 775f2c3cca11ab64df713afb7f35363afe5d4ce0 (patch) | |
| tree | aec69a68ef31a45f12368475b501841bada1f010 /src/algebra/lingrob.spad.pamphlet | |
| parent | 1734e62de427defcd090a95bc8b3b879c67d3fbf (diff) | |
| download | open-axiom-775f2c3cca11ab64df713afb7f35363afe5d4ce0.tar.gz | |
* interp/compiler.boot (compRepeatOrCollect): Set $loopKind directly.
(complainIfShadowing): Don't complain when collecting.
* algebra/contfrac.spad.pamphlet: Remove capsule-level declaration
of local variables.
* algebra/cycles.spad.pamphlet: Likewise.
* algebra/cyclotom.spad.pamphlet: Likewise.
* algebra/ddfact.spad.pamphlet: Likewise.
* algebra/fortpak.spad.pamphlet: Likewise.
* algebra/lingrob.spad.pamphlet: Likewise.
* algebra/numode.spad.pamphlet: Likewise.
* algebra/numquad.spad.pamphlet: Likewise.
* algebra/out.spad.pamphlet: Likewise.
* algebra/perman.spad.pamphlet: Likewise.
* algebra/view2D.spad.pamphlet: Likewise.
Diffstat (limited to 'src/algebra/lingrob.spad.pamphlet')
| -rw-r--r-- | src/algebra/lingrob.spad.pamphlet | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/algebra/lingrob.spad.pamphlet b/src/algebra/lingrob.spad.pamphlet index 95284786..a3018052 100644 --- a/src/algebra/lingrob.spad.pamphlet +++ b/src/algebra/lingrob.spad.pamphlet @@ -128,10 +128,10 @@ LinGroebnerPackage(lv,F) : C == T ofirstmon:=firstmon orecfmon := recfmon lm:=zero(2*ndim+1) - j : Integer for j in 1..ndim repeat lm(j):=veccoef(j) lm(ndim+i):=recfmon.mult lm := reduceRow(linmat, lm, i-1, pivots) + j : Integer if i=ndim1 then j:=ndim1 else j:=1 @@ -179,11 +179,10 @@ LinGroebnerPackage(lv,F) : C == T omult := (omult exquo cc)::F veccoef:VF:=coord(f,algBasis) lm:=zero(2*ndim+1) - j : Integer for j in 1..ndim repeat lm(j) := veccoef(j) lm(ndim+i):=omult lm := reduceRow(linmat, lm, i-1, pivots) - j:=1 + j: Integer :=1 while lm(j)=0 and j<ndim1 repeat j:=j+1 if j=ndim1 then return g:HDPoly:=0 @@ -287,11 +286,10 @@ LinGroebnerPackage(lv,F) : C == T ofirstmon:=firstmon orecfmon := recfmon lm:=zero(2*ndim+1) - j : Integer for j in 1..ndim repeat lm(j):=veccoef(j) lm(ndim+i):=recfmon.mult lm := reduceRow(linmat, lm, i-1, pivots) - j:=1 + j: Integer :=1 while lm(j) = 0 and j<ndim1 repeat j:=j+1 if j=ndim1 then cordlist:List F:=[lm(j) for j in ndim1..ndim1+(#nBasis)] |