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

much faster Cstar_repr

Browse Source
This commit is contained in:
kalmarek 2017-10-03 14:46:05 +02:00
parent 154a66939f
commit 0fabd21e53
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/OrbitDecomposition.jl
View File

@ -188,14 +188,10 @@ function reconstruct_sol{T<:GroupElem}(preps::Dict{T, Generic.perm},
return recP
end
function Cstar_repr{T}(x::GroupRingElem{T}, mreps::Dict)
res = spzeros(size(mreps[first(keys(mreps))])...)
for g in parent(x).basis
if x[g] != zero(T)
res .+= Float64(x[g]).*mreps[g]
end
end
function Cstar_repr(x::GroupRingElem{T}, mreps::Dict) where {T}
nzindx = [i for i in eachindex(x.coeffs) if x[i] != zero(T)]
RG = parent(x)
res = sum(Float64(x[i]).*mreps[RG.basis[i]] for i in nzindx)
return res
end