diff options
author | dos-reis <gdr@axiomatics.org> | 2011-03-12 19:17:32 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-03-12 19:17:32 +0000 |
commit | c93e84048964194e5674e859d6bd8827010f09f6 (patch) | |
tree | 407ca23d232bf3f974550fce0175c49495ef49c0 /src/algebra/sturm.spad.pamphlet | |
parent | 52fddea19454dc2b9bcb54c6edd5a4cd4f5765a9 (diff) | |
download | open-axiom-c93e84048964194e5674e859d6bd8827010f09f6.tar.gz |
* src/algebra/: Systematically use negative? when comparing for
greater than 0.
Diffstat (limited to 'src/algebra/sturm.spad.pamphlet')
-rw-r--r-- | src/algebra/sturm.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/sturm.spad.pamphlet b/src/algebra/sturm.spad.pamphlet index d1a5b484..30c438a1 100644 --- a/src/algebra/sturm.spad.pamphlet +++ b/src/algebra/sturm.spad.pamphlet @@ -290,8 +290,8 @@ SturmHabichtPackage(R,x): T == C where epsil(int1:NNI,elt1:R,elt2:R):INT == int1 = 0 => 0 odd? int1 => 0 - ct1:INT:=if elt1 > 0 then 1 else -1 - ct2:INT:=if elt2 > 0 then 1 else -1 + ct1:INT:=if positive? elt1 then 1 else -1 + ct2:INT:=if positive? elt2 then 1 else -1 ct3:NNI:=(int1 exquo 2)::NNI ct4:INT:=(ct1*ct2)::INT ((-1)**(ct3::NNI))*ct4 |