Borland Programmer's Resource/Borland_Programmers_Resource_CD_1995.iso/utils/mathstud/ifft.m

Text File | 1995-05-19 | 467 b | 29 lines

function y=ifft(x,n)
%y=ifft(x,n)
%computes the inverse FFT of the input array, x
%n specifies the size of the required transform

%       S.Halevy 7/31/92
%       Copyright (c) 1992 by the MathWizards

if ~isvector(x)
   error('input argument should be a vector')
end

[xm,xn]=size(x);
x=x(:);

if nargin > 1
   nx = length(x);
   if nx > n
      x=x(1:n);
   else
      x(n)=0;
   end
end

y=_ifft(x)/length(x);
if xn > xm
   y=y.';
end