b@0: function finddouble(foldername)
b@0: % FINDDOUBLE spots doubles of audio files in the same folder
b@0: % 
b@0: % by Brecht De Man at Centre for Digital Music on 15 July 2013
b@0: 
b@0: list = dir([foldername '\*.wav']);
b@0: sums = length(list)-1; 
b@0: for i = 1:length(list)
b@0:     audio = audioread([foldername '\' list(i).name]); 
b@0:     sums(i) = sum(sum(audio.^2));
b@0:     % find doubles in this list (method or manual)
b@0:     % find corresponding audio files; print their names
b@0: end
b@0: 
b@0: for i = 1:length(list)
b@0:     for j = i+1:length(list)
b@0:         if sums(i) == sums(j)
b@0:             disp(['ERROR: ' list(i).name ' = ' list(j).name])
b@0:         end
b@0:     end
b@0: end
b@0: 
b@0: end
b@0: 
b@0: % TODO: expand to more folders