% 2005-3-25
function [symbol_bit,symbol_symbol]=DE_QPSK(xxxxx)

LLLL=length(xxxxx);
qpsk=[0 0;
      0 1;
      1 1;
      1 0];
QPSK=[1 j -1 -j];
  
for i=1:LLLL
    for ii=1:4
        SYMBOL(ii)=abs(xxxxx(i)-QPSK(ii))^2;
    end
    [value position]=min(SYMBOL);
    symbol_bit(1,(2*i-1):2*i)=qpsk(position,:);
    symbol_symbol(1,i)=QPSK(1,position);
end