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


function [y]=qam8(x)
% y= qam8(x)
% x 為經過信源調制后信息bit符號
% y 為經過信道編碼（8psk）調制后的符號
%                             |   
%                             4
%                       3     |    2
%             －－－－7－－－－－－－－1－－－        
%                       8     |    5   
%                             6 
%                             |   
%
%星座圖表
%星座映射采用Gray碼，能夠改善系統性能
% Gray:mapping_matrix=[1 2 4 3 7 8 6 5]=[000 001 011 010 110 111 101 100]
%實際映射矩陣[000 001 010 011 100 101 110 111]=[1 2 3 4 5 6 7 8]
% 建立符號映射關系
%(00->sqrt(2)/2+sqrt(2)/2*j;01->-sqrt(2)/2+sqrt(2)/2*j;11->-sqrt(2)/2-sqrt(2)/2*j;10->sqrt(2)/2-sqrt(2)/2*j)
%得到星座圖映射矩陣
mapping=[1,sqrt(2)/2+sqrt(2)/2*j,-sqrt(2)/2+sqrt(2)/2*j,j,sqrt(2)/2-sqrt(2)/2*j,-j,-1,-sqrt(2)/2-sqrt(2)/2*j]; 
% 取得輸入二進制序列長度
len=length(x)/3;
%對輸入bit流進行星座映射，得到8psk調制符號
y=zeros(1,len);
for I=1:len 
    temp=x(3*(I-1)+1)*4+x(3*(I-1)+2)*2+x(3*I);
    y(I)=mapping(temp+1);
end