clear
home

% dir *.txt
% NOME_FILE = input( 'Nome do arquivo texto:', 's' );
% fid = fopen( NOME_FILE, 'r' );

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

TEXTO = fgetl( fid );
fclose( fid );
ONDE_ESPACO = find( TEXTO==32 );
TAMANHOS = diff( ONDE_ESPACO ) - 1;
Tm = mean( TAMANHOS )
sT = std( TAMANHOS )
f1s = mean( abs(TAMANHOS-Tm)<=1*sT )
f2s = mean( abs(TAMANHOS-Tm)<=2*sT )
f3s = mean( abs(TAMANHOS-Tm)<=3*sT )
xis = linspace(0,(max(TAMANHOS)+1),1e3);
N = length( TAMANHOS );
yG = (N/(sqrt(2*pi)*sT))*exp(-.5*((xis-Tm)/sT).^2);

figure
hist( TAMANHOS, 1:max(TAMANHOS) )
hold on, plot( xis, yG, '-r', 'linewidth', 3 )
title( NOME_FILE )
