数字信号处理实验程序清单

数字信号处理实验程序清单

ID:19908078

大小:73.50 KB

页数:8页

时间:2018-10-07

数字信号处理实验程序清单_第1页
数字信号处理实验程序清单_第2页
数字信号处理实验程序清单_第3页
数字信号处理实验程序清单_第4页
数字信号处理实验程序清单_第5页
资源描述:

《数字信号处理实验程序清单》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、实验一:系统响应及系统稳定性%实验1:系统响应及系统稳定性closeall;clearall%======内容1:调用filter解差分方程,由系统对u(n)的响应判断稳定性==A=[1,-0.9];B=[0.05,0.05];%系统差分方程系数向量B和Ax1n=[11111111zeros(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绘图

2、title('(a)系统单位脉冲响应h(n)');boxony1n=filter(B,A,x1n);%求系统对x1(n)的响应y1(n)subplot(2,2,2);y='y1(n)';tstem(y1n,y);title('(b)系统对R8(n)的响应y1(n)');boxony2n=filter(B,A,x2n);%求系统对x2(n)的响应y2(n)subplot(2,2,4);y='y2(n)';tstem(y2n,y);title('(c)系统对u(n)的响应y2(n)');boxon%===内容2:调用conv函数计算卷积========x1

3、n=[11111111];%产生信号x1(n)=R8(n)h1n=[ones(1,10)zeros(1,10)];h2n=[12.52.51zeros(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)');boxonsubplot(2,2,2);y='y21(n)';tstem(y21n,y);title('(e)h1(n)与R8(n)的卷积y21(

4、n)');boxonsubplot(2,2,3);y='h2(n)';tstem(h2n,y);%调用函数tstem绘图title('(f)系统单位脉冲响应h2(n)');boxonsubplot(2,2,4);y='y22(n)';tstem(y22n,y);title('(g)h2(n)与R8(n)的卷积y22(n)');boxon%=========内容3:谐振器分析================un=ones(1,256);%产生信号u(n)n=0:255;xsin=sin(0.014*n)+sin(0.4*n);%产生正弦信号A=[1,-1

5、.8237,0.9801];B=[1/100.49,0,-1/100.49];%系统差分方程系数向量B和Ay31n=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)');boxonsubplot(2,1,2);y='y32(n)';tstem(y32n,y);title('(i)谐振器对正弦信号的响应y32

6、(n)');boxontstem程序清单functiontstem(xn,yn)%时域序列绘图函数%xn:信号数据序列,yn:绘图信号的纵坐标名称(字符串)n=0:length(xn)-1;stem(n,xn,'.');boxonxlabel('n');ylabel(yn);axis([0,n(end),min(xn),1.2*max(xn)])实验二时域采样与频域采样1时域采样理论的验证程序清单%时域采样理论验证程序exp2a.mTp=64/1000;%观察时间Tp=64微秒%产生M长采样序列x(n)%Fs=1000;T=1/Fs;Fs=1000;T

7、=1/Fs;M=Tp*Fs;n=0:M-1;A=444.128;alph=pi*50*2^0.5;omega=pi*50*2^0.5;xnt=A*exp(-alph*n*T).*sin(omega*n*T);Xk=T*fft(xnt,M);%M点FFT[xnt)]yn='xa(nT)';subplot(3,2,1);tstem(xnt,yn);%调用自编绘图函数tstem绘制序列图boxon;title('(a)Fs=1000Hz');k=0:M-1;fk=k/Tp;subplot(3,2,2);plot(fk,abs(Xk));title('(a)T

8、*FT[xa(nT)],Fs=1000Hz');xlabel('f(Hz)');ylabel(

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。