diff options
| author | Sandeep Gupta | 2017-07-07 13:09:29 +0530 |
|---|---|---|
| committer | Sandeep Gupta | 2017-07-07 13:09:29 +0530 |
| commit | 59190035a74ebad7543660d54fa4e89cf24d8e6f (patch) | |
| tree | 89beb7cdfae963fe1ab2b21c1d9b581a4010aba3 /tests/unit_tests/testLinearAlgebra/test_svd | |
| parent | aa250753b439916e4df235839e9266f058632f80 (diff) | |
| download | scilab2c-59190035a74ebad7543660d54fa4e89cf24d8e6f.tar.gz scilab2c-59190035a74ebad7543660d54fa4e89cf24d8e6f.tar.bz2 scilab2c-59190035a74ebad7543660d54fa4e89cf24d8e6f.zip | |
Demo-updated
Diffstat (limited to 'tests/unit_tests/testLinearAlgebra/test_svd')
5 files changed, 47 insertions, 0 deletions
diff --git a/tests/unit_tests/testLinearAlgebra/test_svd/testsvd.sci b/tests/unit_tests/testLinearAlgebra/test_svd/testsvd.sci new file mode 100644 index 00000000..c5da4cd3 --- /dev/null +++ b/tests/unit_tests/testLinearAlgebra/test_svd/testsvd.sci @@ -0,0 +1,6 @@ +function testsvd() + disp(" ** SVD Function (Singular Value Decomposition)** ") + A = [1,2,3,11;4,5,6,12;7,8,9,13] // Matrix - A + s = svd(A) // Calling Function Sequence + disp(s) +endfunction diff --git a/tests/unit_tests/testLinearAlgebra/test_svd/testsvdeconomy.sci b/tests/unit_tests/testLinearAlgebra/test_svd/testsvdeconomy.sci new file mode 100644 index 00000000..0459c790 --- /dev/null +++ b/tests/unit_tests/testLinearAlgebra/test_svd/testsvdeconomy.sci @@ -0,0 +1,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 diff --git a/tests/unit_tests/testLinearAlgebra/test_svd/testsvdim.sci b/tests/unit_tests/testLinearAlgebra/test_svd/testsvdim.sci new file mode 100644 index 00000000..16633cce --- /dev/null +++ b/tests/unit_tests/testLinearAlgebra/test_svd/testsvdim.sci @@ -0,0 +1,6 @@ +// Function double_complex - test data. +function svdim() + b = [ (5.91+5.69*%i),(3.15-4.08*%i),(4.89+4.20*%i),(7.09+2.72*%i);(1.89+3.27*%i),(4.10+6.70*%i),(7.78+4.06*%i),(4.57+2.07*%i);(3.28+3.84*%i),(-0.79+7.21*%i),(3.88+3.30*%i),(3.84+1.19*%i)] + s = svd(b) + disp(s) +endfunction diff --git a/tests/unit_tests/testLinearAlgebra/test_svd/testsvdrank.sci b/tests/unit_tests/testLinearAlgebra/test_svd/testsvdrank.sci new file mode 100644 index 00000000..108acde8 --- /dev/null +++ b/tests/unit_tests/testLinearAlgebra/test_svd/testsvdrank.sci @@ -0,0 +1,13 @@ +function testsvdrank() + disp(" ** SVD Function (Singular Value Decomposition)** ") + A = [1,2,3,11;4,5,6,12;7,8,9,13] // Matrix - A + [u,s,vt,rk] = svd(A) // Calling Function Sequence + disp("U Matrix") + disp(u) // A = U*sigma*Vt + disp("Sigma Matrix") + disp(s) + disp(" V transpose ") + disp(vt) + disp("Rank") + disp(rk) +endfunction diff --git a/tests/unit_tests/testLinearAlgebra/test_svd/testsvdreal.sci b/tests/unit_tests/testLinearAlgebra/test_svd/testsvdreal.sci new file mode 100644 index 00000000..0e68e003 --- /dev/null +++ b/tests/unit_tests/testLinearAlgebra/test_svd/testsvdreal.sci @@ -0,0 +1,11 @@ +function testsvdreal() + 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) // Calling Function Sequence + disp("U Matrix") + disp(u) // A = U*sigma*Vt + disp("Sigma Matrix") + disp(s) + disp(" V transpose ") + disp(vt) +endfunction |