kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-11-19 14:35:28 +01:00
Code Issues Releases Wiki Activity

identify trivial elt with symmetric_AutSymbol() on trivial perm

Browse Source
This commit is contained in:
kalmar 2017-01-24 12:22:42 +01:00
parent 8c1dfffa99
commit ee3be65fb2
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/automorphism_groups.jl
View File

@ -55,15 +55,16 @@ function flip_AutSymbol(j; pow::Int=1)
end end
function symmetric_AutSymbol(perm::Vector{Int}; pow::Int=1) function symmetric_AutSymbol(perm::Vector{Int}; pow::Int=1)
# if perm == collect(1:length(perm))
# return one(AutSymbol)
# end
perm = Permutation(perm) perm = Permutation(perm)
ord = order(perm) ord = order(perm)
pow = pow % ord pow = pow % ord
perm = perm^pow perm = perm^pow
if array(perm) == collect(1:length(perm))
return one(AutSymbol)
else
gen = string('σ', [Char(8320 + i) for i in array(perm)]...) gen = string('σ', [Char(8320 + i) for i in array(perm)]...)
return AutSymbol(gen, 1, :(σ($(array(perm))))) return AutSymbol(gen, 1, :(σ($(array(perm)))))
end
end end
function getperm(s::AutSymbol) function getperm(s::AutSymbol)