main2.m

理想低通滤波器特性曲线绘制 频率图分析 升余弦滤波器特性曲线绘制 频谱图分析 部分响应系统滤波器特性曲线

%升余弦滚降系统

global dt t df N
close all

N=2^13; %采样点数
L=32;   %每码元的采样点数
M=N/L   %码元数
Rb=2;		%码速率是2Mb/s
Ts=1/Rb;        %码元间隔
dt=Ts/L;        %时域采样间隔
df=1/(N*dt)     %频域采样间隔
T=N*dt          %截短时间
Bs=N*df/2       %系统带宽
Na=4;           %示波器扫描宽度为4个码元
alpha=input('请输入滚降系数（0到1之间的任意数）=');
if isempty(alpha),
    alpha=0.5;
end
t=[-T/2+dt/2:dt:T/2]; %时域横坐标
f=[-Bs+df/2:df:Bs];   %频域横坐标

g1=sin(pi*t/Ts)./(pi*t/Ts);%理想低通滤波器
g2=cos(alpha*pi*t/Ts)./(1-(2*alpha*t/Ts).^2);
g=g1.*g2;		 %升余弦脉冲波形

G=t2f(g);%傅里叶变换
figure(1)
 set(1,'Position',[10,50,300,200])
                %设定窗口位置及大小 
 
EP=zeros(size(f))+eps;
for ii=1:100
 a=sign(randn(1,M));

 imp=zeros(1,N);    %产生冲激序列
 imp(L/2:L:N)=a/dt;

 S=t2f(imp).*G;       %升余弦信号的傅氏变换
 s=f2t(t2f(imp).*G);  %升余弦信号的时域波形
 s=real(s);
 P=S.*conj(S)/T;      %升余弦信号的功率谱                                             
 EP=(EP*(ii-1)+P+eps)/ii;

 subplot(212)
 plot(f,30+10*log10(EP),'g');
 grid
 axis([-2,+2,0,30])
 xlabel('f (MHz)')
 ylabel('Ps(f)  (dBm/MHz)')
 title('余弦滚降滤波器频域特性')
end
subplot(211)
plot(t,g);%绘制理想低通滤波器特性
grid on
hold on
line([-4*pi 4*pi],[0 0])
axis([-6 6 -0.4 1.3])
title('余弦滚降滤波器的冲击响应')