帮我看看数字信号处理第三版第十章第一个实验的的程序怎么改才行或者给我发个更好的也行啊

Posted 2023-03-22

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了帮我看看数字信号处理第三版第十章第一个实验的的程序怎么改才行或者给我发个更好的也行啊相关的知识，希望对你有一定的参考价值。

%实验1：系统响应及系统稳定性
close all;clear all
%======内容1：调用filter解差分方程，由系统对u(n)的响应判断稳定性======
A=[1,-0.9];B=[0.05,0.05]; %系统差分方程系数向量B和A
x1n=[1 1 1 1 1 1 1 1 zeros(1,50)]; %产生信号x1(n)=R8(n)
x2n=ones(1,128); %产生信号x2(n)=u(n)
hn=impz(B,A,58); %求系统单位脉冲响应h(n)
subplot(2,2,1);y='h(n)';tstem(hn,y); %调用函数tstem绘图
title('(a) 系统单位脉冲响应h(n)');box on
y1n=filter(B,A,x1n); %求系统对x1(n)的响应y1(n)
subplot(2,2,2);y='y1(n)';tstem(y1n,y);
title('(b) 系统对R8(n)的响应y1(n)');box on
y2n=filter(B,A,x2n); %求系统对x2(n)的响应y2(n)
subplot(2,2,4);y='y2(n)';tstem(y2n,y);
title('(c) 系统对u(n)的响应y2(n)');box on
%===内容2：调用conv函数计算卷积============================
x1n=[1 1 1 1 1 1 1 1 ]; %产生信号x1(n)=R8(n)
h1n=[ones(1,10) zeros(1,10)];
h2n=[1 2.5 2.5 1 zeros(1,10)];
y21n=conv(h1n,x1n);
y22n=conv(h2n,x1n);
figure(2)
subplot(2,2,1);y='h1(n)';tstem(h1n,y); %调用函数tstem绘图
title('(d) 系统单位脉冲响应h1(n)');box on
subplot(2,2,2);y='y21(n)';tstem(y21n,y);
title('(e) h1(n)与R8(n)的卷积y21(n)');box on
subplot(2,2,3);y='h2(n)';tstem(h2n,y); %调用函数tstem绘图
title('(f) 系统单位脉冲响应h2(n)');box on
subplot(2,2,4);y='y22(n)';tstem(y22n,y);
title('(g) h2(n)与R8(n)的卷积y22(n)');box on
%=========内容3：谐振器分析========================
un=ones(1,256); %产生信号u(n)
n=0:255;
xsin=sin(0.014*n)+sin(0.4*n); %产生正弦信号
A=[1,-1.8237,0.9801];B=[1/100.49,0,-1/100.49]; %系统差分方程系数向量B和A
y31n=filter(B,A,un); %谐振器对u(n)的响应y31(n)
y32n=filter(B,A,xsin); %谐振器对u(n)的响应y31(n)
figure(3)
subplot(2,1,1);y='y31(n)';tstem(y31n,y);
title('(h) 谐振器对u(n)的响应y31(n)');box on
subplot(2,1,2);y='y32(n)';tstem(y32n,y);
title('(i) 谐振器对正弦信号的响应y32(n)');box on

A=[1,-0.9];B=[0.05,0.05]; %系统差分方程系数向量B和A
x1n=[1 1 1 1 1 1 1 1 zeros(1,50)]; %产生信号x1(n)=R8(n)
x2n=ones(1,128); %产生信号x2(n)=u(n)
hn=impz(B,A,58); %求系统单位脉冲响应h(n)
subplot(2,2,1);y=hn;stem(hn,y); %调用函数tstem绘图
title('(a) 系统单位脉冲响应h(n)');
box on;y1n=filter(B,A,x1n); %求系统对x1(n)的响应y1(n)
subplot(2,2,2);y=y1n;stem(y1n,y);title('(b) 系统对R8(n)的响应y1(n)');box on;y2n=filter(B,A,x2n); %求系统对x2(n)的响应y2(n)
subplot(2,2,4);y=y2n;stem(y2n,y);title('(c) 系统对u(n)的响应y2(n)');box on

好好看看这个，跟原来仔细比较，看看改了哪里，后面的一样的改法参考技术A %实验1：系统响应及系统稳定性
close all;clear all
%======内容1：调用filter解差分方程，由系统对u(n)的响应判断稳定性======
A=[1,-0.9];B=[0.05,0.05]; %系统差分方程系数向量B和A
x1n=[1 1 1 1 1 1 1 1 zeros(1,50)]; %产生信号x1(n)=R8(n)
x2n=ones(1,128); %产生信号x2(n)=u(n)
hn=impz(B,A,58); %求系统单位脉冲响应h(n)
subplot(2,2,1);y='h(n)';tstem(hn,y); %调用函数tstem绘图
title('(a) 系统单位脉冲响应h(n)');box on
y1n=filter(B,A,x1n); %求系统对x1(n)的响应y1(n)
subplot(2,2,2);y='y1(n)';tstem(y1n,y);
title('(b) 系统对R8(n)的响应y1(n)');box on
y2n=filter(B,A,x2n); %求系统对x2(n)的响应y2(n)
subplot(2,2,4);y='y2(n)';tstem(y2n,y);
title('(c) 系统对u(n)的响应y2(n)');box on
%===内容2：调用conv函数计算卷积============================
x1n=[1 1 1 1 1 1 1 1 ]; %产生信号x1(n)=R8(n)
h1n=[ones(1,10) zeros(1,10)];
h2n=[1 2.5 2.5 1 zeros(1,10)];
y21n=conv(h1n,x1n);
y22n=conv(h2n,x1n);
figure(2)
subplot(2,2,1);y='h1(n)';tstem(h1n,y); %调用函数tstem绘图
title('(d) 系统单位脉冲响应h1(n)');box on
subplot(2,2,2);y='y21(n)';tstem(y21n,y);
title('(e) h1(n)与R8(n)的卷积y21(n)');box on
subplot(2,2,3);y='h2(n)';tstem(h2n,y); %调用函数tstem绘图
title('(f) 系统单位脉冲响应h2(n)');box on
subplot(2,2,4);y='y22(n)';tstem(y22n,y);
title('(g) h2(n)与R8(n)的卷积y22(n)');box on
%=========内容3：谐振器分析========================
un=ones(1,256); %产生信号u(n)
n=0:255;
xsin=sin(0.014*n)+sin(0.4*n); %产生正弦信号
A=[1,-1.8237,0.9801];B=[1/100.49,0,-1/100.49]; %系统差分方程系数向量B和A
y31n=filter(B,A,un); %谐振器对u(n)的响应y31(n)
y32n=filter(B,A,xsin); %谐振器对u(n)的响应y31(n)
figure(3)
subplot(2,1,1);y='y31(n)';tstem(y31n,y);
title('(h) 谐振器对u(n)的响应y31(n)');box on
subplot(2,1,2);y='y32(n)';tstem(y32n,y);
title('(i) 谐振器对正弦信号的响应y32(n)');box on