Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.20;
Скачать: 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 вся ветка

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
1-1107390335
RamZeS
2005-02-03 03:25
2005.02.20
Как возвратить TStrings из dll?


1-1107452804
Aleks
2005-02-03 20:46
2005.02.20
передать его данные в Edit200.text с Form1.ActiveControl.Name;


1-1107852705
Erik1
2005-02-08 11:51
2005.02.20
Какую создать структуру для принятия решения о иницализации?


9-1100491033
ballack
2004-11-15 06:57
2005.02.20
Как избежать наезда спрайтов друг на друга...


14-1107338274
syte_ser78
2005-02-02 12:57
2005.02.20
блин!