%%%%% SETTINGS %%%%%%
useprbs = 1;
M   = 8;
randkey = 1;
fsym = 112e9;
viewresults = 0;


%%%%% PRBS Generation in correct shape for Modulation Format %%%%%%
O = 10; %order of prbs
N = 2^(O-1); %length of prbs
[~,seed] = prbs(O,1); %initialize first seed of prbs
bitpattern=[];
if useprbs
    for i = 1:log2(M)
        [bitpattern(:,i),seed] = prbs(O,N,seed);
    end
else
    s = RandStream('twister','Seed',randkey);
    for i = 1:log2(M)
        bitpattern(:,i) = randi(s,[0 1], N, 1);
    end
end
if M == 6
    bitpattern = reshape(bitpattern,[],1);
    bitpattern = bitpattern(1:end-mod(length(bitpattern),5));
end

Tx_bits = Informationsignal(bitpattern);

%%%%% ACTUAL TEST: Back to Back Mapping: Bits -> Symbols and Symbols -> Bits  %%%%%%

Digi_Mod = PAMmapper(M,0);

Symbols = Digi_Mod.map(Tx_bits);

Rx_bits = PAMmapper(M,0).demap(Symbols);


%%%%% VALIDATION: BER is required to be zero %%%%%%

[~,error_num,ber,error_pos] = calc_ber(Tx_bits.signal,Rx_bits.signal,"skip_front",0,"skip_end",0,"returnErrorLocation",1);


%%%%% For User: Show Debug Info and Results %%%%%%

if viewresults 
    disp(['BER: ',sprintf('%.1E',ber),' - - PAM-',num2str(M)]);
    
    
    figure
    subplot(1,2,1)
    hold on
    title('Symbols Out')
    stairs(Symbols_tx.signal(1:100,1),'LineWidth',2,'DisplayName','Tx Symbols')
    legend
    grid
    subplot(1,2,2)
    u = unique(Symbols_tx.signal);
    scatter(0,u,'filled','o','LineWidth',2,'MarkerFaceColor',linspecer(1));
    grid
end