summaryrefslogtreecommitdiff
path: root/src/c/signalProcessing/zpch1
diff options
context:
space:
mode:
authorSandeep Gupta2017-07-05 12:41:25 +0530
committerSandeep Gupta2017-07-05 12:41:25 +0530
commit06337f0dc8114c70fd0c7767083971a0d091750a (patch)
tree446481550ba88e6e0f7df2db7fdc66d2016ee2f1 /src/c/signalProcessing/zpch1
parentc2e305c3b82ed944d57402dd515b3d5839a31980 (diff)
downloadScilab2C_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.c53
-rw-r--r--src/c/signalProcessing/zpch1/int_zpch1.h18
-rw-r--r--src/c/signalProcessing/zpch1/zpch1.h28
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__ */