Mercurial > hg > octave-nkf

comparison src/DLD-FUNCTIONS/filter.cc @ 3107:a8dcfbf87ea3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-11-19 22:34:59 by jwe]
author jwe
date Wed, 19 Nov 1997 22:35:03 +0000
parents d12c312d1cfb
children fcb2f5063e7f
comparison
equal deleted inserted replaced
3106:21208b797332 3107:a8dcfbf87ea3
34 34
35 #include "defun-dld.h" 35 #include "defun-dld.h"
36 #include "error.h" 36 #include "error.h"
37 #include "oct-obj.h" 37 #include "oct-obj.h"
38 38
39 #if !defined (NO_EXTERN_TEMPLATE_DECLS)
39 extern MArray<double> 40 extern MArray<double>
40 filter (MArray<double>&, MArray<double>&, MArray<double>&); 41 filter (MArray<double>&, MArray<double>&, MArray<double>&);
41 42
42 extern MArray<Complex> 43 extern MArray<Complex>
43 filter (MArray<Complex>&, MArray<Complex>&, MArray<Complex>&); 44 filter (MArray<Complex>&, MArray<Complex>&, MArray<Complex>&);
45 #endif
44 46
45 template <class T> 47 template <class T>
46 MArray<T> 48 MArray<T>
47 filter (MArray<T>& b, MArray<T>& a, MArray<T>& x, MArray<T>& si) 49 filter (MArray<T>& b, MArray<T>& a, MArray<T>& x, MArray<T>& si)
48 { 50 {
123 y = b (0) * x; 125 y = b (0) * x;
124 126
125 return y; 127 return y;
126 } 128 }
127 129
130 #if !defined (NO_EXTERN_TEMPLATE_DECLS)
128 extern MArray<double> 131 extern MArray<double>
129 filter (MArray<double>&, MArray<double>&, MArray<double>&, 132 filter (MArray<double>&, MArray<double>&, MArray<double>&,
130 MArray<double>&); 133 MArray<double>&);
131 134
132 extern MArray<Complex> 135 extern MArray<Complex>
133 filter (MArray<Complex>&, MArray<Complex>&, MArray<Complex>&, 136 filter (MArray<Complex>&, MArray<Complex>&, MArray<Complex>&,
134 MArray<Complex>&); 137 MArray<Complex>&);
138 #endif
135 139
136 template <class T> 140 template <class T>
137 MArray<T> 141 MArray<T>
138 filter (MArray<T>& b, MArray<T>& a, MArray<T>& x) 142 filter (MArray<T>& b, MArray<T>& a, MArray<T>& x)
139 { 143 {