数字信号处理实验

子程序：functionmyplot(B,A)%myplot(B,A)%时域离散系统损耗函数绘图%B为系统函数分子多项式系数向量%A为系统函数分母多项式系数向量[H,W]=freqz(B,A,1000);m=abs(H);plot(W/pi,20*log10(m/max(m)));gridon;xlabel('\omega/\pi');ylabel('幅度(dB)')axis([0,1,-80,5]);title('损耗函数曲线');functiontplot(xn,T,yn)%时域序列连续曲线绘图函数%xn:信号数据序列，yn:绘图信号的纵坐标名称（字符串）%T为采样间隔n=0:length(xn)-1;t=n*T;plot(t,xn);xlabel('t/s');ylabel(yn);axis([0,t(end),min(xn),1.2*max(xn)])程序：%实验4程序exp4.m%IIR数字滤波器设计及软件实现clearall;closeallFs=10000;T=1/Fs;%采样频率%调用信号产生函数mstg产生由三路抑制载波调幅信号相加构成的复合信号stst=mstg;%低通滤波器设计与实现=========================================fp=280;fs=450;wp=2*fp/Fs;ws=2*fs/Fs;rp=0.1;rs=60;%DF指标（低通滤波器的通、阻带边界频）[N,wp]=ellipord(wp,ws,rp,rs);%调用ellipord计算椭圆DF阶数N和通带截止频率wp[B,A]=ellip(N,rp,rs,wp);%调用ellip计算椭圆带通DF系统函数系数向量B和Ay1t=filter(B,A,st);%滤波器软件实现%低通滤波器设计与实现绘图部分figure(2);subplot(3,1,1);myplot(B,A);%调用绘图函数myplot绘制损耗函数曲线yt='y_1(t)';subplot(3,1,2);tplot(y1t,T,yt);%调用绘图函数tplot绘制滤波器输出波形%带通滤波器设计与实现====================================================fpl=440;fpu=560;fsl=275;fsu=900;wp=[2*fpl/Fs,2*fpu/Fs];ws=[2*fsl/Fs,2*fsu/Fs];rp=0.1;rs=60;[N,wp]=ellipord(wp,ws,rp,rs);%调用ellipord计算椭圆DF阶数N和通带截止频率wp[B,A]=ellip(N,rp,rs,wp);%调用ellip计算椭圆带通DF系统函数系数向量B和Ay2t=filter(B,A,st);%滤波器软件实现%带通滤波器设计与实现绘图部分figure(3);subplot(3,1,1);myplot(B,A);%调用绘图函数myplot绘制损耗函数曲线yt='y_1(t)';subplot(3,1,2);tplot(y2t,T,yt);%调用绘图函数tplot绘制滤波器输出波形%高通滤波器设计与实现================================================fp=890;fs=600;wp=2*fp/Fs;ws=2*fs/Fs;rp=0.1;rs=60;%DF指标（低通滤波器的通、阻带边界频）[N,wp]=ellipord(wp,ws,rp,rs);%调用ellipord计算椭圆DF阶数N和通带截止频率wp[B,A]=ellip(N,rp,rs,wp,'high');%调用ellip计算椭圆带通DF系统函数系数向量B和Ay3t=filter(B,A,st);%滤波器软件实现%高低通滤波器设计与实现绘图部分figure(3);subplot(3,1,1);myplot(B,A);%调用绘图函数myplot绘制损耗函数曲线yt='y_1(t)';subplot(3,1,2);tplot(y3t,T,yt);%调用绘图函数tplot绘制滤波器输出波形