1
0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-12-24 18:05:27 +01:00

update change_pow to the new AutSymbol

This commit is contained in:
kalmarek 2017-10-27 16:14:28 +02:00
parent 329e481d24
commit 5c14edc53c

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