diff options
Diffstat (limited to '2.3-1/src/c/signalProcessing/transforms/idct/zidcta.c')
-rw-r--r-- | 2.3-1/src/c/signalProcessing/transforms/idct/zidcta.c | 118 |
1 files changed, 0 insertions, 118 deletions
diff --git a/2.3-1/src/c/signalProcessing/transforms/idct/zidcta.c b/2.3-1/src/c/signalProcessing/transforms/idct/zidcta.c deleted file mode 100644 index cc01c966..00000000 --- a/2.3-1/src/c/signalProcessing/transforms/idct/zidcta.c +++ /dev/null @@ -1,118 +0,0 @@ -/* Copyright (C) 2016 - IIT Bombay - FOSSEE - - This file must be used under the terms of the CeCILL. - This source file is licensed as described in the file COPYING, which - you should have received as part of this distribution. The terms - are also available at - http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - Author: Ukasha Noor - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - - -#include "idct.h" -#include "addition.h" -#include "types.h" -#include "doubleComplex.h" -#include "multiplication.h" -/*#include "matrixMultiplication"*/ -/*#include <fftw3.h>*/ -#include <math.h> - -void zidcta(doubleComplex *in,int row,int col,doubleComplex *out) -{ - int i,j,k,u,v; - int n=col; - int x,y; - double res,ress,vv,ff; - double re,z,q,m; - doubleComplex accu = DoubleComplex(0, 0); - doubleComplex temp,mm,aa,bb; - if(row==1) - { - res=1./sqrt(n); - ress=sqrt(2./n); - for(u=0;u<row;u++) - { - for(v=0;v<col;v++) - { - x=v*row+u; - out[x]=DoubleComplex(0,0); - for(i=0;i<row;i++) - { - for(j=0;j<col;j++) - { - y=row*j+i; - if(y==0) - { - q=res*(cos(((M_PI)*(j)*(v+1./2.))/n)); - aa=DoubleComplex(q,0); - out[x]=zadds(out[x],zmuls(in[y],aa)); - } - else - { - q=ress*(cos(((M_PI)*(j)*(v+1./2.))/n)); - aa=DoubleComplex(q,0); - out[x]=zadds(out[x],zmuls(in[y],aa)); - } - } - } - } - - } - } - else - { - for(u=0;u<row;u++) - { - for(v=0;v<col;v++) - { - x=v*row+u; - out[x]=DoubleComplex(0,0); - for(i=0;i<row;i++) - { - re=0; - mm=DoubleComplex(0,0); - temp=DoubleComplex(0,0); - for(j=0;j<col;j++) - { - y=row*j+i; - mm=in[j*row+i]; - z=(double)(((double)v+1.0/2.0)*(double)j); - q=(double)(M_PI/(double)col); - vv=cos(q*z); - aa=DoubleComplex(vv,0); - mm=zmuls(mm,aa); - if(j==0) - { - vv=1./sqrt((double)col); - aa=DoubleComplex(vv,0); - temp=zadds(temp,zmuls(mm,aa)); - } - else - { - vv=sqrt(2./col); - aa=DoubleComplex(vv,0); - temp=zadds(temp,zmuls(mm,aa)); - } - } - z=(double)(((double)u+1.0/2.0)*(double)i); - q=(double)(M_PI/(double)row); - if(i==0) - { - vv=(cos(z*q))*(1./sqrt(row)); - aa=DoubleComplex(vv,0); - out[x]=zadds(out[x],zmuls(temp,aa)); - } - else - { - vv=(cos(z*q))*sqrt(2./row); - aa=DoubleComplex(vv,0); - out[x]=zadds(out[x],zmuls(temp,aa)); - } - } - } - } - } -} |