%% Compara tamanhos
clear
figure
% NOMEs = { 'Lista_Portugues.txt'; 'Lista_Portugues2.txt'; ...
%    'Lista_Ingles.txt' }
NOMEs = { 'Lista_Portugues.txt'; 'Lista_Ingles.txt'; ...
    'Lista_Holandes.txt' };

NOMEs = { 'Lista_Portugues.txt'; ...
    'Lista_Limpa_Portugues.txt' };

NOMEs = { 'Lista_Frances.txt'; ...
    'Lista_Limpa_Frances.txt' };

NOMEs = { 'Lista_Limpa_Portugues.txt'; ...
    'Lista_Limpa_Frances.txt'; ...
    'Lista_Limpa_Ingles.txt' };

for qN = 1 : length( NOMEs )
    NOME_atu = NOMEs{qN};
    
    [ LISTA, tamanhos ] = leia_lista( NOME_atu );
%    subplot(length(NOMEs),1,qN)
    [ Yh(:,qN), Xh(:,qN) ] = hist( tamanhos, 1:20 );
    TAM{qN} = tamanhos;
%    bar( Xh, Yh )
%    NOME_titulo = NOME_atu;
%    NOME_titulo( NOME_titulo=='_' ) = ' ';
%    title( sprintf( '%s', NOME_titulo ) )
%    title( sprintf( '%s', NOME_titulo ), 'fontsize', 16 )
end
YhN = [ Yh ./ repmat( sum(Yh), size(Yh,1), 1 ) ];
bar( Xh, 100*YhN, 1.3 )
h = get( gca, 'children' );
set( h(1), 'Facecolor',  'r' )
set( h(2), 'Facecolor',  'g' )
xlim( [0 21] )
set( gca, 'tickdir', 'out' )
set( gca, 'xtick', 2:2:20 )
set( gca, 'xminorTick', 'on' )
% Js = {}; 
% for qJ = 1: 20, Js{qJ} = num2str(qJ); end
% Js(1:2:19) = {''};
% set( gca, 'xticklabel', Js )

set( gca, 'ytick', 5:5:max(100*YhN(:)) )
set( gca, 'yminorTick', 'on' )
% Js = {}; 
% for qJ = 1: 20
%     if mod(qJ,5)==0
%         Js{qJ} = num2str(qJ); 
%     else
%         Js{qJ} = '';
%     end
% end
% set( gca, 'yticklabel', Js )

set( gca, 'fontsize', 16 )
xlabel( 'Número de letras', 'fontsize', 18 )
ylabel( 'Frequência relativa (em %)', 'fontsize', 18 )
legend( NOMEs, 'interpreter', 'none' )
set( gca, 'linewidth', 2 )
