Отправлено alostap 01 ноября 2006 г. 17:17 В ответ на: может тут ктолибо подскажет... отправлено <font color=gray>dimkos</font> 01 ноября 2006 г. 14:49

% Вот простейший частотный детектор на матлабе.
% Выход детектора сохраняется в файл eks_out.pcm
% формат выходного файла 16-ти битное знаковое.

[x,FS,NBITS]=WAVREAD('c:\Temp\eks001.wav');
y = hilbert(x);
d = 4;
z = y(1:end-d+1).*conj( y(d:end) );
f = 2000 * angle(z);
%plot(f);

fid = fopen('c:\Temp\eks_out.pcm', 'w');
fwrite(fid, f, 'int16');
fclose(fid);