modsiggen32.m

Digital communication QAM32 generation

ModType = QAM32;
N = 2048;

clear ModSignal;

% Fetch dimension and symbol table for the modulation type
[Dimen, SrcSymbol] = ModSymTable(ModType);

Mi = 2^Dimen;                       % Mi symbols in the constellation
N_bin = N*Dimen;

%*******************************************************************************************************************
% Signal generating
%*******************************************************************************************************************
DigSource = randint(1, N_bin);      % Radom binary digits in serial
BinIndex = 1;                       % 0,1 sequence index
SymIndex = 1;                       % Symbol index, 2 digits/symbol, 4 digits/symbol ...


while ((BinIndex+Dimen-1) <= N_bin)
   
    StrBinary = '';
    for (i=0:Dimen-1)
        tmpstr = sprintf('%d', DigSource(BinIndex+i));
        StrBinary = cat(2, StrBinary, tmpstr);              
    end;
    
    m = bin2dec(StrBinary)+1;         % m = {1...Mi}
    
    ModSignal(SymIndex) = SrcSymbol(m);
        
    SymIndex = SymIndex + 1;
    BinIndex = BinIndex + Dimen;
end;