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

remove old comments

Browse Source
This commit is contained in:
kalmar 2017-06-08 16:49:24 +02:00
parent acae7322aa
commit 0d45e885f9
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
OrbitDecomposition.jl
View File

@ -200,10 +200,8 @@ end
function orthSVD(M::AbstractMatrix) function orthSVD(M::AbstractMatrix)
M = full(M) M = full(M)
# matrixRank = rank(M)
fact = svdfact(M) fact = svdfact(M)
sings = fact[:S] sings = fact[:S]
# @show sings[sings.>1e-14]
M_rank = sum(fact[:S] .> maximum(size(M))*eps(eltype(fact[:S]))) M_rank = sum(fact[:S] .> maximum(size(M))*eps(eltype(fact[:S])))
Ufactor = fact[:U] Ufactor = fact[:U]
return Ufactor[:,1:M_rank] return Ufactor[:,1:M_rank]