Сигнальные процессоры. Аксенов В.П. - 123 стр.

if m > 1 z22(m) = z22(m-1);
end
if abs(z1) > 1 z1 = sign(0.5*(s1(m)+s1(m+2))/s1(m+1));
end
z22(m) = Fs*acos(z1)/(2*pi); % расчет частоты выходного сигнала
end
m=1:maxt;
subplot(1,2,2)
plot(m,z22)                   % график мгновенной частоты FВЫХ (m)
grid on                       % время t = m/FS
title ('частота выходного сигнала от m');


                                                                    ПРИЛОЖЕНИЕ 8

    Синтез полосового БИХ-фильтра при амплитудной манипуляции


%         Полосовой БИХ-фильтр , амплитудная манипуляция
%         функция - ellip
clear all; % уничтожаем все переменные
A = 5; Fs =32000; V = 600; % амплитуда, частота дискрет - ии, скорость
Rp = 1.5; Rs = 25; % пульсации и минимальное ослабление в децибелах
f1 = 6.0*V; f2 = f1; % f1 - частота входного сигнала
f3 = 0.40*f1; f4=0.85*f1; f5=1.35*f2; f6=1.75*f2;        % точки АЧХ ВЧ-фильтра
w3 = 2*f3/Fs; w4 = 2*f4/Fs; w5 = 2*f5/Fs; w6 = 2*f6/Fs; % нормированная частота
[n, Wn] = ellipord([w4,w5],[w3,w6], Rp,Rs);
 % определен порядок n фильтра
 % n=7; % меняем порядок n фильтра, найденный функцией ellipord
[b,a] = ellip (n,Rp,Rs,Wn);      % расчет коэфф-ов
[h,f]=freqz(b,a);                % расчет АЧХ фильтра
subplot(1,2,1) % 1-ый график АЧХ с автоматическим выбором масштаба
plot(f/pi,20*log10(abs(h))) % график АЧХ в логарифмическом масштабе
ylim([-80 10])
grid on          % включение сетки на графике
title ('АЧХ в децибелах');



                                            123