代码：

%% ------------------------------------------------------------------------

%%            Output Info about this m-file

fprintf('\n***********************************************************\n');

fprintf('        <DSP using MATLAB> Problem 8.8 \n\n');

banner();

%% ------------------------------------------------------------------------

% digital iir highpass filter

b = [1 -1];

a = [1 -0.9];

figure('NumberTitle', 'off', 'Name', 'Problem 8.8 Pole-Zero Plot')

set(gcf,'Color','white');

zplane(b,a);

title(sprintf('Pole-Zero Plot'));

%pzplotz(b,a);

% corresponding system function  Direct form

K = 1;                                                                     % gain parameter

b = K*b;                                                                    % denominator

a = a;                                                                      % numerator

[db, mag, pha, grd, w] = freqz_m(b, a);

% ---------------------------------------------------------------------

%  Choose the gain parameter of the filter, maximum gain is equal to 1

% ---------------------------------------------------------------------

gain1=max(mag)                    % with poles

K = 1/gain1

[db, mag, pha, grd, w] = freqz_m(K*b, a);

figure('NumberTitle', 'off', 'Name', 'Problem 8.8 IIR highpass filter')

set(gcf,'Color','white'); 

subplot(2,2,1); plot(w/pi, db); grid on; axis([0 2 -60 10]);

set(gca,'YTickMode','manual','YTick',[-60,-30,0])

set(gca,'YTickLabelMode','manual','YTickLabel',['60';'30';' 0']);

set(gca,'XTickMode','manual','XTick',[0,0.25,0.5,1,1.5,1.75,2]);

xlabel('frequency in \pi units'); ylabel('Decibels'); title('Magnitude Response in dB');

subplot(2,2,3); plot(w/pi, mag); grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Absolute'); title('Magnitude Response in absolute');

set(gca,'XTickMode','manual','XTick',[0,0.25,0.5,1,1.5,1.75,2]);

set(gca,'YTickMode','manual','YTick',[0,1.0]);

subplot(2,2,2); plot(w/pi, pha); grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Rad'); title('Phase Response in Radians');

subplot(2,2,4); plot(w/pi, grd*pi/180);  grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Rad'); title('Group Delay');

set(gca,'XTickMode','manual','XTick',[0,0.25,0.5,1,1.5,1.75,2]);

%set(gca,'YTickMode','manual','YTick',[0,1.0]);

% Impulse Response

fprintf('\n----------------------------------');

fprintf('\nPartial fraction expansion method: \n');

[R, p, c] = residuez(K*b,a)

MR = (abs(R))'              % Residue  Magnitude

AR = (angle(R))'/pi         % Residue  angles in pi units

Mp = (abs(p))'              % pole  Magnitude

Ap = (angle(p))'/pi         % pole  angles in pi units

[delta, n] = impseq(0,0,50);

h_chk = filter(K*b,a,delta);      % check sequences

% ------------------------------------------------------------------------------------------------

%                                gain parameter K=0.95

% ------------------------------------------------------------------------------------------------

h =  ( 0.9.^n ) .* (-0.1056) + 1.0556 * delta;

% ------------------------------------------------------------------------------------------------

figure('NumberTitle', 'off', 'Name', 'Problem 8.8 IIR hp filter, h(n) by filter and Inv-Z ')

set(gcf,'Color','white'); 

subplot(2,1,1); stem(n, h_chk); grid on; %axis([0 2 -60 10]);

xlabel('n'); ylabel('h\_chk'); title('Impulse Response sequences by filter');

subplot(2,1,2); stem(n, h); grid on; %axis([0 1 -100 10]);

xlabel('n'); ylabel('h'); title('Impulse Response sequences by Inv-Z');

[db, mag, pha, grd, w] = freqz_m(h, [1]);

figure('NumberTitle', 'off', 'Name', 'Problem 8.8 IIR filter, h(n) by Inv-Z ')

set(gcf,'Color','white'); 

subplot(2,2,1); plot(w/pi, db); grid on; axis([0 2 -60 10]);

set(gca,'YTickMode','manual','YTick',[-60,-30,0])

set(gca,'YTickLabelMode','manual','YTickLabel',['60';'30';' 0']);

set(gca,'XTickMode','manual','XTick',[0,0.25,1,1.75,2]);

xlabel('frequency in \pi units'); ylabel('Decibels'); title('Magnitude Response in dB');

subplot(2,2,3); plot(w/pi, mag); grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Absolute'); title('Magnitude Response in absolute');

set(gca,'XTickMode','manual','XTick',[0,0.25,1,1.75,2]);

set(gca,'YTickMode','manual','YTick',[0,1.0]);

subplot(2,2,2); plot(w/pi, pha); grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Rad'); title('Phase Response in Radians');

subplot(2,2,4); plot(w/pi, grd*pi/180);  grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Rad'); title('Group Delay');

set(gca,'XTickMode','manual','XTick',[0,0.25,1,1.75,2]);

%set(gca,'YTickMode','manual','YTick',[0,1.0]);

% --------------------------------------------------

%               digital IIR comb filter

% --------------------------------------------------

b = K*[1  0  0  0  0  0  -1];

a = [1  0  0  0  0  0  -0.9];

figure('NumberTitle', 'off', 'Name', 'Problem 8.8 Pole-Zero Plot')

set(gcf,'Color','white');

zplane(b,a);

title(sprintf('Pole-Zero Plot'));

[db, mag, pha, grd, w] = freqz_m(b, a);

figure('NumberTitle', 'off', 'Name', 'Problem 8.8 IIR comb filter')

set(gcf,'Color','white'); 

subplot(2,2,1); plot(w/pi, db); grid on; axis([0 2 -60 10]);

set(gca,'YTickMode','manual','YTick',[-60,-30,0])

set(gca,'YTickLabelMode','manual','YTickLabel',['60';'30';' 0']);

set(gca,'XTickMode','manual','XTick',[0,0.25,0.5,1,1.5,1.75,2]);

xlabel('frequency in \pi units'); ylabel('Decibels'); title('Magnitude Response in dB');

subplot(2,2,3); plot(w/pi, mag); grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Absolute'); title('Magnitude Response in absolute');

set(gca,'XTickMode','manual','XTick',[0,0.25,0.5,1,1.5,1.75,2]);

set(gca,'YTickMode','manual','YTick',[0,1.0]);

subplot(2,2,2); plot(w/pi, pha); grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Rad'); title('Phase Response in Radians');

subplot(2,2,4); plot(w/pi, grd*pi/180);  grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Rad'); title('Group Delay');

set(gca,'XTickMode','manual','XTick',[0,0.25,0.5,1,1.5,1.75,2]);

%set(gca,'YTickMode','manual','YTick',[0,1.0]);

% Impulse Response

fprintf('\n----------------------------------');

fprintf('\nPartial fraction expansion method: \n');

[R, p, c] = residuez(b,a)

MR = (abs(R))'              % Residue  Magnitude

AR = (angle(R))'/pi         % Residue  angles in pi units

Mp = (abs(p))'              % pole  Magnitude

Ap = (angle(p))'/pi         % pole  angles in pi units

[delta, n] = impseq(0,0,250);

h_chk = filter(b,a,delta);      % check sequences

% ------------------------------------------------------------------------------------------------

%                                gain parameter K=0.95

% ------------------------------------------------------------------------------------------------

%h =  0.0211 * (( 0.9791.^n ) .* (2*cos(0.4*pi*n) + 2*cos(0.8*pi*n) + 1)) - 0.0556*delta;  %L=5;

h =  -0.0176 * ( ( 0.9826.^n ) .* ( 2*cos(2*pi*n/3) + 2*cos(pi*n/3) + (-1).^n + 1) ) + 1.0556*delta;  %L=6;

% ------------------------------------------------------------------------------------------------

figure('NumberTitle', 'off', 'Name', 'Problem 8.8 Comb filter, h(n) by filter and Inv-Z ')

set(gcf,'Color','white'); 

subplot(2,1,1); stem(n, h_chk); grid on; %axis([0 2 -60 10]);

xlabel('n'); ylabel('h\_chk'); title('Impulse Response sequences by filter');

subplot(2,1,2); stem(n, h); grid on; %axis([0 1 -100 10]);

xlabel('n'); ylabel('h'); title('Impulse Response sequences by Inv-Z');

[db, mag, pha, grd, w] = freqz_m(h, [1]);

figure('NumberTitle', 'off', 'Name', 'Problem 8.8 Comb filter, h(n) by Inv-Z ')

set(gcf,'Color','white'); 

subplot(2,2,1); plot(w/pi, db); grid on; axis([0 2 -60 10]);

set(gca,'YTickMode','manual','YTick',[-60,-30,0])

set(gca,'YTickLabelMode','manual','YTickLabel',['60';'30';' 0']);

set(gca,'XTickMode','manual','XTick',[0,0.25,1,1.75,2]);

xlabel('frequency in \pi units'); ylabel('Decibels'); title('Magnitude Response in dB');

subplot(2,2,3); plot(w/pi, mag); grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Absolute'); title('Magnitude Response in absolute');

set(gca,'XTickMode','manual','XTick',[0,0.25,1,1.75,2]);

set(gca,'YTickMode','manual','YTick',[0,1.0]);

subplot(2,2,2); plot(w/pi, pha); grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Rad'); title('Phase Response in Radians');

subplot(2,2,4); plot(w/pi, grd*pi/180);  grid on; %axis([0 1 -100 10]);

xlabel('frequency in \pi units'); ylabel('Rad'); title('Group Delay');

set(gca,'XTickMode','manual','XTick',[0,0.25,1,1.75,2]);

%set(gca,'YTickMode','manual','YTick',[0,1.0]);

　　运行结果：

增益系数K

单个iir高通滤波器，零极点图

L=6阶梳状，系统函数部分分式展开

零极点的模和幅角

直接形式分子、分母系数直接求幅度谱、相位谱和群延迟

依据梳状滤波器系统函数部分分式展开，求逆z变换得到脉冲响应序列，由其求幅度谱、相位谱和群延迟，如下

直接形式求法和逆z变换求法，幅度谱、相位谱一致，但群延迟不同。

《DSP using MATLAB》Problem 8.8的更多相关文章

  1. 《DSP using MATLAB》Problem 7.27

    代码: %% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ %% Output In ...

  2. 《DSP using MATLAB》Problem 7.26

    注意:高通的线性相位FIR滤波器,不能是第2类,所以其长度必须为奇数.这里取M=31,过渡带里采样值抄书上的. 代码: %% +++++++++++++++++++++++++++++++++++++ ...

  3. 《DSP using MATLAB》Problem 7.25

    代码: %% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ %% Output In ...

  4. 《DSP using MATLAB》Problem 7.24

    又到清明时节,…… 注意:带阻滤波器不能用第2类线性相位滤波器实现,我们采用第1类,长度为基数,选M=61 代码: %% +++++++++++++++++++++++++++++++++++++++ ...

  5. 《DSP using MATLAB》Problem 7.23

    %% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ %% Output Info a ...

  6. 《DSP using MATLAB》Problem 7.16

    使用一种固定窗函数法设计带通滤波器. 代码: %% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ...

  7. 《DSP using MATLAB》Problem 7.15

    用Kaiser窗方法设计一个台阶状滤波器. 代码: %% +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ...

  8. 《DSP using MATLAB》Problem 7.14

    代码: %% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ %% Output In ...

  9. 《DSP using MATLAB》Problem 7.13

    代码: %% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ %% Output In ...

  10. 《DSP using MATLAB》Problem 7.12

    阻带衰减50dB,我们选Hamming窗 代码: %% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ...

随机推荐

  1. 如何读懂Web服务的系统架构图

    Web服务的一个重要特点就是流量大.数据多,仅靠一台服务器肯定难以支撑大规模的服务. 所以我们经常会看到诸如以下的一些术语,教人好生不懂: *:系统架构.物理架构.Web服务基础设施 *:应用服务器 ...

  2. 传统的dom的渲染方式

    DOM渲染的过程大致分为三个阶段: 后端渲染 前端渲染 独立DOM渲染(前后端相结合渲染) 1.后端渲染:DOM树的生成完全是在后端服务器中完成的,后端服务器的程序会把需要的数据拼合成一个类似于前端D ...

  3. leetcode-157周赛-5213-玩筹码

    题目描述: 自己的提交: class Solution: def minCostToMoveChips(self, chips: List[int]) -> int: res = float(' ...

  4. [JZOJ6340] 【NOIP2019模拟2019.9.4】B

    题目 题目大意 给你个非负整数数列\(a\),每次等概率选择大于零的\(a_i\),使其减\(1\). 问\(a_1\)被减到\(0\)的时候期望经过多少次操作. 思考历程 对于这题的暴力做法,显然可 ...

  5. SQL Server Download

    { https://www.microsoft.com/zh-cn/sql-server/sql-server-downloads }

  6. windows 嵌入控制台

    { 实际非常简单 需要控制台的hwnd 和 hdc 能获取控制台的hwnd 那hdc 就出来了 有了hdc 还有什么不能干的呢?? 如果会win32 窗口编程的就知道hdc,是一个让人流口水的类型 } ...

  7. Parse-轻松构建移动APP的后台服务

    目前正在开发的产品告一段落,有时间总结下经验,也顺便分享一下我们主要使用的平台-Parse. 什么是Parse?  Parse是一群美国人开发的专为移动APP服务的云计算平台,与现有的其他云计算平台相 ...

  8. 搭建CA颁发证书做https加密网站

    92.168.10.187 CA服务器 192.168.10.190 web服务器 (1)搭建CA cd /etc/pki/CA 在这个目录下创建serial和index.txt两个文件 echo 0 ...

  9. fatal error U1087: cannot have : and :: dependents for same target Stop.

    转自VC错误:http://www.vcerror.com/?p=72 问题描述: 完成后编译,发现有错误  D:\WinDDK\7600.16385.1\bin\makefile.new(7117) ...

  10. 二分查找总结及部分Lintcode题目分析 4

    二分法不只能像之前的记录,可以找到index~第二种类型是找到二分答案.有以下几个例子,都是之前二分法的扩展,不再赘述,只记录下忽略的点,以后回顾多注意~ 1. wood cut class Solu ...