This commit is contained in:
kalmarek 2019-01-28 18:40:39 +01:00
parent 5ef5b93dbd
commit 1ce892dc14
No known key found for this signature in database
GPG Key ID: 8BF1A3855328FC15
1 changed files with 6 additions and 1 deletions

View File

@ -154,9 +154,14 @@ function rankOne_projections(RG::GroupRing{G}, T::Type=Rational{Int}) where G<:G
return min_projs
end
function ifelsetuple(a,b, k, n)
x = [repeat([a], k); repeat([b], n-k)]
return tuple(x...)
end
function orbit_selector(n::Integer, k::Integer,
chi::AbstractCharacter, psi::AbstractCharacter)
return Projections.DirectProdCharacter(ntuple(i -> (i <= k ? chi : psi), n))
return Projections.DirectProdCharacter(ifelsetuple(chi, psi, k, n))
end
function rankOne_projections(RBn::GroupRing{G}, T::Type=Rational{Int}) where {G<:WreathProduct}