Mercurial > octave

comparison src/ifft.cc @ 2086:bfb775fb6fe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-04-25 05:55:19 by jwe]
author jwe
date Thu, 25 Apr 1996 05:55:19 +0000
parents 003570e69c7b
children 6abec42e52f6
comparison
equal deleted inserted replaced
2085:7603b37325db 2086:bfb775fb6fe8
36 // This function should be merged with Ffft. 36 // This function should be merged with Ffft.
37 37
38 DEFUN_DLD_BUILTIN (ifft, args, , 38 DEFUN_DLD_BUILTIN (ifft, args, ,
39 "ifft (X [, N]): inverse fast fourier transform of a vector") 39 "ifft (X [, N]): inverse fast fourier transform of a vector")
40 { 40 {
41 Octave_object retval; 41 octave_value_list retval;
42 42
43 int nargin = args.length (); 43 int nargin = args.length ();
44 44
45 if (nargin < 1 || nargin > 2) 45 if (nargin < 1 || nargin > 2)
46 { 46 {
47 print_usage ("ifft"); 47 print_usage ("ifft");
48 return retval; 48 return retval;
49 } 49 }
50 50
51 tree_constant arg = args(0); 51 octave_value arg = args(0);
52 52
53 int n_points = arg.rows (); 53 int n_points = arg.rows ();
54 if (n_points == 1) 54 if (n_points == 1)
55 n_points = arg.columns (); 55 n_points = arg.columns ();
56 56