hmatrix-svdlibc-0.1.0.0: Test.hs

import Data.Packed as P
import Numeric.LinearAlgebra.SVD.SVDLIBC as SVD
import Numeric.LinearAlgebra

main = do
    let m = ident 100
        (u,s,v) = SVD.svd 50 m
    print $ s
    print $ u `mXm` diag s `mXm` trans v