kalmar
/
PropertyT.jl
mirror of https://github.com/kalmarek/PropertyT.jl.git
1
0
Fork 0
Code Issues Releases Wiki Activity

slight(?!) optimisation to Cstar_repr

This commit is contained in:
kalmar 2017-07-27 22:02:07 +02:00
parent 0a3b5b227d
commit b89598c67c
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/OrbitDecomposition.jl
View File

@ -130,14 +130,16 @@ function reconstruct_sol{T<:GroupElem, S<:AbstractArray}(mreps::Dict{T, S},
return recP return recP
end end
function Cstar_repr(x::GroupRingElem, mreps::Dict) function Cstar_repr{T}(x::GroupRingElem{T}, mreps::Dict)
k = collect(keys(mreps))[1] res = zeros(size(mreps[first(keys(mreps))])...)
res = zeros(size(mreps[k])...)
for g in parent(x).basis for g in parent(x).basis
res .+= x[g]*mreps[g] if x[g] != zero(T)
end res .+= x[g].*mreps[g]
return res end
end
return res
end end
function orthSVD(M::AbstractMatrix) function orthSVD(M::AbstractMatrix)