% 64QAM Generator
function Qam_Dat=QAM_Generator(SubCarrier)
qam64=64;
qpsk=4;
d = 1;
M = qpsk;
Temp = rand(1,SubCarrier);
dsource=1+floor(M*Temp);

% Mapping 
mappingqpsk=[ 7*d + i*7*d;
   -7*d + i*7*d;
   7*d - i*7*d;
   -7*d - i*7*d];

%mappingqam64=[ -7*d + i*7*d;
   %-5*d + i*7*d;
  % -3*d + i*7*d;
   %-d + i*7*d;
   %d + i*7*d;
   %3*d + i*7*d;
   %5*d + i*7*d;
   %7*d + i*7*d;
   %-7*d + i*5*d;
   %-5*d + i*5*d;
   %-3*d + i*5*d;
   %-d + i*5*d;
   %d + i*5*d;
   %3*d + i*5*d;
   %5*d + i*5*d;
   %7*d + i*5*d;
   %-7*d + i*3*d;
   %-5*d + i*3*d;
   %-3*d + i*3*d;
   %-d + i*3*d;
   %d + i*3*d;
   %3*d + i*3*d;
   %5*d + i*3*d;
   %7*d + i*3*d;
   %-7*d + i*d;
   %-5*d + i*d;
   %-3*d + i*d;
   %-d + i*d;
   %d + i*d;
   %3*d + i*d;
   %5*d + i*d;
   %7*d + i*d;
   %-7*d + i*-d;
   %-5*d + i*-d;
   %-3*d + i*-d;
   %-d + i*-d;
   %d + i*-d;
   %3*d + i*-d;
   %5*d + i*-d;
   %7*d + i*-d;
   %-7*d + i*-3*d;
   %-5*d + i*-3*d;
   %-3*d + i*-3*d;
   %-d + i*-3*d;
   %d + i*-3*d;
   %3*d + i*-3*d;
   %5*d + i*-3*d;
   %7*d + i*-3*d;
   %-7*d + i*-5*d;
   %-5*d + i*-5*d;
   %-3*d + i*-5*d;
   %-d + i*-5*d;
   %d + i*-5*d;
   %3*d + i*-5*d;
   %5*d + i*-5*d;
   %7*d + i*-5*d;
   %-7*d + i*-7*d;
   %-5*d + i*-7*d;
   %-3*d + i*-7*d;
   %-d + i*-7*d;
   %d + i*-7*d;
   %3*d + i*-7*d;
   %5*d + i*-7*d;
   %7*d + i*-7*d];
   mappingqam64=[ -28*d + i*28*d;
   -21*d + i*28*d;
   -14*d + i*28*d;
   -7*d + i*28*d;
   7*d + i*28*d;
   14*d + i*28*d;
   21*d + i*28*d;
   28*d + i*28*d;
   -28*d + i* 21*d
   -21*d + i*21*d;
   -14*d + i*21*d;
   -7*d + i*21*d;
   7*d + i*21*d;
   14*d + i*21*d;
   21*d + i*21*d;
   28*d + i*21*d;
   -28*d + i* 14*d
   -21*d + i*14*d;
   -14*d + i*14*d;
   -7*d + i*14*d;
   7*d + i*14*d;
   14*d + i*14*d;
   21*d + i*14*d;
   28*d + i*14*d;
-28*d + i* 7*d
   -21*d + i*7*d;
   -14*d + i*7*d;
   -7*d + i*7*d;
   7*d + i*7*d;
   14*d + i*7*d;
   21*d + i*7*d;
   28*d + i*7*d;
-28*d - i* 7*d
   -21*d - i*7*d;
   -14*d - i*7*d;
   -7*d - i*7*d;
   7*d - i*7*d;
   14*d - i*7*d;
   21*d - i*7*d;
   28*d - i*7*d;
-28*d - i* 14*d
   -21*d - i*14*d;
   -14*d - i*14*d;
   -7*d - i*14*d;
   7*d - i*14*d;
   14*d - i*14*d;
   21*d - i*14*d;
   28*d - i*14*d;
   -28*d - i* 21*d
   -21*d - i*21*d;
   -14*d - i*21*d;
   -7*d - i*21*d;
   7*d - i*21*d;
   14*d - i*21*d;
   21*d - i*21*d;
   28*d - i*21*d;
   -28*d - i* 28*d
   -21*d - i*28*d;
   -14*d - i*28*d;
   -7*d - i*28*d;
   7*d - i*28*d;
   14*d - i*28*d;
   21*d - i*28*d;
   28*d - i*28*d;];

qam=mappingqpsk(dsource,:);
Qam_Dat=qam;