function [symbols]=bpsk(data_block,model)%   [symbols]=bpsk(data_block,model)%%	Output:%	symbols		- Symbols mapped in signal-space (symbol-vector)%   %   Input:%   data_block  - Vector of data to mapped into BPSK symbols (binary vector)%	model		- If model = 0, no Alamouti (int 0,1)
%						if model = 1, Alamouti coding and sent energy
%						is set to half.%
%   Short Theoretical Background for the Function:%%   Map the bits in data_burst into complex-valued BPSK symbols.%   The energy of each BPSK-symbol is unity.%   %   Complex part (Q channel)%         ^%         |%         |   (bit = 1)%         |%  ---x---+---x--->  real part (I channel)%(bit = 0)|%         |  %         |%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     %%% Function part of simulation for Space-Time%%% coding project, group Grey-2001.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%   Author: Stefan Uppg錼d%   Date: 2001-03-19%   Version: 1.1%   Revision (Name & Date):%		SU 2001-03-25 Added model parameter.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%I = 2*data_block(1:end) - 1;Q = 0;symbols = I + j*Q;if model == 1
   symbols = (1/sqrt(2)) * symbols;
end