diff options
author | Siddhu8990 | 2017-07-04 20:08:52 +0530 |
---|---|---|
committer | Siddhu8990 | 2017-07-04 20:08:52 +0530 |
commit | 94afa929398d966285e86983010497b7dd7e7c2a (patch) | |
tree | 74a3e724dc5b8d7526d157ae86953d9e9757ea7c /src/c/linearAlgebra/sva/dsvaa.c | |
parent | 5b9f48de8fe9af5d4b4a3bea0eb3baacd2bc7950 (diff) | |
parent | c315b9d6ad3f720d2277323ecad403128cfbb90b (diff) | |
download | scilab2c-94afa929398d966285e86983010497b7dd7e7c2a.tar.gz scilab2c-94afa929398d966285e86983010497b7dd7e7c2a.tar.bz2 scilab2c-94afa929398d966285e86983010497b7dd7e7c2a.zip |
Bug removed for dct and idct
Diffstat (limited to 'src/c/linearAlgebra/sva/dsvaa.c')
-rw-r--r-- | src/c/linearAlgebra/sva/dsvaa.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/c/linearAlgebra/sva/dsvaa.c b/src/c/linearAlgebra/sva/dsvaa.c index ee27eef7..b7d07d8c 100644 --- a/src/c/linearAlgebra/sva/dsvaa.c +++ b/src/c/linearAlgebra/sva/dsvaa.c @@ -33,14 +33,14 @@ void dsvaa(int ninp,double *in1,int row,int col,double in2,double *out1, \ /* Calculation of svd of a given matrix */ double *U,*S,*V; - U = (double *)malloc((double)row*Min(row,col)*sizeof(double)); - S = (double *)malloc((double)Min(row,col)*Min(row,col)*sizeof(double)); - V = (double *)malloc((double)col*Min(row,col)*sizeof(double)); + U = (double *)malloc((double)row*min(row,col)*sizeof(double)); + S = (double *)malloc((double)min(row,col)*min(row,col)*sizeof(double)); + V = (double *)malloc((double)col*min(row,col)*sizeof(double)); - dsvda(in1,M,N,1,3,U,S,V); + dsvda(0,in1,M,N,1,3,U,S,V); if (ninp == 1){ /* [u,s,v] = sva(A) when input is only matrix */ - tol = Max(row,col)*S[0]*eps; + tol = max(row,col)*S[0]*eps; rk = 0; for(i=0;i<col;i++){ if(S[i+i*row] > tol){ @@ -52,7 +52,7 @@ void dsvaa(int ninp,double *in1,int row,int col,double in2,double *out1, \ tol = in2; if(tol > 1){ rk = tol; - if(rk > Min(row,col)){ + if(rk > min(row,col)){ printf("ERROR: Wrong value for input argument !"); out1 = NULL; out2 = NULL; @@ -70,20 +70,20 @@ void dsvaa(int ninp,double *in1,int row,int col,double in2,double *out1, \ } } arow = M; - acol = Min(M,N); + acol = min(M,N); for(i=0;i<arow;i++){ for(j=0;j<rk;j++){ out1[i+j*row]=U[i+j*arow]; } } - arow = Min(M,N); + arow = min(M,N); for(i=0;i<rk;i++){ for(j=0;j<rk;j++){ out2[i+j*(int)rk] = S[i+j*arow]; } } arow = N; - acol = Min(M,N); + acol = min(M,N); for(i=0;i<arow;i++){ for(j=0;j<rk;j++){ out3[i+j*arow] = V[i+j*arow]; |