Changeset 59 for birds

Timestamp:

06/14/13 17:40:57 (12 years ago)

Author:

vcheplygina

Message:

 

Location:

birds

Files:

• domilbirds.m (modified) (2 diffs)
• specwhiten.m (modified) (1 diff)

birds/domilbirds.m

@@ -37 +37 @@
 axis xy; xlabel('time (s)'); ylabel('freq.');
 
-% smooth and threshold the spectrogram?
-G = fspecial('gaussian',[5 5],2); % window 5x5, sigma=2
+% do the same smoothing but change the threshold
+G = fspecial('gaussian',[5 5],2); 
 I = imfilter(abs(s2),G,'same');
 t = dd_threshold(I(:),0.95);
@@ -44 +44 @@
 mask(f<2000,:) = 0;
 
-figure(6); clf; imagesc(mask); axis xy;    %Ja, dit ziet er vergelijkbaar uit, iets minder kleine blobs aanwezig geloof ik? 
+figure(6); clf; imagesc(mask); axis xy;    %Looks pretty similar, but less small blobs 
 % measure something:
 x = regionprops(bwlabel(mask),abs(s2));

birds/specwhiten.m

@@ -35 +35 @@
     %P(f) = sqrt(eps + sum(s1(f,lowestix).^2));
     
-    P(f) = sum(s1(f,lowestix)) / length(lowestix);
+    P(f) = sum(s1(f,lowestix)) / length(lowestix);  %Version for segmentation
     s2(f,:) = s1(f,:) ./P(f);
 end