%該程序用來模擬信號4QAM調制，屬于《鏈路級仿真軟件設計》程序二的調制解調模塊中QAM調制部分
%作者：趙亞利  
%編程日期：2005－3－7


function [y]=bpsk(x)
% y= qam4(x)
% x是1*(2(Lp+8)) 的向量，其中向量元素為[1] 或[0]，表示表示經過交織的結果數據
% y為x通過4qam調制后的輸出信號,是1x(Lp+8) 的向量
% BPSK映射：奇數位映射成橫軸坐標，偶數位映射成縱軸坐標
%                |(0,1)
%                |
% (-1,0)         |          (1,0)
%------------------------------------
%                |
%                |
%                |(0,-1)

% 建立符號映射關系
mapping=[1,j,-1,-j]; 
% 取得輸入二進制序列長度
len=length(x);
% 進行符號映射
y=zeros(1,len);
for I=1:len
    if (mod(I,2)==0)
         if (x(I)==0)
              y(I)=mapping(2);
         else
             y(I)=mapping(4);  
         end
    elseif (mod(I,2)==1)
         if (x(I)==0)
             y(I)=mapping(1);
         else
             y(I)=mapping(3);  
         end 
    end
end