% 64QAM views Constelation
% x = 7,5,3,1,-1,-3,-5,-7; y = 7,5,3,1,-1,-3,-5,-7;

function Constel(data,SubCarrier)

Len=length(data);
Ne = Len/SubCarrier;

Real_dat=real(data);
Image_dat=imag(data);

for Num=1:8,
%Num = input ('Enter is SubCarrier of Number(1~32): ');
   for ip=1:Ne,
      % for np=1:SubCarrier,
         temp_Re(ip)=Real_dat(SubCarrier*(ip-1)+Num);
         temp_Im(ip)=Image_dat(SubCarrier*(ip-1)+Num);
      %end;
   end; 
    	disp('Enter to see the plot of the OFDM signal spectrum')
              
       figure(4)
       subplot(2,4,Num);
       plot(temp_Re,temp_Im,'*'),grid;
       
       axis([-10 10 -10 10])
       %axis([-30 30 -30 30])
    end;