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

faster version of reconstruct_sol

Browse Source
This commit is contained in:
kalmar 2017-06-23 13:38:45 +02:00
parent fd32ddbe82
commit ff4f9e7857
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/OrbitDecomposition.jl
View File

@ -114,17 +114,20 @@ function matrix_reps{T<:GroupElem}(G::Group, S::Vector{T}, AutS::Group, radius::
return mreps return mreps
end end
function reconstruct_sol(mreps::Dict, Us::Vector, Ps::Vector, dims::Vector) function reconstruct_sol{T<:GroupElem, S<:AbstractArray}(mreps::Dict{T, S},
recP = zeros(size(Us[1],1), size(Us[1],1)) Us::Vector, Ps::Vector, dims::Vector)
for g in keys(mreps) n = size(Us[1],1)
for π in 1:endof(Us) recP = zeros(Float64, (n,n))
recP .+= dims[π] .* mreps[g]*transform(Us[π]', Ps[π])*mreps[inv(g)] Ust = transpose.(Us)
end for g in keys(mreps)
end A, B = mreps[g], mreps[inv(g)]
recP .*= 1/length(collect(keys(mreps))) for π in 1:length(Us)
recP .+= dims[π].* (A * Us[π]*Ps[π]*Ust[π] * B)
return recP end
end
recP .*= 1/length(keys(mreps))
return recP
end end
function Cstar_repr(x::GroupRingElem, mreps) function Cstar_repr(x::GroupRingElem, mreps)