pitch_est_method_2.m

% %[x, fs] = wavread('bee.wav'); x = x(1000:1480);
% r = spCorrel(x, fs, [], 'plot');
% 
% %[x, fs] = wavread('bee.wav'); x = x(1000:1480);
% global f0;
  global sout3;
%  global audioObject;
%  fs = audioObject.SampleRate;
% global r;




fs = 8000;
x = sout3;
%x = x(1000:1480);
[r] = spCorrelum(x, fs, []);
f0 = spPitchCorrel(r, fs);

%plot(r);
f0