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/perman.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/perman.spad.pamphlet')
-rw-r--r-- | src/algebra/perman.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/perman.spad.pamphlet b/src/algebra/perman.spad.pamphlet index b45620a4..73e20b31 100644 --- a/src/algebra/perman.spad.pamphlet +++ b/src/algebra/perman.spad.pamphlet @@ -164,7 +164,7 @@ Permanent(n : PositiveInteger, R : Ring with commutative("*")): vv : V V I := firstSubsetGray(n)$GRAY -- For the meaning of the elements of vv, see GRAY. w : V R := new(n,0$R) - j := 1 -- Will be the number of the element changed in subset + j: I := 1 -- Will be the number of the element changed in subset while j ~= (n+1) repeat -- we sum over all subsets of (1,...,n) sgn := -sgn b := sgn @@ -209,7 +209,7 @@ Permanent(n : PositiveInteger, R : Ring with commutative("*")): for i in 1..n repeat b := b * w.i a := a+b - j := 1 -- Will be the number of the element changed in subset + j: I := 1 -- Will be the number of the element changed in subset while j ~= n repeat -- we sum over all subsets of (1,...,n-1) sgn := -sgn b := sgn @@ -255,7 +255,7 @@ Permanent(n : PositiveInteger, R : Ring with commutative("*")): for i in 1..n repeat b := b *$R w.i a := a +$R b - j := 1 -- Will be the number of the element changed in subset + j: I := 1 -- Will be the number of the element changed in subset while j ~= n repeat -- we sum over all subsets of (1,...,n-1) sgn := -sgn b := sgn |