kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-09-13 08:25:39 +02:00
Code Issues Releases Wiki Activity

update change_pow to the new AutSymbol

Browse Source
This commit is contained in:
kalmarek 2017-10-27 16:14:28 +02:00
parent 329e481d24
commit 5c14edc53c
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/AutGroup.jl
View File

@ -209,22 +209,20 @@ function change_pow(s::AutSymbol, n::Int)
if n == 0 if n == 0
return id_autsymbol() return id_autsymbol()
end end
symbol = s.ex.args[1] symbol = s.typ
if symbol == :ɛ if isa(symbol, FlipAut)
return flip_autsymbol(s.ex.args[2], pow=n) return flip_autsymbol(symbol.i, pow=n)
elseif symbol == :σ elseif isa(symbol, PermAut)
G = PermutationGroup(length(s.ex.args[2])) return perm_autsymbol(symbol.p, pow=n)
return perm_autsymbol(G(s.ex.args[2]), pow=n) elseif isa(symbol, RTransvect)
elseif symbol == :ϱ return rmul_autsymbol(symbol.i, symbol.j, pow=n)
s.ex.args[2:end-1] elseif isa(symbol, LTransvect)
return rmul_autsymbol(s.ex.args[2:end-1]..., pow=n) return lmul_autsymbol(symbol.i, symbol.j, pow=n)
elseif symbol == :λ elseif isa(symbol, Identity)
return lmul_autsymbol(s.ex.args[2:end-1]..., pow=n)
elseif symbol == :id
return s return s
else else
warn("Changing power of an unknown type of symbol! $s") warn("Changing power of an unknown type of symbol! $s")
return AutSymbol(s.str, n, s.ex) return AutSymbol(s.str, n, s.typ)
end end
end end