summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSandeep Gupta2017-07-07 01:57:31 +0530
committerSandeep Gupta2017-07-07 01:57:31 +0530
commit115d4a1544b27a8887947a0bf2113bde31e2c3d3 (patch)
tree0fa5182f2e94f6a67a84b94d81f9af8242cf6730
parentc2987d9ea311a62a56427beae3a451b860620a62 (diff)
downloadScilab2C-115d4a1544b27a8887947a0bf2113bde31e2c3d3.tar.gz
Scilab2C-115d4a1544b27a8887947a0bf2113bde31e2c3d3.tar.bz2
Scilab2C-115d4a1544b27a8887947a0bf2113bde31e2c3d3.zip
SVA Function
-rw-r--r--2.3-1/jar/scilab_en_US_help.jarbin90519 -> 90519 bytes
-rw-r--r--2.3-1/src/c/linearAlgebra/svd/zsvda.c1
-rw-r--r--2.3-1/tests/unit_tests/testLinearAlgebra/testsva/testsva.sci7
-rw-r--r--2.3-1/tests/unit_tests/testLinearAlgebra/testsva/testsvatol.sci9
4 files changed, 17 insertions, 0 deletions
diff --git a/2.3-1/jar/scilab_en_US_help.jar b/2.3-1/jar/scilab_en_US_help.jar
index 665fdd33..da5ed420 100644
--- a/2.3-1/jar/scilab_en_US_help.jar
+++ b/2.3-1/jar/scilab_en_US_help.jar
Binary files differ
diff --git a/2.3-1/src/c/linearAlgebra/svd/zsvda.c b/2.3-1/src/c/linearAlgebra/svd/zsvda.c
index 12a07aaf..c75cc50c 100644
--- a/2.3-1/src/c/linearAlgebra/svd/zsvda.c
+++ b/2.3-1/src/c/linearAlgebra/svd/zsvda.c
@@ -19,6 +19,7 @@
#include "matrixTranspose.h"
#include "conj.h"
+/* Lapack functions used . */
extern doubleComplex zgesvd_( char* , char* , int* , int* ,doubleComplex *,\
int* , double* ,doubleComplex* , int* ,doubleComplex* , int* ,\
doubleComplex* , int* , double* , int* );
diff --git a/2.3-1/tests/unit_tests/testLinearAlgebra/testsva/testsva.sci b/2.3-1/tests/unit_tests/testLinearAlgebra/testsva/testsva.sci
new file mode 100644
index 00000000..c7107236
--- /dev/null
+++ b/2.3-1/tests/unit_tests/testLinearAlgebra/testsva/testsva.sci
@@ -0,0 +1,7 @@
+function testsva()
+ a = [1,2,3,4;5,6,7,8;9,10,11,12]
+ [u,s,v] = sva(a)
+ disp(u)
+ disp(s)
+ disp(v)
+endfunction
diff --git a/2.3-1/tests/unit_tests/testLinearAlgebra/testsva/testsvatol.sci b/2.3-1/tests/unit_tests/testLinearAlgebra/testsva/testsvatol.sci
new file mode 100644
index 00000000..b199ec36
--- /dev/null
+++ b/2.3-1/tests/unit_tests/testLinearAlgebra/testsva/testsvatol.sci
@@ -0,0 +1,9 @@
+// function Singular Value Approx.
+
+function testsvatol()
+ a = [1,2,3,4;5,6,7,8;9,10,11,12]
+ [u,s,v] = sva(a,1)
+ disp(u)
+ disp(s)
+ disp(v)
+endfunction