diff options
author | Sandeep Gupta | 2017-07-05 12:41:25 +0530 |
---|---|---|
committer | Sandeep Gupta | 2017-07-05 12:41:25 +0530 |
commit | 06337f0dc8114c70fd0c7767083971a0d091750a (patch) | |
tree | 446481550ba88e6e0f7df2db7fdc66d2016ee2f1 /src/c/signalProcessing/zpch1 | |
parent | c2e305c3b82ed944d57402dd515b3d5839a31980 (diff) | |
download | Scilab2C_fossee_old-06337f0dc8114c70fd0c7767083971a0d091750a.tar.gz Scilab2C_fossee_old-06337f0dc8114c70fd0c7767083971a0d091750a.tar.bz2 Scilab2C_fossee_old-06337f0dc8114c70fd0c7767083971a0d091750a.zip |
LinearAlgebra and MatrixOperation Update
Diffstat (limited to 'src/c/signalProcessing/zpch1')
-rw-r--r-- | src/c/signalProcessing/zpch1/dzpch1s.c | 53 | ||||
-rw-r--r-- | src/c/signalProcessing/zpch1/int_zpch1.h | 18 | ||||
-rw-r--r-- | src/c/signalProcessing/zpch1/zpch1.h | 28 |
3 files changed, 0 insertions, 99 deletions
diff --git a/src/c/signalProcessing/zpch1/dzpch1s.c b/src/c/signalProcessing/zpch1/dzpch1s.c deleted file mode 100644 index ab7b633..0000000 --- a/src/c/signalProcessing/zpch1/dzpch1s.c +++ /dev/null @@ -1,53 +0,0 @@ -/* Copyright (C) 2017 - 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: Ankit Raj - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#include<stdio.h> -#include<math.h> -#include "zpch1.h" -#include "multiplication.h" -#include "conj.h" -#include "abs.h" -#define PI 3.14159265 -double dzpch1s(double N,double e,double wc,doubleComplex* out) -{ - doubleComplex accumulate,tp; - double B,r,R,gain,realVal; - double temp=sqrt(1+e*e); - - B=pow((temp+1)/e,1/N); - - r=wc*((B*B-1)/(2*B)); - R=wc*((B*B+1)/(2*B)); - - int k; - double t1=1; - double t2=0; - accumulate=DoubleComplex(t1,t2); - for(k=0;k<N;k++) - { - double theta; - theta=(PI/2)+((2*k+1)*PI)/(2*N); - double xk,yk; - xk=r*cos(theta); - yk=R*sin(theta); - out[k]=DoubleComplex(xk,yk); - tp=DoubleComplex(xk,yk); - accumulate=zmuls(accumulate,tp); - } - - realVal=zreals(accumulate); - gain=dabss(realVal); - if (N==2*(int)(N/2)) - gain=gain/sqrt(1+e*e); -return gain; - -} - diff --git a/src/c/signalProcessing/zpch1/int_zpch1.h b/src/c/signalProcessing/zpch1/int_zpch1.h deleted file mode 100644 index 8933d1a..0000000 --- a/src/c/signalProcessing/zpch1/int_zpch1.h +++ /dev/null @@ -1,18 +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: Ankit Raj - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ - -#ifndef __INT_ZPCH1_H__ -#define __INT_ZPCH1_H__ - -#define d0d0d0zpch1z2d0(N,e,wc) dzpch1s(N,e,wc) - -#endif /* !INT_ZPCH1_H__! */ diff --git a/src/c/signalProcessing/zpch1/zpch1.h b/src/c/signalProcessing/zpch1/zpch1.h deleted file mode 100644 index fbe850c..0000000 --- a/src/c/signalProcessing/zpch1/zpch1.h +++ /dev/null @@ -1,28 +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: Ankit Raj - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ - -#ifndef __ZPCH1_H__ -#define __ZPCH1_H__ -#include "types.h" -#include "doubleComplex.h" - -#ifdef __cplusplus -extern "C" { -#endif - -double dzpch1s(double N,double e,double wc,doubleComplex* out); - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* __ZPCH1_H__ */ |