www.pudn.com > mod_qpsk.rar > rcos_shaped.m

function [seq_shaped]=rcos_shaped(seq,fre_cutoff,Fs,alpha) 
%				RCOS_SHAPED	形成升弦基波，seq为已抽样数序，fre_cutoff为 
%				截至频率，此时为原始数据率的一半Fd/2，Fs为抽样频率，alpha 
%				升余弦系数 
 
order=16;	% 阶数 
b=firrcos(order,fre_cutoff,alpha,Fs,'rolloff');	% 此时带来相移order/2(even) or order+1/2(odd) 
len=length(seq); 
seq(len+1:len+order)=seq(len);			    % 延拓order个点 
seq_shaped1=filter(b,1,seq);				% 滤波 
seq_shaped2=seq_shaped1(order/2+1:len+order/2);	% 取中间len个值作为输出，即近似地移除了相移 
seq_shaped=seq_shaped2/max(abs(seq_shaped2));   % 归一化