buildtchburst.m

PHS多天线基带调制与解调MATLAB程序

function [s,r,TCH,x] = buildTCHburst(hS,hR,over,key,ber)


   
       nhS = length(hS) ;
       nhR = length(hR) ;

       nbits = 224 ;

       bitsPerSym = 2 ;

       nsyms = nbits / bitsPerSym ;

       R = [ 0 0 0 0 ] ;

       SS = [ 1 0 ] ;

       PR = [ 0 1 1 0 0 1 ] ;

       UW = [ 1 1 1 0 0 0 0 1 0 1 0 0 1 0 0 1 ] ;

       CI = [ 0 0 0 0 ] ;

       SA = rand(1,16) > 1/2;

      TCH = rand(1,160) > 1/2 ;

      data = [ CI SA TCH ] ;
 
      CRC = CrcEncode_mex(data) ;

      burst = [ SS PR UW CI SA TCH CRC ]; 

      bitSeq1 = Scramble_mex(burst,key,1); 

      bitSeq = [ R bitSeq1 ] ;

  		s = phs_mod_mex(bitSeq,over,hS) ;
		r = phs_mod_mex(bitSeq,over,hR) ;

      scale = sqrt(mean(s.*conj(s))) ;
      s = s.' / scale;
      s = [ s ; zeros(7*over,1) ; ] ;

      scale = sqrt(mean(r.*conj(r))) ;
      r = r.' / scale;
      r = [ r ; zeros(7*over,1) ; ] ;

      REF = bitSeq;
      if (ber > 0)
         bitErrors = rand(size(REF)) <= ber ;
         REF = xor(REF,bitErrors) ;
      end

      x = phs_mod_mex(REF) ;

      x = x.';
      TCH = TCH.';