pam.m

Hierarchical－QAM的程序

clear;
d=input('Enter d=');
m=length(d);
n=2^m; 
p=zeros(1,n);
for i=0:n-1
   b=dec2bin(i,m);
   for j=1:m
      p(i+1)=p(i+1)+((b(j)-'0')*2-1)*d(j);
   end
   g(i+1,:)=char(graycode(i,m)+'0');
   gn(i+1,:)=graycode(i,m);
end
plot(p,0,'o');
for i=1:n
   text(p(i),-0.05,g(i,:));
end