% IFT
%
% y=IFT(Y)
%   devuelve en y la inversa de la transformada discreta
%   de Fourier del vector Y
%   La implementacion es la directa
%
% Este programa forma parte del material auxiliar del texto
%
%   "Matlab en cinco lecciones de numerico"
%    por V. Dominguez y M.L. Rapun.
%
% Se permite la libre copia, distribucion y ejecucion con la 
% unica condicion de mencionar y el origen y autores.
%
% Mas informacion en 
%
%   http://www.unavarra.es/personal/victor_dominguez

function y = ift(Y)

Y=Y(:);      % y es columna ahora
n=length(Y);
w=exp(i*2*pi*(0:n-1)/n);
W=ones(1,n);
y=zeros(n,1);
for j=1:n
    y(j)=W*Y;
    W=W.*w;
end
return