function data_bpsk=bpsk(data_enc);

%[m,n,frames]=size(data_enc);%%%%%% m 編碼長度 n 每比特數(shù)據(jù)表示的編碼數(shù) %%%%%%%%%%%%%%
%data_bpsk(1:m,1:n,1:frames)=[1];
%for i=1:frames
 %   for j=1:n
  %      for k=1:m
   %         if data_enc(k,j,i)==0
   %            data_bpsk(k,j,i)=-1;
   %         end
   %     end
   %  end
   %end
   data_bpsk=sign(data_enc-0.5);