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@2: 
b@2: list = dir([foldername '\*.wav']);  % find wav file names in folder
b@2: sums = zeros(length(list));       % array for every file (don't count '.')
b@2: 
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: 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