|
2928
|
1 /* |
|
|
2 |
|
|
3 Copyright (C) 1996, 1997 John W. Eaton |
|
|
4 |
|
|
5 This file is part of Octave. |
|
|
6 |
|
|
7 Octave is free software; you can redistribute it and/or modify it |
|
|
8 under the terms of the GNU General Public License as published by the |
|
|
9 Free Software Foundation; either version 2, or (at your option) any |
|
|
10 later version. |
|
|
11 |
|
|
12 Octave is distributed in the hope that it will be useful, but WITHOUT |
|
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
|
15 for more details. |
|
|
16 |
|
|
17 You should have received a copy of the GNU General Public License |
|
|
18 along with Octave; see the file COPYING. If not, write to the Free |
|
|
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
|
|
20 |
|
|
21 */ |
|
|
22 |
|
|
23 // Based on Tony Richardson's filter.m. |
|
|
24 // |
|
|
25 // Originally translated to C++ by KH (Kurt.Hornik@ci.tuwien.ac.at) |
|
|
26 // with help from Fritz Leisch and Andreas Weingessel on Oct 20, 1994. |
|
|
27 // |
|
|
28 // Rewritten to use templates to handle both real and complex cases by |
|
|
29 // jwe, Wed Nov 1 19:15:29 1995. |
|
|
30 |
|
|
31 #ifdef HAVE_CONFIG_H |
|
|
32 #include <config.h> |
|
|
33 #endif |
|
|
34 |
|
|
35 #include "defun-dld.h" |
|
|
36 #include "error.h" |
|
|
37 #include "oct-obj.h" |
|
|
38 |
|
3107
|
39 #if !defined (NO_EXTERN_TEMPLATE_DECLS) |
|
2928
|
40 extern MArray<double> |
|
|
41 filter (MArray<double>&, MArray<double>&, MArray<double>&); |
|
|
42 |
|
|
43 extern MArray<Complex> |
|
|
44 filter (MArray<Complex>&, MArray<Complex>&, MArray<Complex>&); |
|
3107
|
45 #endif |
|
2928
|
46 |
|
|
47 template <class T> |
|
|
48 MArray<T> |
|
|
49 filter (MArray<T>& b, MArray<T>& a, MArray<T>& x, MArray<T>& si) |
|
|
50 { |
|
|
51 MArray<T> y; |
|
|
52 |
|
|
53 int a_len = a.length (); |
|
|
54 int b_len = b.length (); |
|
|
55 int x_len = x.length (); |
|
|
56 |
|
|
57 int si_len = si.length (); |
|
|
58 |
|
|
59 int ab_len = a_len > b_len ? a_len : b_len; |
|
|
60 |
|
|
61 b.resize (ab_len, 0.0); |
|
|
62 |
|
|
63 if (si.length () != ab_len - 1) |
|
|
64 { |
|
|
65 error ("filter: si must be a vector of length max (length (a), length (b)) - 1"); |
|
|
66 return y; |
|
|
67 } |
|
|
68 |
|
|
69 T norm = a (0); |
|
|
70 |
|
|
71 if (norm == 0.0) |
|
|
72 { |
|
|
73 error ("filter: the first element of a must be non-zero"); |
|
|
74 return y; |
|
|
75 } |
|
|
76 |
|
|
77 y.resize (x_len, 0.0); |
|
|
78 |
|
|
79 if (norm != 1.0) |
|
|
80 b = b / norm; |
|
|
81 |
|
|
82 if (a_len > 1) |
|
|
83 { |
|
|
84 a.resize (ab_len, 0.0); |
|
|
85 |
|
|
86 if (norm != 1.0) |
|
|
87 a = a / norm; |
|
|
88 |
|
|
89 for (int i = 0; i < x_len; i++) |
|
|
90 { |
|
|
91 y (i) = si (0) + b (0) * x (i); |
|
|
92 |
|
|
93 if (si_len > 1) |
|
|
94 { |
|
|
95 for (int j = 0; j < si_len - 1; j++) |
|
|
96 si (j) = si (j+1) - a (j+1) * y (i) |
|
|
97 + b (j+1) * x (i); |
|
|
98 |
|
|
99 si (si_len-1) = b (si_len) * x (i) |
|
|
100 - a (si_len) * y (i); |
|
|
101 } |
|
|
102 else |
|
|
103 si (0) = b (si_len) * x (i) |
|
|
104 - a (si_len) * y (i); |
|
|
105 } |
|
|
106 } |
|
|
107 else if (si_len > 0) |
|
|
108 { |
|
|
109 for (int i = 0; i < x_len; i++) |
|
|
110 { |
|
|
111 y (i) = si (0) + b (0) * x (i); |
|
|
112 |
|
|
113 if (si_len > 1) |
|
|
114 { |
|
|
115 for (int j = 0; j < si_len - 1; j++) |
|
|
116 si (j) = si (j+1) + b (j+1) * x (i); |
|
|
117 |
|
|
118 si (si_len-1) = b (si_len) * x (i); |
|
|
119 } |
|
|
120 else |
|
|
121 si (0) = b (1) * x (i); |
|
|
122 } |
|
|
123 } |
|
|
124 else |
|
|
125 y = b (0) * x; |
|
|
126 |
|
|
127 return y; |
|
|
128 } |
|
|
129 |
|
3107
|
130 #if !defined (NO_EXTERN_TEMPLATE_DECLS) |
|
2928
|
131 extern MArray<double> |
|
|
132 filter (MArray<double>&, MArray<double>&, MArray<double>&, |
|
|
133 MArray<double>&); |
|
|
134 |
|
|
135 extern MArray<Complex> |
|
|
136 filter (MArray<Complex>&, MArray<Complex>&, MArray<Complex>&, |
|
|
137 MArray<Complex>&); |
|
3107
|
138 #endif |
|
2928
|
139 |
|
|
140 template <class T> |
|
|
141 MArray<T> |
|
|
142 filter (MArray<T>& b, MArray<T>& a, MArray<T>& x) |
|
|
143 { |
|
|
144 int a_len = a.length (); |
|
|
145 int b_len = b.length (); |
|
|
146 |
|
|
147 int si_len = (a_len > b_len ? a_len : b_len) - 1; |
|
|
148 |
|
|
149 MArray<T> si (si_len, T (0.0)); |
|
|
150 |
|
|
151 return filter (b, a, x, si); |
|
|
152 } |
|
|
153 |
|
3097
|
154 DEFUN_DLD (filter, args, nargout, |
|
2928
|
155 "usage: [y [, sf]] = filter (b, a, x [, si])\n\ |
|
|
156 \n\ |
|
|
157 y = filter (b, a, x) returns the solution to the following linear,\n\ |
|
|
158 time-invariant difference equation:\n\ |
|
|
159 \n\ |
|
|
160 a[1] y[n] + ... + a[la] y[n-la+1] = b[1] x[n] + ... + b[lb] x[n-lb+1],\n\ |
|
|
161 where la = length (a) and lb = length (b).\n\ |
|
|
162 \n\ |
|
|
163 [y, sf] = filter (b, a, x, si) sets the initial state of the system, si,\n\ |
|
|
164 and returns the final state, sf. The state vector is a column vector\n\ |
|
|
165 whose length is equal to the length of the longest coefficient vector\n\ |
|
|
166 minus one. If si is not set, the initial state vector is set to all\n\ |
|
|
167 zeros.\n\ |
|
|
168 \n\ |
|
|
169 The particular algorithm employed is known as a transposed Direct Form II\n\ |
|
|
170 implementation.") |
|
|
171 { |
|
|
172 octave_value_list retval; |
|
|
173 |
|
|
174 int nargin = args.length (); |
|
|
175 |
|
|
176 if (nargin < 3 || nargin > 4) |
|
|
177 { |
|
|
178 print_usage ("filter"); |
|
|
179 return retval; |
|
|
180 } |
|
|
181 |
|
|
182 const char *errmsg = "filter: arguments must be vectors"; |
|
|
183 |
|
|
184 int x_is_vector = (args(2).rows () == 1 || args(2).columns () == 1); |
|
|
185 |
|
|
186 int si_is_vector = (nargin == 4 |
|
|
187 && (args(3).rows () == 1 || args(3).columns () == 1)); |
|
|
188 |
|
|
189 if (args(0).is_complex_type () |
|
|
190 || args(1).is_complex_type () |
|
|
191 || args(2).is_complex_type () |
|
|
192 || (nargin == 4 && args(3).is_complex_type ())) |
|
|
193 { |
|
|
194 ComplexColumnVector b = args(0).complex_vector_value (); |
|
|
195 ComplexColumnVector a = args(1).complex_vector_value (); |
|
|
196 ComplexColumnVector x = args(2).complex_vector_value (); |
|
|
197 |
|
|
198 if (! error_state) |
|
|
199 { |
|
3088
|
200 ComplexColumnVector si; |
|
|
201 |
|
2928
|
202 if (nargin == 3) |
|
|
203 { |
|
3088
|
204 int a_len = a.length (); |
|
|
205 int b_len = b.length (); |
|
|
206 |
|
|
207 int si_len = (a_len > b_len ? a_len : b_len) - 1; |
|
|
208 |
|
|
209 si.resize (si_len, 0.0); |
|
|
210 } |
|
|
211 else |
|
|
212 si = args(3).complex_vector_value (); |
|
|
213 |
|
|
214 if (! error_state) |
|
|
215 { |
|
|
216 ComplexColumnVector y (filter (b, a, x, si)); |
|
|
217 |
|
|
218 if (nargout == 2) |
|
|
219 { |
|
|
220 if (si_is_vector) |
|
|
221 retval (1) = octave_value (si, (args(3).columns () == 1)); |
|
|
222 else |
|
|
223 retval (1) = si; |
|
|
224 } |
|
2928
|
225 |
|
|
226 if (x_is_vector) |
|
|
227 retval (0) = octave_value (y, (args(2).columns () == 1)); |
|
|
228 else |
|
|
229 retval (0) = y; |
|
|
230 } |
|
|
231 else |
|
3088
|
232 error (errmsg); |
|
2928
|
233 } |
|
|
234 else |
|
|
235 error (errmsg); |
|
|
236 } |
|
|
237 else |
|
|
238 { |
|
|
239 ColumnVector b = args(0).vector_value (); |
|
|
240 ColumnVector a = args(1).vector_value (); |
|
|
241 ColumnVector x = args(2).vector_value (); |
|
|
242 |
|
|
243 if (! error_state) |
|
|
244 { |
|
3088
|
245 ColumnVector si; |
|
|
246 |
|
2928
|
247 if (nargin == 3) |
|
|
248 { |
|
3088
|
249 int a_len = a.length (); |
|
|
250 int b_len = b.length (); |
|
|
251 |
|
|
252 int si_len = (a_len > b_len ? a_len : b_len) - 1; |
|
|
253 |
|
|
254 si.resize (si_len, 0.0); |
|
|
255 } |
|
|
256 else |
|
|
257 si = args(3).vector_value (); |
|
|
258 |
|
|
259 if (! error_state) |
|
|
260 { |
|
|
261 ColumnVector y (filter (b, a, x, si)); |
|
|
262 |
|
|
263 if (nargout == 2) |
|
|
264 { |
|
|
265 if (si_is_vector) |
|
|
266 retval (1) = octave_value (si, (args(3).columns () == 1)); |
|
|
267 else |
|
|
268 retval (1) = si; |
|
|
269 } |
|
2928
|
270 |
|
|
271 if (x_is_vector) |
|
|
272 retval (0) = octave_value (y, (args(2).columns () == 1)); |
|
|
273 else |
|
|
274 retval (0) = y; |
|
|
275 } |
|
|
276 else |
|
3088
|
277 error (errmsg); |
|
2928
|
278 } |
|
|
279 else |
|
|
280 error (errmsg); |
|
|
281 } |
|
|
282 |
|
|
283 return retval; |
|
|
284 } |
|
|
285 |
|
|
286 template MArray<double> |
|
|
287 filter (MArray<double>&, MArray<double>&, MArray<double>&, |
|
|
288 MArray<double>&); |
|
|
289 |
|
|
290 template MArray<double> |
|
|
291 filter (MArray<double>&, MArray<double>&, MArray<double>&); |
|
|
292 |
|
|
293 template MArray<Complex> |
|
|
294 filter (MArray<Complex>&, MArray<Complex>&, MArray<Complex>&, |
|
|
295 MArray<Complex>&); |
|
|
296 |
|
|
297 template MArray<Complex> |
|
|
298 filter (MArray<Complex>&, MArray<Complex>&, MArray <Complex>&); |
|
|
299 |
|
|
300 /* |
|
|
301 ;;; Local Variables: *** |
|
|
302 ;;; mode: C++ *** |
|
|
303 ;;; End: *** |
|
|
304 */ |
