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