function [P_dSource_tr1,P_dSource_tr2] = STBC_2Tx1Rx(P_dSource)
% the alamouti
   tmp = size(P_dSource);
   if mod(tmp(2),2) ~=0 %保證列數是偶數
       P_dSource = [P_dSource,ones(tmp(1),1)];
   end
   tmp = size(P_dSource);
   P_dSource1 = reshape(P_dSource,tmp(1)*2,tmp(2)/2);
   P_dSource2 = -conj(P_dSource1(tmp(1)+1:2*tmp(1),:));
   P_dSource3 = conj(P_dSource1(1:tmp(1),:));
   P_dSource4 = [P_dSource1;P_dSource2;P_dSource3];
   P_dSource5 = reshape(P_dSource4,2*tmp(1),tmp(2));
   P_dSource_tr1 = P_dSource5(1:tmp(1),:)/sqrt(2);
   P_dSource_tr2 = P_dSource5(tmp(1)+1:tmp(1)*2,:)/sqrt(2);