annotate aux/finddouble.m @ 2:5e72201496c8
Bug fixes, added stripzeros function, added new loudness function, moved general documentation to top level, MATLAB_R2014b compatibility
| author |
Brecht De Man <b.deman@qmul.ac.uk> |
| date |
Mon, 17 Nov 2014 19:43:43 +0000 |
| parents |
4fd284285159 |
| children |
b28ffd29e6e1 |
| rev |
line source |
|
b@0
|
1 function finddouble(foldername)
|
|
b@0
|
2 % FINDDOUBLE spots doubles of audio files in the same folder
|
|
b@0
|
3 %
|
|
b@0
|
4 % by Brecht De Man at Centre for Digital Music on 15 July 2013
|
|
b@0
|
5
|
|
b@2
|
6
|
|
b@2
|
7 list = dir([foldername '\*.wav']); % find wav file names in folder
|
|
b@2
|
8 sums = zeros(length(list)); % array for every file (don't count '.')
|
|
b@2
|
9
|
|
b@0
|
10 for i = 1:length(list)
|
|
b@0
|
11 audio = audioread([foldername '\' list(i).name]);
|
|
b@0
|
12 sums(i) = sum(sum(audio.^2));
|
|
b@0
|
13 end
|
|
b@0
|
14
|
|
b@0
|
15 for i = 1:length(list)
|
|
b@0
|
16 for j = i+1:length(list)
|
|
b@0
|
17 if sums(i) == sums(j)
|
|
b@0
|
18 disp(['ERROR: ' list(i).name ' = ' list(j).name])
|
|
b@0
|
19 end
|
|
b@0
|
20 end
|
|
b@0
|
21 end
|
|
b@0
|
22
|
|
b@0
|
23 end
|
|
b@0
|
24
|
|
b@0
|
25 % TODO: expand to more folders |
