1
0
mirror of https://github.com/kalmarek/PropertyT.jl.git synced 2024-11-26 00:55:27 +01:00
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

View File

@ -154,9 +154,14 @@ function rankOne_projections(RG::GroupRing{G}, T::Type=Rational{Int}) where G<:G
return min_projs return min_projs
end 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, function orbit_selector(n::Integer, k::Integer,
chi::AbstractCharacter, psi::AbstractCharacter) chi::AbstractCharacter, psi::AbstractCharacter)
return Projections.DirectProdCharacter(ntuple(i -> (i <= k ? chi : psi), n)) return Projections.DirectProdCharacter(ifelsetuple(chi, psi, k, n))
end end
function rankOne_projections(RBn::GroupRing{G}, T::Type=Rational{Int}) where {G<:WreathProduct} function rankOne_projections(RBn::GroupRing{G}, T::Type=Rational{Int}) where {G<:WreathProduct}