function [ Yj, ind_INI_FIM ] = coisas_em_janelas( X, JANELA, QCOISA )
% [ Yj, ind_INI_FIM ] = coisas_em_janelas( X, JANELA, QCOISA )

LARGURA = JANELA( 1 );
PASSO = JANELA( end );

NMax = length( X );
if NMax >= LARGURA
    jMax = fix( (NMax - LARGURA)/PASSO ) + 1;
    for j = jMax : -1 : 1
        i_INICIO = 1 + PASSO * ( j -1 );
        i_FIM = LARGURA + PASSO * ( j -1 );
        if isstr(QCOISA)
            QCOISAswitch = lower( QCOISA );
        else
            QCOISAswitch = '';
        end
        switch( QCOISAswitch )
            case{ 'std_detrend' 'std_til' }
                Yj( j, 1 ) = std( detrend(X( i_INICIO : i_FIM )) );
            case{ 'std' }
                Yj( j, 1 ) = std( X( i_INICIO : i_FIM ) );
            case{ 'mean' }
                Yj( j, 1 ) = mean( X( i_INICIO : i_FIM ) );
            case{ 'skewness' 'skew' }
                Yj( j, 1 ) = skewness( X( i_INICIO : i_FIM ) );
            case{ 'kurtosis' 'kurt' }
                Yj( j, 1 ) = kurtosis( X( i_INICIO : i_FIM ) );
            otherwise
                Yj( j, : ) = feval( QCOISA, X( i_INICIO : i_FIM ) );
        end
        
        ind_INI_FIM(j,:) = [ i_INICIO i_FIM ];
    end
else
    Yj = [];
    ind_INI_FIM = [];
end
