1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) 2007-2008 - INRIA - Bruno JOFRET
*
* 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
*
*/
#ifndef __DIVISION_H__
#define __DIVISION_H__
#include "dynlib_operations.h"
#include "floatComplex.h"
#include "doubleComplex.h"
#ifdef __cplusplus
extern "C" {
#endif
/*
**
** WARNING WE ASSUME MATRIXES TO BE CONSCISTENT
** size1 = size2;
**
*/
/*
** RIGHT DIVISION
*/
/*
** \brief Compute a right division for floats.
** \param in1 : input float.
** \param in2 : input float.
** \return in1 / in2 = in1 ./ in2.
*/
EXTERN_OPERATIONS float srdivs (float in1, float in2);
/*
** \brief Compute a right division element ways for floats.
** \param in1 : input array.
** \param in2 : input array.
** \param size : size of in2 array = rows*columns.
** \param out : array that contains the division in1 ./ in2.
*/
EXTERN_OPERATIONS void srdiva (float* in1, float* in2, int size, float* out );
/*
** \brief Compute a right division for double.
** \param in1 : input double.
** \param in2 : input double.
** \return in1 / in2 = in1 ./ in2.
*/
EXTERN_OPERATIONS double drdivs (double in1, double in2);
/*
** \brief Compute a right division element ways for double.
** \param in1 : input array.
** \param in2 : input array.
** \param size : size of in2 array = rows*columns.
** \param out : array that contains the division in1 ./ in2.
*/
EXTERN_OPERATIONS void drdiva (double* in1, double* in2, int size, double* out );
/*
** \brief Compute a right division for floats complex.
** \param in1 : input float complex.
** \param in2 : input float complex.
** \return in1 / in2 = in1 ./ in2.
*/
EXTERN_OPERATIONS floatComplex crdivs (floatComplex in1, floatComplex in2);
/*
** \brief Compute a right division element ways for float complex.
** \param in1 : input array.
** \param in2 : input array.
** \param size : size of in2 array = rows*columns.
** \param out : array that contains the division in1 ./ in2.
*/
EXTERN_OPERATIONS void crdiva(floatComplex* in1, floatComplex* in2, int size, floatComplex* out );
/*
** \brief Compute a right division for double complex.
** \param in1 : input double complex.
** \param in2 : input double complex.
** \return in1 / in2 = in1 ./ in2.
*/
EXTERN_OPERATIONS doubleComplex zrdivs (doubleComplex in1, doubleComplex in2);
/*
** \brief Compute a right division element ways for double complex.
** \param in1 : input array.
** \param in2 : input array.
** \param size : size of in2 array = rows*columns.
** \param out : array that contains the division in1 ./ in2.
*/
EXTERN_OPERATIONS void zrdiva(doubleComplex* in1, doubleComplex* in2, int size, doubleComplex* out );
/*
** LEFT DIVISION
*/
/*
** \brief Compute a left division for floats.
** \param in1 : input float.
** \param in2 : input float.
** \return in1 \ in2 = in1 .\ in2.
*/
EXTERN_OPERATIONS float sldivs (float in1, float in2);
/*
** \brief Compute a left division element ways for floats.
** \param in1 : input array.
** \param in2 : input array.
** \param size : size of in2 array = rows*columns.
** \param out : array that contains the division in1 .\ in2.
*/
EXTERN_OPERATIONS void sldiva (float* in1, float* in2, int size, float* out );
/*
** \brief Compute a left division for double.
** \param in1 : input double.
** \param in2 : input double.
** \return in1 \ in2 = in1 .\ in2.
*/
EXTERN_OPERATIONS double dldivs (double in1, double in2);
/*
** \brief Compute a left division element ways for double.
** \param in1 : input array.
** \param in2 : input array.
** \param size : size of in2 array = rows*columns.
** \param out : array that contains the division in1 .\ in2.
*/
EXTERN_OPERATIONS void dldiva (double* in1, double* in2, int size, double* out );
/*
** \brief Compute a left division for floats complex.
** \param in1 : input float complex.
** \param in2 : input float complex.
** \return in1 \ in2 = in1 .\ in2.
*/
EXTERN_OPERATIONS floatComplex cldivs (floatComplex in1, floatComplex in2);
/*
** \brief Compute a left division element ways for float complex.
** \param in1 : input array.
** \param in2 : input array.
** \param size : size of in2 array = rows*columns.
** \param out : array that contains the division in1 .\ in2.
*/
EXTERN_OPERATIONS void cldiva(floatComplex* in1, floatComplex* in2, int size, floatComplex* out );
/*
** \brief Compute a left division for double complex.
** \param in1 : input double complex.
** \param in2 : input double complex.
** \return in1 \ in2 = in1 .\ in2.
*/
EXTERN_OPERATIONS doubleComplex zldivs (doubleComplex in1, doubleComplex in2);
/*
** \brief Compute a left division element ways for double complex.
** \param in1 : input array.
** \param in2 : input array.
** \param size : size of in2 array = rows*columns.
** \param out : array that contains the division in1 .\ in2.
*/
EXTERN_OPERATIONS void zldiva(doubleComplex* in1, doubleComplex* in2, int size, doubleComplex* out );
#ifdef __cplusplus
} /* extern "C" */
#endif
#endif /* !__DIVISION_H__ */
|
