clc
close all

%lectura señal de audio
[s FS]=wavread('output.wav');

%separar canales r y l
canal_r=s(:,1);
%canal_l=s(:,2);


d=1;
tam=size(canal_r);
tiempo=33e-3; % 33ms
numeromuestras=round(FS*tiempo);
tam2=tam(1)/numeromuestras;
figure;title('Distribución Weibull'); xlabel('Observación'); ylabel('Frecuencia');

while(d<(tam2-1))
    nueva=abs(round(canal_r(1452*d:1452*(d+1))*(2^8/2)+(2^8/2)));
    x=1:1:255;
    hist(nueva,x)
    pause(tiempo)
    d=d+1;
end