Вниз
Скачать: CL | DM;

помогите пожалуйста с фильтрами!!!   Найти похожие ветки 

 
belpyro ©   (2004-11-08 21:21) [0]

Уважаемые мастера!
У меня возникла такая проблема:
есть сигнал состоящий из комбинации трех частот в достаточно низкочастотной области - сотни герц (435, 500, 555, 625, 705, 795, 900). Необходимо достаточно четко их определить (это команды телеуправления усилительной станцией), чтобы определить какая команда пришла на вход звуковой карты компьютера. Может вы подскажете существуют ли методы программного определения либо спец компоненты для Делфи типа частотомера? и как это можно реализовать? Использовал компоненты MMtools, но существующий там фильтр не обеспечивает узкую полосу пропускания (десятки герц). Помогите если знаете, пожалуйста!
С уважением!
belpyro


 
Jel ©   (2004-11-08 22:36) [1]

ИМХО должно помочь быстрое преобразование Фурье (FFT) помучай поисковики на эту тему.


 
programania ©   (2004-11-09 01:01) [2]

Попробуйте умножить сигнал на SIN или/и COS этих частот
и просуммировать произведения,
на какой частоте синусоиды максимум, та частота и пришла.


 
Jeer ©   (2004-11-09 10:04) [3]

Алгоритм Герцеля - разновидность ДПФ.
Используется в тоновом декодировании DTMF.

function Goertzel(Buffer:array of double; frequency, samplerate: double):double;
var
 Qkn, Qkn1, Qkn2, Wkn, Mk : double;
 i : integer;
begin
Qkn:=0; Qkn1:=0;
Wkn:=2*PI*frequency/samplerate;
Mk:=2*Cos(Wkn);
for i:=0 to (Length(Buffer)-1) do begin
  Qkn2 := Qkn1; Qkn1 := Qkn;
  Qkn  := Buffer[i] + Mk*Qkn1 - Qkn2;
end;
Result := sqrt(Qkn*Qkn + Qkn1*Qkn1 - Mk*Qkn*Qkn1);
end;

Или использовать узкополосные нерекурсивные цифровые фильтры.

В любом случае предварительно сделать расчет по полосе исходя из требований (уровень, нестабильность, помехи)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c
1-1107707859
VasRog
2005-02-06 19:37
2005.02.20
Dec to Bin


4-1104517983
Zahar
2004-12-31 21:33
2005.02.20
Программа дефрагментации диска


14-1106953523
GanibalLector
2005-01-29 02:05
2005.02.20
Набережных С. - мастер!


1-1107434406
Dmitry_04
2005-02-03 15:40
2005.02.20
Как можно уменьшить мерцание формы при переносе?


1-1107275184
creage
2005-02-01 19:26
2005.02.20
Как обвести выделенный объект в TListView?




   Наверх