% qpskmod.m
% QPSK調(diào)制的函數(shù)
% Programmed by ZuFei Chen

function [iout,qout]=qpskmod(paradata,para,nd,ml)

%****************** 變量 *************************
% paradata : 輸入數(shù)據(jù) (para-by-nd matrix)
% iout     : Ich路輸出數(shù)據(jù)
% qout     : Qch路輸出數(shù)據(jù)
% para     : 并行子信道的個數(shù)
% nd       : 數(shù)據(jù)個數(shù)
% ml       : 調(diào)制級別，即采用何種調(diào)制 (QPSK ->2  16QAM -> 4)
% *****************************************************

m2=ml./2;
paradata2=paradata.*2-1;
count2=0;

for jj=1:nd

	isi = zeros(para,1);
	isq = zeros(para,1);

	for ii = 1 : m2 
  		isi = isi + 2.^( m2 - ii ) .* paradata2((1:para),ii+count2);
  		isq = isq + 2.^( m2 - ii ) .* paradata2((1:para),m2+ii+count2);
	end

	iout((1:para),jj)=isi;
	qout((1:para),jj)=isq;

	count2=count2+ml;

end

%******************** end of file ***************************