summaryrefslogtreecommitdiff
path: root/src/c/signalProcessing/ell1mag
diff options
context:
space:
mode:
Diffstat (limited to 'src/c/signalProcessing/ell1mag')
-rw-r--r--src/c/signalProcessing/ell1mag/dell1maga.c40
-rw-r--r--src/c/signalProcessing/ell1mag/ell1mag.h28
-rw-r--r--src/c/signalProcessing/ell1mag/int_ell1mag.h18
-rw-r--r--src/c/signalProcessing/ell1mag/zell1maga.c40
4 files changed, 0 insertions, 126 deletions
diff --git a/src/c/signalProcessing/ell1mag/dell1maga.c b/src/c/signalProcessing/ell1mag/dell1maga.c
deleted file mode 100644
index 9af0c8e8..00000000
--- a/src/c/signalProcessing/ell1mag/dell1maga.c
+++ /dev/null
@@ -1,40 +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 "modsn.h"
-#include "ell1mag.h"
-#include "doubleComplex.h"
-
-void dell1maga(double eps,double m1,double* z,int size,double* oup )
-{
- double s[size];
- int i;
- for(i=0;i<size;i++)
- {
- s[i]=zmodsns(z[i],m1);
- }
- double un[size];
- int j;
- for(j=0;j<size;j++)
- {
- un[j]=1;
- }
- double v;
- int k;
- for(k=0;k<size;k++)
- {
- v=un[k]/(un[k]+(eps*eps*s[k]*s[k]));
- oup[k]=v;
- }
-}
-
diff --git a/src/c/signalProcessing/ell1mag/ell1mag.h b/src/c/signalProcessing/ell1mag/ell1mag.h
deleted file mode 100644
index 8fffc0c6..00000000
--- a/src/c/signalProcessing/ell1mag/ell1mag.h
+++ /dev/null
@@ -1,28 +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
- */
-
-#ifndef __ELL1MAG_H__
-#define __ELL1MAG_H__
-#include "types.h"
-#include "doubleComplex.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-void dell1mags(double eps,double m1,doubleComplex* z,int size,double* oup);
-
-#ifdef __cplusplus
-} /* extern "C" */
-#endif
-
-#endif /*__ELL1MAG_H__*/
diff --git a/src/c/signalProcessing/ell1mag/int_ell1mag.h b/src/c/signalProcessing/ell1mag/int_ell1mag.h
deleted file mode 100644
index 590a0abd..00000000
--- a/src/c/signalProcessing/ell1mag/int_ell1mag.h
+++ /dev/null
@@ -1,18 +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
- */
-
-#ifndef __INT_ELL1MAG_H__
-#define __INT_ELL1MAG_H__
-
-#define d0d0z2ell1magd2(eps,m1,z,size,oup) dell1mags(eps,m1,z,size,oup)
-
-#endif /* !__INT_ELL1MAG_H__! */
diff --git a/src/c/signalProcessing/ell1mag/zell1maga.c b/src/c/signalProcessing/ell1mag/zell1maga.c
deleted file mode 100644
index 6e7a6f93..00000000
--- a/src/c/signalProcessing/ell1mag/zell1maga.c
+++ /dev/null
@@ -1,40 +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 "modsn.h"
-#include "ell1mag.h"
-#include "doubleComplex.h"
-
-void zell1maga(double eps,double m1,doubleComplex* z,int size,double* oup )
-{
- doubleComplex s[size];
- int i;
- for(i=0;i<size;i++)
- {
- s[i]=zmodsns(z[i],m1);
- }
- double un[size];
- int j;
- for(j=0;j<size;j++)
- {
- un[j]=1;
- }
- doubleComplex v;
- int k;
- for(k=0;k<size;k++)
- {
- v=un[k]/(un[k]+(eps*eps*s[k]*s[k]));
- oup[k]=zreals(v);
- }
-}
-