remove old comments
This commit is contained in:
parent
acae7322aa
commit
0d45e885f9
@ -200,10 +200,8 @@ end
|
||||
|
||||
function orthSVD(M::AbstractMatrix)
|
||||
M = full(M)
|
||||
# matrixRank = rank(M)
|
||||
fact = svdfact(M)
|
||||
sings = fact[:S]
|
||||
# @show sings[sings.>1e-14]
|
||||
M_rank = sum(fact[:S] .> maximum(size(M))*eps(eltype(fact[:S])))
|
||||
Ufactor = fact[:U]
|
||||
return Ufactor[:,1:M_rank]
|
||||
|
Loading…
Reference in New Issue
Block a user