16qam.m

从BPSK到64QAM的调制与解调

function mod_out = 16QAM (mod_in)
    L = length (mod_in);
    mod_out = zeros (1,L/4);
    in_resh = reshape (mod_in,4,L/4);
    R = bi2de (in_resh','left-msb')+1;
    temp = [1+i,1+3*i,3+i,3+3*i;...
            1-i,1-3*i,3-i,3-3*i;...
            -1+i,-1+3*i,-3+i,-3+3*i;...
            -1-i,-1-3*i,-3-i,-3-3*i]
     for n = 1 : L/4
         mod_out (n) = (temp(R(n)))/sqrt(10)
     end