Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/fft2.cc @ 4782:3dfdf6f36854

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-17 16:23:22 by jwe]
author jwe
date Tue, 17 Feb 2004 16:23:22 +0000
parents ccfbd6047a54
children 23b37da9fd5b
comparison
equal deleted inserted replaced
4781:5f43d12f8287 4782:3dfdf6f36854
35 35
36 // This function should be merged with Fifft. 36 // This function should be merged with Fifft.
37 37
38 #if defined (HAVE_FFTW3) 38 #if defined (HAVE_FFTW3)
39 #define FFTSRC "@sc{Fftw}" 39 #define FFTSRC "@sc{Fftw}"
40 #define WISDOM ", fft_wisdom"
41 #else 40 #else
42 #define FFTSRC "@sc{Fftpack}" 41 #define FFTSRC "@sc{Fftpack}"
43 #define WISDOM
44 #endif 42 #endif
45 43
46 static octave_value 44 static octave_value
47 do_fft2 (const octave_value_list &args, const char *fcn, int type) 45 do_fft2 (const octave_value_list &args, const char *fcn, int type)
48 { 46 {
149 zeros.\n\ 147 zeros.\n\
150 \n\ 148 \n\
151 If @var{a} is a multi-dimensional matrix, each two-dimensional sub-matrix\n\ 149 If @var{a} is a multi-dimensional matrix, each two-dimensional sub-matrix\n\
152 of @var{a} is treated seperately\n\ 150 of @var{a} is treated seperately\n\
153 @end deftypefn\n\ 151 @end deftypefn\n\
154 @seealso {ifft2, fft, fftn" 152 @seealso {ifft2, fft, fftn fftw_wisdom}")
155 WISDOM
156 "}")
157 { 153 {
158 return do_fft2(args, "fft2", 0); 154 return do_fft2 (args, "fft2", 0);
159 } 155 }
160 156
161 157
162 DEFUN_DLD (ifft2, args, , 158 DEFUN_DLD (ifft2, args, ,
163 "-*- texinfo -*-\n\ 159 "-*- texinfo -*-\n\
170 zeros.\n\ 166 zeros.\n\
171 \n\ 167 \n\
172 If @var{a} is a multi-dimensional matrix, each two-dimensional sub-matrix\n\ 168 If @var{a} is a multi-dimensional matrix, each two-dimensional sub-matrix\n\
173 of @var{a} is treated seperately\n\ 169 of @var{a} is treated seperately\n\
174 @end deftypefn\n\ 170 @end deftypefn\n\
175 @seealso {fft2, ifft, ifftn" 171 @seealso {fft2, ifft, ifftn, fftw_wisdom}")
176 WISDOM
177 "}")
178 { 172 {
179 return do_fft2(args, "ifft2", 1); 173 return do_fft2 (args, "ifft2", 1);
180 } 174 }
181 175
182 /* 176 /*
183 ;;; Local Variables: *** 177 ;;; Local Variables: ***
184 ;;; mode: C++ *** 178 ;;; mode: C++ ***