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

update ortSVD to "where" syntax

Browse Source
This commit is contained in:
kalmarek 2018-08-20 03:58:09 +02:00
parent 1825cc0b3d
commit 9c674ec284
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/OrbitDecomposition.jl
View File

@ -122,7 +122,7 @@ function Cstar_repr(x::GroupRingElem{T}, mreps::Dict) where {T}
return sum(x[i].*mreps[parent(x).basis[i]] for i in findn(x.coeffs)) return sum(x[i].*mreps[parent(x).basis[i]] for i in findn(x.coeffs))
end end
function orthSVD{T}(M::AbstractMatrix{T}) function orthSVD(M::AbstractMatrix{T}) where {T<:AbstractFloat}
M = full(M) M = full(M)
fact = svdfact(M) fact = svdfact(M)
M_rank = sum(fact[:S] .> maximum(size(M))*eps(T)) M_rank = sum(fact[:S] .> maximum(size(M))*eps(T))