qam64.asv

在高斯信道下

function q_code=qam64(qa_source)
b=9;
for bj=0:7,
    b=b-2;
    a=-9;
  for bi=1:8,
    a=a+2;
    map(bi+8*bj,1)=a;
    map(bi+bj*8,2)=b;
  end;
end;
for a=1:length(qa_source),
   qam_code(a,:)=map(qa_source(a),:);
   q_code(a,1)=qam_code(a,1)+i*qam_code(a,2);
end;