diff options
| author | Brijeshcr | 2017-07-06 15:49:18 +0530 |
|---|---|---|
| committer | GitHub | 2017-07-06 15:49:18 +0530 |
| commit | 850c0ff1ca5cd660b76d0568a215bab0547312ad (patch) | |
| tree | 26fc9679644561759e8a2c4080059d30b70a3105 /2.3-1/src/c/matrixOperations/norm/dnorma.c | |
| parent | a7eeecce4c7c39ea52a2d434815c574a2c42730d (diff) | |
| parent | c600ebcb67961fe6007ba41fd5ad987da3af7f6e (diff) | |
| download | Scilab2C-850c0ff1ca5cd660b76d0568a215bab0547312ad.tar.gz Scilab2C-850c0ff1ca5cd660b76d0568a215bab0547312ad.tar.bz2 Scilab2C-850c0ff1ca5cd660b76d0568a215bab0547312ad.zip | |
Merge pull request #4 from FOSSEE/revert-3-master
Revert "LinearAlgebra Function Added"
Diffstat (limited to '2.3-1/src/c/matrixOperations/norm/dnorma.c')
| -rw-r--r-- | 2.3-1/src/c/matrixOperations/norm/dnorma.c | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/2.3-1/src/c/matrixOperations/norm/dnorma.c b/2.3-1/src/c/matrixOperations/norm/dnorma.c index 2bb9b8b7..c912f857 100644 --- a/2.3-1/src/c/matrixOperations/norm/dnorma.c +++ b/2.3-1/src/c/matrixOperations/norm/dnorma.c @@ -6,8 +6,6 @@ are also available at http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt Author: Siddhesh Wani - - Edited by: Sandeep Gupta Organization: FOSSEE, IIT Bombay Email: toolbox@scilab.in */ @@ -16,17 +14,13 @@ /*Acceptable norms are: 1, 2, 'inf', 'fro', */ #include "norm.h" -#include "svd.h" #include <math.h> -#include <stdio.h> -#include<stdlib.h> double dnorma (double *in, int row, int col, int norm) { double res = 0, sum = 0; int col_count, row_count; - double *S; - S = (double *)malloc(min(row,col)*sizeof(double)); + switch (norm) { case 1: /*largest column sum*/ @@ -43,8 +37,6 @@ double dnorma (double *in, int row, int col, int norm) break; case 2: /*Largest singular value of the matrix*/ - dsvda(0,in,row,col,0,1,S,NULL,NULL); - res = S[0]; break; case 3: /*inf: largest row sum*/ @@ -77,4 +69,4 @@ double dnorma (double *in, int row, int col, int norm) return res; -} +}
\ No newline at end of file |