www.pudn.com > RAKE.rar > ljq_waveform.m

%/*------------高斯二阶脉冲波形-----------------*/ 
function [w0]=ljq_waveform(fc,Tm,tau) 
%fc是抽样脉冲频率，Tm是冲激响应持续时间，tau脉冲波形形成因子，OVER是产生脉冲的抽样个数，%fc=50e9;tau=0.25e-9;Tm=0.5e-9; 
dt=1./fc; 
OVER=floor(Tm./dt); 
e=mod(OVER,2); 
kbk=floor(OVER/2); 
tmp=linspace(dt,Tm/2,kbk); 
s=(1-4.*pi.*((tmp./tau).^2)).*exp(-2.*pi.*((tmp./tau).^2)); 
if e                      %OVER is odd 
    for k=1:length(s) 
        y(kbk+1)=1; 
        y(kbk+1+k)=s(k); 
        y(kbk+1-k)=s(k); 
    end 
else                       %OVER is even 
    for k=1:length(s) 
        y(kbk+k)=s(k); 
        y(kbk+1-k)=s(k); 
    end 
end 
E=sum((y.^2).*dt);%pulse energy 
w0=y./(E^0.5);