fix: inv(flip_AutSymbol) gave incorrect results

2017-02-10 15:04:43 +01:00 · 2017-02-10 15:04:43 +01:00 · 2109f63738
parent f88d59e7e9
commit 2109f63738
1 changed files with 1 additions and 1 deletions
--- a/src/automorphism_groups.jl
+++ b/src/automorphism_groups.jl
@ -73,7 +73,7 @@ function σ(perm, pow=1)
    end
 end

-ɛ(i, pow=1) = v -> [(k==i ? v[k]^(-1*(pow % 2)) : v[k]) for k in eachindex(v)]
+ɛ(i, pow=1) = v -> [(k==i ? v[k]^(-1*(2+pow%2)%2) : v[k]) for k in eachindex(v)]

 function rmul_AutSymbol(i,j; pow::Int=1)
    gen = string('ϱ',Char(8320+i), Char(8320+j)...)