%
close all;
figure;
%
% Testeando distribución exponencial.
%

rexp32 = @() rexp(3.2);

clear hbin h;

[hbin, h] = mkhisto(rexp32, 0, 12, 120, 100000);

subplot(2, 1, 1, 'FontSize', 12);

% Plot de barras.
%
bar(hbin, h);

%
% Testeando distribución de Gauss.
%
clear hbin h;

[hbin, h] = mkhisto(@rgauss, -5, 5, 80, 100);

subplot(2, 1, 2, 'FontSize', 12);

% Plot de barras.
%
bar(hbin, h);
