function [ t, y ] = leia_TCABR( DISP, SINAL )
% [ t, y ] = leia_TCABR( DISP, SINAL )
%
%   DISP eh o numero do disparo
%   SINAL eh o tipo de sinal, que pode ser:
%       IPlasma = ip 
%       Densidade = ne
%       MirnovRef = mref
%       MirnovN = mn
%       ou NOME_SINAL -> load( NOME_SINAL _DISP.dat )

% SINAL = lower( SINAL );
switch( lower( SINAL ) )
    case{ 'iplasma' 'ip' }
        A = load( sprintf( 'IPlasma_%d.dat', DISP ) );
        t = A(3:end,1);
        y = A(3:end,2);
    case{ 'densidade' 'ne' }
        B = load( sprintf( 'IntDensity03_%d.dat', DISP ) );
        t = B(:,1);
        y = B(:,2);
    case{ 'mirnovref' 'mref' }
        C = load( sprintf( 'BbMirnovRef_%d.dat', DISP ) );
        t = C(3:end,1);
        y = C(3:end,2);
    case{ 'mirnovn' 'mn' }
        for j = 24:-1:1
            C = load( sprintf( 'BbMirnovN%02d_%d.dat', j, DISP ) );
            t = C(3:end,1);
            y(:,j) = C(3:end,2);
        end
    otherwise
        NOME_ARQUIVO = sprintf( '%s_%d.dat', SINAL, DISP );
        if exist( NOME_ARQUIVO, 'file' )
            B = load( NOME_ARQUIVO );
            t = B(:,1);
            y = B(:,2);
        else
            warning( [ 'Arquivo ' NOME_ARQUIVO ' não encontrado' ] )
            t = [];
            y = [];
        end
%         try
%             B = load( sprintf( '%s_%d.dat', SINAL, DISP ) );
%             t = B(:,1);
%             y = B(:,2);
%         catch
%             NOME_ARQUIVO = sprintf( '%s_%d.dat', SINAL, DISP );
%             warning( [ 'Arquivo ' NOME_ARQUIVO ' não encontrado' ] )
%             t = [];
%             y = [];
%         end
end

