function [Yj,f,tj] = spectrograma( y, t, JANELA )
% [Yj,f,tj] = spectrograma( y, t, JANELA );

[Yj, ind ] = coisas_em_janelas( y, JANELA, ...
    @(x)my_fft(x, (1:length(x))*mean(diff(t)) ) );

tj = mean( t(ind),2 );

Fs = 1/mean(diff(t));
L = JANELA(1);
NFFT = 2^nextpow2(L);
f = Fs/2*linspace(0,1,NFFT/2+1);
