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

faster & simpler Cstar_repr

Browse Source
This commit is contained in:
kalmarek 2017-11-08 09:29:12 +01:00
parent e636c97738
commit 2d02c98947
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/OrbitDecomposition.jl
View File

@ -187,15 +187,7 @@ function reconstruct_sol{T<:GroupElem, S<:Nemo.perm}(preps::Dict{T, S},
end end
function Cstar_repr{T}(x::GroupRingElem{T}, mreps::Dict) function Cstar_repr{T}(x::GroupRingElem{T}, mreps::Dict)
res = spzeros(size(mreps[first(keys(mreps))])...) return sum(x[g].*mreps[g] for g in parent(x).basis if x[g] != zero(T))
for g in parent(x).basis
if x[g] != zero(T)
res .+= Float64(x[g]).*mreps[g]
end
end
return res
end end
function orthSVD(M::AbstractMatrix) function orthSVD(M::AbstractMatrix)