diff options
author | dos-reis <gdr@axiomatics.org> | 2011-10-25 03:47:29 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-10-25 03:47:29 +0000 |
commit | 2092a554d70524bc90440d96367e32c9ede28ee8 (patch) | |
tree | f60d455b9d03bfe6454bb2ae33b82114aeb3f91b /src/algebra/radix.spad.pamphlet | |
parent | 99aeb02edd1614d30e308a9267325f138617d58f (diff) | |
download | open-axiom-2092a554d70524bc90440d96367e32c9ede28ee8.tar.gz |
* algebra/perman.spad.pamphlet (Permanent): Specify type of local
variable j.
* algebra/patmatch1.spad.pamphlet (PatternMatchTools): Tidy.
* algebra/padic.spad.pamphlet: Restrict type of literal constants.
* algebra/sttf.spad.pamphlet: Likewise.
* algebra/puiseux.spad.pamphlet: Likewise.
* algebra/odealg.spad.pamphlet (SystemODESolver) [applyLodo0]:
Specify type of local variable ans.
* algebra/numtheor.spad.pamphlet (IntegerNumberTheoryFunctions): Tidy.
* algebra/naalgc.spad.pamphlet (MonadWithUnit) [rightPower]:
Specify type of local variable res.
[leftPower]: Likewise.
* algebra/lodop.spad.pamphlet (NonCommutativeOperatorDivision)
[leftLcm]: Specify type of local variable v.
* algebra/intfact.spad.pamphlet (IntegerRoots) [approxSqrt]:
Specify type of local variables old and new.
* algebra/elfuts.spad.pamphlet
(EllipticFunctionsUnivariateTaylorSeries): Restrict types of
literal constants.
* algebra/ffnb.spad.pamphlet
(FiniteFieldNormalBasisExtensionByPolynomial): Likewise.
* algebra/fnla.spad.pamphlet (FreeNilpotentLie): Likewise.
* algebra/intaux.spad.pamphlet (IntegrationResult): Likewise.
* algebra/defintef.spad.pamphlet
(ElementaryFunctionDefiniteIntegration) [checkSMP]: Specify type
in the definition of local variable n.
* algebra/combinat.spad.pamphlet (IntegerCombinatoricFunctions):
Tidy definition of local variables.
* algebra/clifford.spad.pamphlet (CliffordAlgebra): Specify type in
the definition of local variables k, exchanges, bz.
* algebra/catdef.spad.pamphlet (CartesianTensor): Specify type in the
definition of local varibles rx and offz.
Remove useless variables zol, xol, oly, and zoly.
Diffstat (limited to 'src/algebra/radix.spad.pamphlet')
-rw-r--r-- | src/algebra/radix.spad.pamphlet | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/radix.spad.pamphlet b/src/algebra/radix.spad.pamphlet index df8308ad..ae148819 100644 --- a/src/algebra/radix.spad.pamphlet +++ b/src/algebra/radix.spad.pamphlet @@ -113,7 +113,7 @@ RadixExpansion(bb): Exports == Implementation where coerce(a):RN == (wholePart a) :: RN + fractionPart a coerce(n):% == n :: RN :: % coerce(q):% == - s := 1; if negative? q then (s := -1; q := -q) + s: I := 1; if negative? q then (s := -1; q := -q) qr := divide(numer q,denom q) whole := radixInt (qr.quotient,bb) fractn := radixFrac(qr.remainder,denom q,bb) @@ -130,11 +130,11 @@ RadixExpansion(bb): Exports == Implementation where floor a == floor(a::RN) wholePart a == - n0 := 0 + n0: I := 0 for r in a.int repeat n0 := bb*n0 + r a.sgn*n0 fractionPart(a: %): Fraction Integer == - n0 := 0 + n0: I := 0 for r in a.pfx repeat n0 := bb*n0 + r null a.cyc => a.sgn*n0/bb**((#a.pfx)::NNI) @@ -188,7 +188,7 @@ RadixExpansion(bb): Exports == Implementation where if not null a.pfx then le := concat(intgroup a.pfx,le) if not null le then le := concat("." :: OUT,le) if not null a.int then le := concat(intgroup a.int,le) - else le := concat(0 :: OUT,le) + else le := concat(0@I :: OUT,le) rex := exprgroup le if negative? a.sgn then -rex else rex |