ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

《DSP using MATLAB》Problem 8.10

2019-06-10 23:40:57  阅读:355  来源: 互联网

标签:gca set title manual MATLAB ylabel using Problem pi


代码:

%% ------------------------------------------------------------------------
%%            Output Info about this m-file
fprintf('\n***********************************************************\n');
fprintf('        <DSP using MATLAB> Problem 8.10 \n\n');
banner();
%% ------------------------------------------------------------------------

%a0 = 0.90;
%a0 = 0.95;
a0 = 0.99;
% digital iir 1st-order allpass filter
b = [a0  1];
a = [1  a0];

figure('NumberTitle', 'off', 'Name', 'Problem 8.10 Pole-Zero Plot')
set(gcf,'Color','white'); 
zplane(b,a); 
title(sprintf('Pole-Zero Plot, r=%.2f',a0));
%pzplotz(b,a);

[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
[db, mag, pha, grd, w] = freqz_m(K*b, a);

figure('NumberTitle', 'off', 'Name', 'Problem 8.10 IIR allpass 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]);


figure('NumberTitle', 'off', 'Name', 'Problem 8.10 IIR allpass filter')
set(gcf,'Color','white'); 
plot(w/pi, -pha/w); grid on; %axis([0 1 -100 10]); 
xlabel('frequency in \pi units'); ylabel('Rad'); title('Phase Delay in samples');



% 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  
% ------------------------------------------------------------------------------------------------
%h =  -0.2111 * ((-0.9) .^ n) + 1.1111 * delta;    %r=0.90
%h =  -0.1026 * ((-0.95) .^ n) + 1.0526 * delta;    %r=0.95
h =  -0.0201 * ((-0.99) .^ n) + 1.0101 * delta;    %r=0.99
% ------------------------------------------------------------------------------------------------


figure('NumberTitle', 'off', 'Name', 'Problem 8.10 IIR allpass 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.10 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]);

  运行结果:

       第1、2小题的图这里不放了。

        相位延迟phase-delay为0.01时对应的a 的值0.9802

        此时1阶全通系统的留数、极点为

        系统零极点图

        该系统部分分式展开后,求逆z变换得脉冲响应

        由下图知,两种方法得到的系统脉冲响应h的幅度谱、相位谱、群延迟大致类似(ω=π时不同)。

标签:gca,set,title,manual,MATLAB,ylabel,using,Problem,pi
来源: https://www.cnblogs.com/ky027wh-sx/p/11001129.html

本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享;
2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关;
3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关;
4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除;
5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有