from
NeuLoud (Calculates Loudness Level)
by Victor Espinoza
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