Code covered by the BSD License  

Highlights from
NeuLoud (Calculates Loudness Level)

NeuLoud (Calculates Loudness Level)

by

 

27 Mar 2012 (Updated )

Calculates Loudness Level according to ISO-226:2003 using Artificial Neural Networks for any SPL.

L=NeuLoud(f1,SPL1)
function L=NeuLoud(f1,SPL1)
% Esta funci�n es una actualizaci�n del trabajo de
% 
% Victor Espinoza, Rodolfo Venegas, Sergio Floody
% "Modelo de Sonoridad Utilizando Redes Neuronales"
% V Congreso Iberoamericano de Ac�stica FIA 2006
% Santiago, Chile, 25-28 Octubre 2006
% 
% L=NeuLoud(f,NPS)
% f     : frecuencia [Hz]
% NPS   : Nivel de presion Sonora [dB]
% L     : Nivel de sonoridad [Fon]
% 
% Este script es libre para uso academico citando debidamente la fuente
% Se prohibe el uso comercial de esta funcion
% 
% Agradecimientos a Rodolfo Venegas por el script original
% http://rodolfo.venegas.googlepages.com/
%
% Contacto:
% V�ctor Espinoza
% vespinozac@gmail.com
% https://sites.google.com/site/acusticavec/
%
% Actualizaci�n 3-Diciembre-2011 neuronas=[15 16 1]

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% This function is an update of work of
% 
% Victor Espinoza, Rodolfo Venegas, Sergio Floody
% "Modelo de Sonoridad Utilizando Redes Neuronales"
% "Loudness Model using Neural Networks"
% V Congreso Iberoamericano de Ac�stica FIA 2006
% Santiago, Chile, 25-28 Octubre 2006
% 
% L=NeuLoud(f,NPS)
% f     : frecuency [Hz]
% NPS   : Sound Pressure Level [dB]
% L     : Loudness Level [Fon]
% 
% This script is free for academic use of the source is quoted
% It prohibits commercial use of this function
% 
% Thanks to Rodolfo Venegas by the original script
% http://rodolfo.venegas.googlepages.com/
%
% Contact:
% V�ctor Espinoza
% vespinozac@gmail.com
% https://sites.google.com/site/acusticavec/

% Update December 3,2011 neurons=[15 16 1]


load('RedLoud')
L=NormOut*sim(NetFinal,[f1./Norm1 SPL1./Norm2]');

Contact us