b@0: function removesilent(foldername)
b@0: % REMOVESILENT removes audiofiles in folder <foldername> that are silent
b@0: % (compares maximum value against small number)
b@0: % 
b@0: % by Brecht De Man at Centre for Digital Music on 15 July 2013
b@0: 
b@0: MIN = 0.001;
b@0: WARNING = 0.1;
b@0: 
b@0: list = dir([foldername '/*.wav']);
b@0: for i = 2:length(list)
b@0:     [audio,fs] = audioread([foldername '/' list(i-1).name]); 
b@0:     S = max(max(audio.^2)); % max of squared values over all channels
b@0:     if S < MIN % if empty
b@0:         delete([foldername '/' list(i-1).name]); % remove this audio file
b@0:         fprintf('''%s'' removed (maximum squared value = %f < %f).', list(i-1).name, S, MIN);
b@0:     else if S < WARNING
b@0:            fprintf('''%s'': maximum squared value = %f < %f.', list(i-1).name, S, WARNING);
b@0:         end
b@0:     end
b@0: end
b@0: 
b@0: end