Mercurial > hg > ape

view aux/loudnesstest.m @ 13:22964a1dc292

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Accurate EBU R128 / ITU-R BS.1770 loudness calculation; batch resample bash script
author Brecht De Man <b.deman@qmul.ac.uk>
date Tue, 26 Apr 2016 14:54:32 +0200
parents 0014c50188da
children
line wrap: on
line source
% test loudness.m

testfolder = '/Users/Brecht/Google Drive/Writings/ebur128-scripts/ebu-loudness-test-setv04/';

files = dir([testfolder '*.wav']);

tTotal = tic;
for file = files'
    [signal, fs] = audioread([testfolder file.name]);
    tic;
    IL = loudness(signal,fs); % calculate integrated loudness
    tCurrent = toc;
    fprintf('%s:\t%4.10f\t%d\t(%4.2f s)\n', file.name, IL, fs, tCurrent);
end
fprintf('Testing completed: %4.2f seconds elapsed\n', toc(tTotal));