%qpskdemod1.m
%QPSK解調程序
function[demodata]=qpskdemod1(idata,qdata,para,nd,ml)
%******************variables*************************
%idata:輸入I信道數據
%qdata:數據Q信道數據
%demodata:解調后數據(para-by-nd matrix)
%para:并行信道數
%nd:符號數
%ml:調制數
%(QPSK->2 16QAM->4)
%*****************************************************
demodata=zeros(para,ml*nd);
demodata((1:para),(1:ml:ml*nd-1))=idata((1:para),(1:nd))>=0;

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