summaryrefslogtreecommitdiff
path: root/src/c/signalProcessing/amell
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/amell
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/amell')
-rw-r--r--src/c/signalProcessing/amell/amell.h27
-rw-r--r--src/c/signalProcessing/amell/damella.c23
-rw-r--r--src/c/signalProcessing/amell/damells.c57
-rw-r--r--src/c/signalProcessing/amell/int_amell.h18
4 files changed, 0 insertions, 125 deletions
diff --git a/src/c/signalProcessing/amell/amell.h b/src/c/signalProcessing/amell/amell.h
deleted file mode 100644
index 30bd6c8..0000000
--- a/src/c/signalProcessing/amell/amell.h
+++ /dev/null
@@ -1,27 +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 __AMELL_H__
-#define __AMELL_H__
-#include "types.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-double damells(double u,double x);
-
-#ifdef __cplusplus
-} /* extern "c" */
-#endif
-
-#endif /*__AMELL_H__*/
diff --git a/src/c/signalProcessing/amell/damella.c b/src/c/signalProcessing/amell/damella.c
deleted file mode 100644
index 5c37e2a..0000000
--- a/src/c/signalProcessing/amell/damella.c
+++ /dev/null
@@ -1,23 +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 "amell.h"
-
-void damella(double* u,int size,double x,double* oup)
-{
- int i;
- for(i=0;i<size;i++)
- {
- oup[i]=damells(u[i],x);
- }
-}
diff --git a/src/c/signalProcessing/amell/damells.c b/src/c/signalProcessing/amell/damells.c
deleted file mode 100644
index 90c2053..0000000
--- a/src/c/signalProcessing/amell/damells.c
+++ /dev/null
@@ -1,57 +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 "amell.h"
-#define N 30
-#define DBL_EPSILON 2.2204460492503131E-16
-
-
-double damells(double u,double x)
-{
- double a[N+1];
- double g[N+1];
- double c[N+1];
- double two_n;
- double phi;
- double k;
- int n;
- k=(long double)fabs(x);
- if(k==1.0)
- return 0;
- if(k>1.0)
- printf("Wrong type of input argument type #2");
-
- a[0]=1.0;
- g[0]=sqrt(1.0-k*k);
- c[0]=k;
- two_n=1.0;
- for(n=0;n<N;n++)
- {
- if(fabs(a[n]-g[n])<(a[n]*DBL_EPSILON))
- {
- break;
- }
- two_n+=two_n;
- a[n+1]=0.5*(a[n]+g[n]);
- g[n+1]=sqrt(a[n]*g[n]);
- c[n+1]=0.5*(a[n]-g[n]);
- }
- phi=two_n*a[n]*u;
- for(;n>0;n--)
- {
- phi=0.5*(phi+asin(c[n]*sin(phi)/a[n]));
- }
- return (double)phi;
-}
-
diff --git a/src/c/signalProcessing/amell/int_amell.h b/src/c/signalProcessing/amell/int_amell.h
deleted file mode 100644
index 5d0c86f..0000000
--- a/src/c/signalProcessing/amell/int_amell.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_AMELL_H__
-#define __INT_AMELL_H__
-
-#define d0d0amelld0(u,x) damells(u,x)
-
-#endif /* !__INT_AMELL_H__! */