useprbs = 1;
M = 4;
randkey = 1;
datarate = 448e9;
fsym = round(datarate / log2(M)) ;

%%%%% PRBS Generation in correct shape for Modulation Format %%%%%%
O = 15; %O of prbs
N = 2^(O); %length of prbs
[~,seed] = prbs(O,1); %initialize first seed of prbs
bitpattern=[];

state = struct();

para = struct();

if M == 6
    para.bl = 2^(O-2);
    para.dimension = 5;
else
    para.bl = 2^(O-1);
    para.dimension = log2(M); %2.5bits/sym -> 2 bit/sym
end

para.rand = 0;

para.order = floor(O / log2(M));
para.skip =0;
para.bruijn = 0;
para.reset_prms = 0;
para.method = 1;

data_in = [];
global loop;
loop = 0;
[data_out,state_] = prms(data_in, state, para);
loop = 1;
[data_out,state_out] = prms(data_in, state_, para);
bitpattern = data_out';

Tx_bits = Informationsignal(bitpattern);

Symbols_tx = PAMmapper(M,0).map(Tx_bits);
Symbols_tx.fs = fsym;

Symbols1 = Duobinary().precode(Symbols_tx);

Symbols2 = Duobinary().encode(Symbols1);

Symbols3 = Duobinary().decode(Symbols2);

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

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

disp(['BER: ',sprintf('%.1E',ber),' - - PAM-',num2str(M)]);
% 


figure(3);
clf
%sgtitle(['BER: ',num2str(ber),' // Error is at position: ',num2str(error_pos),''])
subplot(2,2,1)
hold on
title('First Bits')
stairs(Tx_bits.signal(1:100,1),'LineStyle','-','LineWidth',2,'DisplayName','Tx Bits');
stairs(Rx_bits.signal(1:100,1),'LineWidth',2,'DisplayName','Rx Bits','LineStyle',':')
legend

subplot(2,2,2)
title('Last Bits')
hold on
stairs(Tx_bits.signal(end-50:end,1),'LineStyle','-','LineWidth',2,'DisplayName','Tx Bits');
stairs(Rx_bits.signal(end-50:end,1),'LineWidth',2,'DisplayName','Rx Bits','LineStyle',':')
legend

subplot(2,2,3)
hold on
title('First Symbols Compare')
stairs(Symbols_tx.signal(1:100,1),'LineWidth',2,'DisplayName','Tx Symbols','LineStyle','-')
stairs(Symbols.signal(1:100,1),'LineStyle',':','LineWidth',2,'DisplayName','Rx Symbols');
legend

subplot(2,2,4)
hold on
title('Last Symbols Compare')
stairs(Symbols_tx.signal(end-50:end,1),'LineWidth',2,'DisplayName','Tx Symbols','LineStyle','-')
stairs(Symbols.signal(end-50:end,1),'LineStyle',':','LineWidth',2,'DisplayName','Rx Symbols');
legend