function Desenhar(Nframes,Nvezes)
for k=1:Nframes
    % fft para obter transformada de Fourier
    % eye(T) para criar matriz identidade T por T
    % fft(eye(T)) matriz complexa com diversas potencias
    % da T-esima raiz da unidade, exp(i*2*pi/T)
    plot(fft(eye(k+16))) 
    axis equal
    % getframe para obter o grafico gerado
    M(k)= getframe
end
movie(M,Nvezes) % mostrar Nvezes vezes os frames gerados