summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/c/signalProcessing/includes/wiener.h30
-rw-r--r--src/c/signalProcessing/interfaces/int_wiener.h20
-rw-r--r--src/c/signalProcessing/wiener/dwienera.c166
3 files changed, 0 insertions, 216 deletions
diff --git a/src/c/signalProcessing/includes/wiener.h b/src/c/signalProcessing/includes/wiener.h
deleted file mode 100644
index ba77526..0000000
--- a/src/c/signalProcessing/includes/wiener.h
+++ /dev/null
@@ -1,30 +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: Abhinav Dronamraju
- Organization: FOSSEE, IIT Bombay
- Email: toolbox@scilab.in
- */
-
-#ifndef __WEINER_H__
-#define __WEINER_H__
-#include "types.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-void dwienera(double* y, int y_row, int y_col, double* x0, int x0_row, int x0_col, double* p0, int p0_row, int p0_col, double* f, int f_row, int f_col, double* g, int g_row, int g_col, double* h, int h_row, int h_col, double* q, int q_row, int q_col, double* r, int r_row, int r_col, double* xs, double* ps, double* xf, double* pf);
-
-
-
-#ifdef __cplusplus
-} /* extern "C" */
-#endif
-
-#endif /* __WEINER_H__ */
-
diff --git a/src/c/signalProcessing/interfaces/int_wiener.h b/src/c/signalProcessing/interfaces/int_wiener.h
deleted file mode 100644
index daefcf0..0000000
--- a/src/c/signalProcessing/interfaces/int_wiener.h
+++ /dev/null
@@ -1,20 +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: Abhinav Dronamraju
- Organization: FOSSEE, IIT Bombay
- Email: toolbox@scilab.in
- */
-
-#ifndef __INT_WIENER_H__
-#define __INT_WIENER_H__
-
-#define d2d2d2d2d2d2d2d2wienerd2d2d2d2(in1, size1, in2, size2, in3, size3, in4, size4, in5, size5, in6, size6, in7, size7, in8, size8, out1, out2, out3, out4) \
- dwienera(in1, size1[0], size1[1],in2, size2[0], size2[1],in3, size3[0], size3[1],in4, size4[0], size4[1],in5, size5[0], size5[1] ,\
- in6, size6[0], size6[1],in7, size7[0], size7[1],in8, size8[0], size8[1], out1, out2, out3, out4)
-
-#endif /* !INT_WEINER_H__! */
diff --git a/src/c/signalProcessing/wiener/dwienera.c b/src/c/signalProcessing/wiener/dwienera.c
deleted file mode 100644
index 18f49bc..0000000
--- a/src/c/signalProcessing/wiener/dwienera.c
+++ /dev/null
@@ -1,166 +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: Abhinav Dronamraju
- Organization: FOSSEE, IIT Bombay
- Email: toolbox@scilab.in
- */
-
-/*Function to find kalm */
-
-#include "lapack.h"
-#include "stdlib.h"
-#include "stdio.h"
-#include "string.h"
-#include "wiener.h"
-#include "kalm.h"
-#include "matrixTranspose.h"
-#include "matrixMultiplication.h"
-#include "matrixInversion.h"
-#include "addition.h"
-#include "subtraction.h"
-#include "eye.h"
-
-void dwienera(double* y, int y_row, int y_col, double* x0, int x0_row, int x0_col, double* p0, int p0_row, int p0_col, double* f, int f_row, int f_col, double* g, int g_row, int g_col, double* h, int h_row, int h_col, double* q, int q_row, int q_col, double* r, int r_row, int r_col, double* xs, double* ps, double* xf, double* pf)
-
-{
-
-/* dtransposea(h, h_row, h_col, h_trans);*/
-/* dmulma(p0, p0_row, p0_col, h_trans, h_col, h_row, temp1); //temp1= p0*h'*/
-/* dmulma(h, h_row, h_col, p0, p0_row, p0_col, temp2); //temp2= h*p0*/
-/* dmulma(temp2, h_row, p0_col, h_trans, h_col, h_row, temp3); //temp3= h*p0*h'*/
-/* dadda(temp3, h_row*h_row, r, r_row*r_col, temp4); //temp4= h*p0*h'+r*/
-
- int n= x0_row, x0j= x0_col, m= y_row, tf= y_col, to=1, k;
- double ind_nk[n];
- double ind_mk[m];
- double xf1[x0_row*x0_col];
- double pf1[p0_row*p0_col];
- double yk[y_row*1];
- double fk[f_row*n];
- double gk[g_row*n];
- double hk[h_row*n];
- double qk[q_row*n];
- double rk[r_row*m];
- double x1[f_row*x0_col];
- double p1[f_row*f_row];
- double x[x0_row*x0_col];
- double p[p0_row*p0_col];
-
-
-for(int i=0; i< x0_row*x0_col; i++)
- xf1[i]= x0[i];
-
-for(int i=0; i< p0_row*p0_col; i++)
- pf1[i]= p0[i];
-
-for(k=t0; k<=tf; k++)
-{
- int j=0;
- for(int i=1+(k-1)*n; i<= k*n; i++)
- {
- ind_nk[j]= i;
- j++;
- }
-
- int j=0;
- for(int i=1+(k-1)*m; i<= k*m; i++)
- {
- ind_mk[j]= i;
- j++;
- }
-
- for(int i=0; i< y_row; y++)
- {
- int j=k-1;
-
- yk[i]= y[i+j*y_row];
-
- }
-int l=0;
- for(int i=0; i<n; i++)
- {
- for(int j=0; j< f_row; j++)
- {
- int k=ind_nk[i]-1;
-
- fk[l]= f[j+k*y_row];
- l++;
- }
-
-
- }
-
-int l=0;
- for(int i=0; i<n; i++)
- {
- for(int j=0; j< g_row; j++)
- {
- int k=ind_nk[i]-1;
-
- gk[l]= g[j+k*y_row];
- l++;
- }
-
-
- }
-
-int l=0;
- for(int i=0; i<n; i++)
- {
- for(int j=0; j< h_row; j++)
- {
- int k=ind_nk[i]-1;
-
- hk[l]= h[j+k*y_row];
- l++;
- }
-
-
- }
-
-int l=0;
- for(int i=0; i<n; i++)
- {
- for(int j=0; j< q_row; j++)
- {
- int k=ind_nk[i]-1;
-
- qk[l]= q[j+k*y_row];
- l++;
- }
-
-
- }
-
-int l=0;
- for(int i=0; i<m; i++)
- {
- for(int j=0; j< r_row; j++)
- {
- int k=ind_mk[i]-1;
-
- rk[l]= r[j+k*y_row];
- l++;
- }
-
-
- }
-
-
-dkalma(yk, y_row, 1, x0, x0_row, x0_col, p0, p0_row, p0_col, fk, f_row, n, gk, g_row, n, hk, h_row, n, qk, q_row, n, rk, r_row, m, x1, p1, x, p);
-
-
-
-
-}
-
-
-
-
-
-}
generated by cgit (git 2.34.1) at 2024-12-22 13:10:22 +0000