Mercurial > octave-nkf
view src/ifft.cc @ 636:fae2bd91c027
[project @ 1994-08-23 18:39:50 by jwe]
author | jwe |
---|---|
date | Tue, 23 Aug 1994 18:39:50 +0000 |
parents | 8e4e7e5f307e |
children | 01da6806197b |
line wrap: on
line source
// f-ifft.cc -*- C++ -*- /* Copyright (C) 1993, 1994 John W. Eaton This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #include "dMatrix.h" #include "CMatrix.h" #include "tree-const.h" #include "user-prefs.h" #include "gripes.h" #include "error.h" #include "utils.h" #include "help.h" #include "defun-dld.h" DEFUN_DLD ("ifft", Fifft, Sifft,2, 1, "ifft (X): inverse fast fourier transform of a vector") { Octave_object retval; if (args.length () != 2) { print_usage ("ifft"); return retval; } tree_constant arg = args(1); if (empty_arg ("ifft", arg.rows (), arg.columns ()) < 0) return retval; if (arg.is_real_type ()) { Matrix m = arg.matrix_value (); if (! error_state) { ComplexMatrix mifft = m.ifourier (); retval = mifft; } } else if (arg.is_complex_type ()) { ComplexMatrix m = arg.complex_matrix_value (); if (! error_state) { ComplexMatrix mifft = m.ifourier (); retval = mifft; } } else { gripe_wrong_type_arg ("ifft", arg); } return retval; } /* ;;; Local Variables: *** ;;; mode: C++ *** ;;; page-delimiter: "^/\\*" *** ;;; End: *** */