%2005-3-25
function [symbol_bit,symbol_symbol]=DE_8PSK(xxxx)

LLLLL=length(xxxx);
eight_psk=[0 0 0;
           0 0 1;
           0 1 1;
           0 1 0;
           1 1 0;
           1 1 1;
           1 0 1;
           1 0 0];
eight_PSK=[1 sqrt(0.5)*(1+j) j sqrt(0.5)*(-1+j) -1 sqrt(0.5)*(-1-j) -j sqrt(0.5)*(1-j)];
  
for i=1:LLLLL
    for ii=1:8
        SYMBOL(ii)=abs(xxxx(i)-eight_PSK(ii))^2;
    end
    [value position]=min(SYMBOL);
    symbol_bit(1,(3*i-2):3*i)=eight_psk(position,:);
    symbol_symbol(1,i)=eight_PSK(1,position);
end