summaryrefslogtreecommitdiff
path: root/2.3-1/tests/unit_tests/testLinearAlgebra/testsvd/testsvdeconomy.sci
blob: 0459c79022fd49ecad2be8e2b5810f4d332583ad (plain)
1
2
3
4
5
6
7
8
9
10
11
function testsvdeconomy()
    disp(" ** SVD Function (Singular Value Decomposition)** ")
    A = [1,2,3,11;4,5,6,12;7,8,9,13] // Matrix - A
    [u,s,vt] = svd(A,'e')               // Calling Function Sequence 
    disp("U  Matrix")           
    disp(u)                         // A = U*sigma*Vt
    disp("Sigma  Matrix")
    disp(s)
    disp(" V transpose ")
    disp(vt)
endfunction