clear
Ms = [1 2 3 5 10 100 ];
figure
for iM = 1:length(Ms)
  M_atu = Ms( iM );
  x = gera_x_ex_06_professor( 1e3, M_atu );
  subplot(3,2,iM)
  faz_histograma( x, 20 )
  S = skewness( x );
  K = kurtosis( x )
  title( sprintf( 'M=%d,  S=%.3f  K=%.3f',M_atu,S,K ) )
end