.
xlabel( '\\omega/\\pi'
);ylabel( ' 幅度 (dB)' )
axis([0,1,-80,5]);title(
' 损耗函数曲线 ' );
function tplot(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)]) function st=mstg N=2000;
Fs=10000;T=1/Fs;Tp=N*T; t=0:T:(N-1)*T;k=0:N-1;f=k/Tp; fc1=Fs/10; fm1=fc1/10; fc2=Fs/20; fm2=fc2/10; fc3=Fs/40; fm3=fc3/10;
xt1=cos(2*pi*fm1*t).*cos(2*pi*fc1*t);
.
.
xt2=cos(2*pi*fm2*t).*cos(2*pi*fc2*t); xt3=cos(2*pi*fm3*t).*cos(2*pi*fc3*t); st=xt1+xt2+xt3; fxt=fft(st,N); subplot(3,1,1)
plot(t,st);grid;xlabel(
't/s' );ylabel( 's(t)'
);
的波形 ' )
axis([0,Tp/8,min(st),max(st)]);title( subplot(3,1,2)
stem(f,abs(fxt)/max(abs(fxt)),
'(a) s(t)
'.' );grid;title( '(b) s(t) 的频
谱 ' )
axis([0,Fs/5,0,1.2]);
xlabel( 'f/Hz' );ylabel(
' 幅度 ' );
（实验 4_2）
（xtg 函数）：
function xt=xtg(N)
%实验五信号 x(t) 产生 , 并显示信号的幅频特性曲线
%xt=xtg(N) 产生一个长度为 N,有加性高频噪声的单频调幅信号
xt,
采样频率 Fs=1000Hz
%载波频率 fc=Fs/10=100Hz, 调制正弦波频率 f0=fc/10=10Hz.
N=2000;Fs=1000;T=1/Fs;Tp=N*T; t=0:T:(N-1)*T; fc=Fs/10;f0=fc/10;
%载波频率 fc=Fs/10 ，单频调制信号频率为
.
.
f0=Fc/10;
mt=cos(2*pi*f0*t);
%产生单频正弦波调制信号 mt，频率为 f0 %产生载波正弦波信号 ct ，频率为 fc %相乘产生单频调制信号 xt %产生随机噪声 nt
ct=cos(2*pi*fc*t);
xt=mt.*ct;
nt=2*rand(1,N)-1;
%=======设计高通滤波器 hn, 用于滤除噪声 nt 中的低频成分 , 生成高
通噪声 =======
fp=150; fs=200;Rp=0.1;As=70;
% 滤波器指标
fb=[fp,fs];m=[0,1];
% 计算 remezord 函数所需参数
f,m,dev
dev=[10^(-As/20),(10^(Rp/20)-1)/(10^(Rp/20)+1)]; [n,fo,mo,W]=remezord(fb,m,dev,Fs);
% 确定 remez 函数所需参
数
hn=remez(n,fo,mo,W);
% 调用 remez 函数进行设计 , 用于滤除
噪声 nt 中的低频成分
yt=filter(hn,1,10*nt);
%滤除随机噪声中低频成分，生成高
通噪声 yt
%========================================================== ====== xt=xt+yt;
%噪声加信号
fst=fft(xt,N);k=0:N-1;f=k/Tp;
subplot(3,1,1);plot(t,xt);grid;xlabel(
't/s' );ylabel(
'x(t)'
)
.
.
;
axis([0,Tp/5,min(xt),max(xt)]);title(
'(a)
信号加噪声波形 ' )
'(
subplot(3,1,2);plot(f,abs(fst)/max(abs(fst)));grid;title( b) 信号加噪声的频谱 ' )
axis([0,Fs/2,0,1.2]);xlabel(
'f/Hz' );ylabel( ' 幅度 ' )
（主程序源代码） ：
clear all ;close all ;
长度 N=1000,并显示 xt 及其频
%==调用 xtg 产生信号 xt, xt
谱 ,========= N=1000;xt=xtg(N);
fp=120; fs=150;Rp=0.2;As=60;Fs=1000;
T=1/Fs;
% 输入给定指
标
% (1) 用窗函数法设计滤波器
wc=(fp+fs)/Fs;
%理想低通滤波器截止频率 ( 关于 pi 归一化）
%过渡带宽度指标
B=2*pi*(fs-fp)/Fs; Nb=ceil(11*pi/B);
%blackman窗的长度 N
hn=fir1(Nb-1,wc,blackman(Nb)); Hw=abs(fft(hn,1024));
% 求设计的滤波器频率特性 %调用函数 fftfilt
对 xt 滤波
ywt=fftfilt(hn,xt,N);
figure(2);subplot(3,1,1); myplot(hn,xt);
%调用绘图函数 myplot 绘制损耗函数曲线
y1t= 'y_w(t)' ;
.