V_RHARTLEY Calculate the Hartley transform of real data Y=(X,N) Data is truncated/padded to length N if specified. The inverse transformation is x=hartley(y,n)/n
0001 function y=v_rhartley(x,n) 0002 %V_RHARTLEY Calculate the Hartley transform of real data Y=(X,N) 0003 % Data is truncated/padded to length N if specified. 0004 % The inverse transformation is x=hartley(y,n)/n 0005 0006 % Copyright (C) Mike Brookes 1998 0007 % Version: $Id: v_rhartley.m 10865 2018-09-21 17:22:45Z dmb $ 0008 % 0009 % VOICEBOX is a MATLAB toolbox for speech processing. 0010 % Home page: http://www.ee.ic.ac.uk/hp/staff/dmb/voicebox/voicebox.html 0011 % 0012 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0013 % This program is free software; you can redistribute it and/or modify 0014 % it under the terms of the GNU General Public License as published by 0015 % the Free Software Foundation; either version 2 of the License, or 0016 % (at your option) any later version. 0017 % 0018 % This program is distributed in the hope that it will be useful, 0019 % but WITHOUT ANY WARRANTY; without even the implied warranty of 0020 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 0021 % GNU General Public License for more details. 0022 % 0023 % You can obtain a copy of the GNU General Public License from 0024 % http://www.gnu.org/copyleft/gpl.html or by writing to 0025 % Free Software Foundation, Inc.,675 Mass Ave, Cambridge, MA 02139, USA. 0026 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0027 0028 if nargin < 2 0029 y=fft(real(x)); 0030 else 0031 y=fft(real(x),n); 0032 end 0033 y=real(y)-imag(y);