fil.m

mpsk加高斯信道传输模型

function y=fil(x,nsample,roolfactor,mode)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%          函数完成信号的脉冲成型               %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%参数说明
%    x          输入信号序列
%    nsample    重采样个数
%    roolfactor 滚降系数[0 1]
%    mode       滤波器选择
%    mode=1     矩形脉冲
%    mode=2     升余弦脉冲
%    mode=3     平方根升余弦脉冲

%函数体
delay=3;
switch mode
    case 1,
        y=rectpulse(x,nsample);
    case 2,
        rr=rcosine(1,nsample,'fir/normal',roolfactor);%产生升余弦滤波器
        y=rcosflt(x,1,nsample,'filter',rr);
        y=y(nsample*delay+1:end-nsample*delay)';
    case 3,
        rr=rcosine(1,nsample,'sqrt',roolfactor);%产生升余弦滤波器
        y=rcosflt(x,1,nsample,'filter',rr);
        y=y(nsample*delay+1:end-nsample*delay)';
end