%qpskmod1.m
%QPSK調(diào)制程序
function[iout,qout]=qpskmod1(paradata,para,nd,ml)
%******************variables*************************
%paradata:輸入數(shù)據(jù)
%iout:輸出數(shù)據(jù)I
%qout:輸出數(shù)據(jù)Q
%para:并行信道數(shù)
%nd:數(shù)據(jù)數(shù)
%ml:調(diào)制數(shù)
%(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);
isi=isi+paradata2((1:para),1+count2);
isq=isq+paradata2((1:para),2+count2);
iout((1:para),jj)=isi;
qout((1:para),jj)=isq;
count2=count2+ml;
end
%********************end of file***************************