diff options
Diffstat (limited to 'src/signalProcessing/conv/cconva.c')
-rw-r--r-- | src/signalProcessing/conv/cconva.c | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/src/signalProcessing/conv/cconva.c b/src/signalProcessing/conv/cconva.c deleted file mode 100644 index c523bbee..00000000 --- a/src/signalProcessing/conv/cconva.c +++ /dev/null @@ -1,53 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008 - INRIA - Arnaud TORSET - * - * 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 - * - */ - -#include "conv.h" -#include <stdio.h> -void cconva(floatComplex *in1, int size1, floatComplex *in2,int size2, floatComplex *out){ - int m1,i; - floatComplex *in1b, *in2b, *result; - - - m1=(int)floor( log(size1+size2-1.0) / log(2.0) + 1 ); - m1=(int)pow(2.0, m1); - - in1b=(floatComplex *)malloc((unsigned int)(2*m1)*sizeof(float)); - for(i=0;i<m1;i++){ - if (i<size1) in1b[i]=in1[i]; - else in1b[i]=FloatComplex(0,0); - } - - in2b=(floatComplex *)malloc((unsigned int)(2*m1)*sizeof(float)); - for(i=0;i<m1;i++){ - if (i<size2) in2b[i]=in2[i]; - else in2b[i]=FloatComplex(0,0); - } - - - - cfftma(in1b,m1,1,in1b); - - cfftma(in2b,m1,1,in2b); - result=(floatComplex *)malloc((unsigned int)(2*m1)*sizeof(float)); - cmula(in1b,in2b,m1,result); - cifftma(result,m1,1,result); - - for (i=0;i<size1+size2-1;i++){ - out[i]=result[i]; - } - - free(in1b); - free(in2b); - free(result); -} - - |