clear
home
[NOME_FILE,PATH_FILE] = uigetfile( '*.txt', 'Nome do arquivo' );
fid = fopen( fullfile( PATH_FILE, NOME_FILE ), 'r' );
TEXTO = fgetl( fid );
fclose( fid );

figure, hist( double(TEXTO), 1:255 )
[ yh, xh ] = hist( double(TEXTO), 1:255 );
for j=1:255
if yh(j)>0
disp( sprintf( '%3d %s %d', j, char(j), yh(j) ) )
end
end

BLABLABLA = char( gera_inteiro(yh,50).' )
