kalmar/GroupsWithPropertyT
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fine-tune orthSVD

Browse Source
This commit is contained in:
kalmar 2017-06-21 16:44:14 +02:00
parent cc0f07bfd2
commit d2e2862ae6
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
OrbitDecomposition.jl
View File

@ -128,10 +128,9 @@ end
function orthSVD(M::AbstractMatrix) function orthSVD(M::AbstractMatrix)
M = full(M) M = full(M)
fact = svdfact(M) fact = svdfact(M)
sings = fact[:S] singv = fact[:S]
M_rank = sum(fact[:S] .> maximum(size(M))*eps(eltype(fact[:S]))) M_rank = sum(singv .> maximum(size(M))*eps(eltype(singv)))
Ufactor = fact[:U] return fact[:U][:,1:M_rank]
return Ufactor[:,1:M_rank]
end end
function Uπ_matrices(P_matrices; orth=orthSVD) function Uπ_matrices(P_matrices; orth=orthSVD)