clear all
data=randint(1,20,2,1)
dataI=data;
dataQ=1-data;
qpsk=dataI+i*dataQ;
qpsknoise=awgn(qpsk,10,6.02);
z1=real(qpsknoise);
z2=imag(qpsknoise);
Rx=sign(z1-z2);
Rx=(Rx+1)/2;
[N,BER]=biterr(Rx,data)