summaryrefslogtreecommitdiff
path: root/tests/unit_tests/testLinearAlgebra/testsvd/testsvdeconomy.sci
diff options
context:
space:
mode:
Diffstat (limited to 'tests/unit_tests/testLinearAlgebra/testsvd/testsvdeconomy.sci')
-rw-r--r--tests/unit_tests/testLinearAlgebra/testsvd/testsvdeconomy.sci11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/unit_tests/testLinearAlgebra/testsvd/testsvdeconomy.sci b/tests/unit_tests/testLinearAlgebra/testsvd/testsvdeconomy.sci
new file mode 100644
index 0000000..0459c79
--- /dev/null
+++ b/tests/unit_tests/testLinearAlgebra/testsvd/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