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@4: list = dir([foldername '/*.wav']);  % find wav file names in folder
b@4: 
b@4: % remove hidden files from list
b@4: % see http://www.mathworks.co.uk/matlabcentral/newsreader/view_thread/258220
b@4: for k = length(list):-1:1
b@4:     fname = list(k).name;
b@4:     if fname(1) == '.'
b@4:         list(k) = [ ];
b@4:     end
b@4: end
b@4: 
b@4: sums = zeros(length(list));       % number for every file
b@2: 
b@0: for i = 1:length(list)
b@4:     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