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

%/*------------ 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