Отправлено Ilhom 05 июня 2002 г. 17:34 В ответ на: Ответ: Была такая же проблема, накачал много всякого добра из инета... отправлено Vist 05 июня 2002 г. 14:29

{fir coefficients}
const
filter_len = 24;
var
i:integer;
h:array [0..filter_len] of real;
cutoff_freq:real;

begin
cutoff_freq := 0.08;
for i:=0 to filter_len do begin
if (i - filter_len/2) = 0 then
h[i] := 2*Pi*cutoff_freq
else
h[i] := sin(2*pi*cutoff_freq*(i-filter_len/2)) /(i-filter_len/2);
h[i] := H[I] * (0.54 - 0.46*COS(2*PI*I/filter_len));
end;
writeln(#13#10'---------------');
for i:=0 to filter_len do begin
if i mod 5 = 0 then writeln;
write(h[i]:0:5, ',');
end;
end.