ljq_2ppm_th.m

在单一天线接收和发送的UWB中Rake接收机BER的性能的仿真

%/*------------ PPM和TH-----------------*/
%PPM_TH调制
  function [PPMTHseq,THseq]=ljq_2PPM_TH(seq,fc,Tc,Ts,dPPM,THcode) 
  %fc是抽样频率,Tc是码片时间，seq是输入二进制串，Ts是平均脉冲重复时间
  %dPPM是PPM时移
  dt=1./fc  ;                  
  framesamples=floor(Ts./dt)  ; 
  chipsamples=floor(Tc./dt);
   PPMsamples=floor(dPPM./dt);
  THp=length(THcode);
  totlength= framesamples*length(seq);
  PPMTHseq=zeros(1,totlength);
  THseq=zeros(1,totlength);
  for k=1:length(seq)
      index=1+(k-1)* framesamples;
      KTH=THcode(1+mod(k-1,THp));%TH
      index=index+KTH* chipsamples;
      THseq(index)=1;
      index=index+PPMsamples*seq(k);%PPM
      PPMTHseq(index)=1;
  end