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


function [y]=qam4(x)
% y= qam4(x)
% x是1*(2(Lp+8)) 的向量，其中向量元素為[1] 或[0]，表示表示經過交織的結果數據
% y為x通過4qam調制后的輸出信號,是1x(Lp+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=[sqrt(2)/2+sqrt(2)/2*j,sqrt(2)/2-sqrt(2)/2*j,-sqrt(2)/2+sqrt(2)/2*j,-sqrt(2)/2-sqrt(2)/2*j]; 
% 取得輸入二進制序列長度
len=length(x);
% 進行符號映射
y=zeros(1,len/2);
for I=1:len/2
    temp=x(2*I-1)+x(2*I)*2;
    y(I)=mapping(temp+1);
end