alamouti.m

some code in mimo ofdm

%Alamouti code for MIMO-OFDM System
%data: input data
%Nt: Number of transmit antennas
%Code_data: data after coding with Alamouti
%******************************************

function Code_data = Alamouti(Data,Nt)

  if Nt==2
      X=[Data(1) -conj(Data(2)); Data(2) conj(Data(1))];
  else 
      X=[Data(1) -Data(2) -Data(3) -Data(4) -conj(Data(1)) -conj(Data(2)) -conj(Data(3)) -conj(Data(4)); ...
         Data(2) Data(1) Data(4) -Data(3) conj(Data(2)) conj(Data(1)) conj(Data(4)) -conj(Data(1)); ... 
         Data(3) -Data(4) Data(1) Data(2) conj(Data(3)) -conj(Data(4)) conj(Data(1)) conj(Data(2)); ...
         Data(4) Data(3) -Data(2) Data(1) conj(Data(4)) conj(Data(3)) -conj(Data(2)) conj(Data(1))];
  end
  Code_data=X;
  clear X;