function X=fourier(x,N)
% Calcula a N pontos da transformada de fourier de uma sequencia (vetor x)
% implementado com 2 loops 'for'
% UFPR/DELT - Disciplina PDS - Prof. Eduardo Parente Ribeiro

X=zeros(1,N);
L=length(x);
for k=0:(N-1)
   S=0;
   for n=0:(L-1)
      S=S+x(n+1)*exp(-j*2*pi/N*k*n);
      end
   X(k+1)=S;
   end