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