folderpath = 'C:\Users\sioe\Nextcloud\Dokumente\02_Ablage_Office\Lab_Data_24\mpi_ofc_2024\';

%%% SIR Sweep for MPI Experiment %%%
params = struct;
params.i_atten = [40];

wh = DataStorage(params);

wh.addStorage("ber");
wh.addStorage("ber_pf");
wh.addStorage("sir");
wh.addStorage("pd_in");
wh.addStorage("signals");

precomp_mode = 2; %0=do nothing ; 1= measure; 2=precomp active
M           = 4;
pn_key      = 2;
usemrds     = 0;
fdac        = 92e9;
fsym        = 92e9;
fadc        = 160e9;
rrcalpha    = 0.05;
v_bias      = 2.25;
i_atten     = params.i_atten(1);
pd_in_desired = 7;

disp(['Start Measurement of ',num2str(prod(wh.dim)),' loops...'])

%%%%% SET Volatges %%%%%%
dcs = DC_supply("active",[1,1],"voltage",[v_bias, 9]);
dcs.set("voltage",[v_bias, 9]);

voa = OptAtten("active",[1,2,1,1],"value",[0,pd_in_desired,0,i_atten],"wavelength",[1310,1310,1310,1310]);
% voa.set('active',[1,2,1,1],'value',[0,pd_in_desired,0,i_atten]);
% voa.readvals();

SCP = ScopeKeysight("model","DSAZ634A",'autoscale',1,"fadc",'GSa_160',"channel",[1,0],"recordLen",2000000,"removeDC",1);
AWG = AwgKeysight("model","M8196A","fdac",fdac,"scaletodac",[1,1,1,1],"skews",[0,0,0,0],"voltages",[0,0,0,0.62]);
A2S = Awg2Scope(AWG,SCP,[0,0,0,1]);


if 1
    precomp_path = "C:\Users\sioe\Documents\MATLAB\imdd_simulation\projects\standard_system\";
    precomp_fn = "lab_mpi_setup_2";
else
    precomp_path = "C:\Users\sioe\Documents\MATLAB\model-collection\sioe_models\Labor_2024\Lab_PAM4\";
    precomp_fn = "precomp_bla__loop1_1";
end


%%%%% Symbol Generation %%%%%%
Pform       = Pulseformer("fsym",fsym,"fdac",4*fsym,"pulse","rrc","pulselength",16,"rrcalpha",rrcalpha);

[Digi_sig,Symbols,Bits] = PAMsource("fsym",fsym,"M",M,"order",18,"useprbs",1,...
    "fs_out",fdac,"applyclipping",0,"clipfactor",1.7,...
    "applypulseform",0,"pulseformer",Pform,"randkey",pn_key,...
    "db_precode",0,...
    "mrds_code",usemrds,"mrds_blocklength",512).process();

if precomp_mode == 1 % measure channel
    freqresp = ChannelFreqResp("Nacq",1024,"Navg",64,"Ncp",63,'f_ref',Digi_sig.fs);
    Digi_sig = freqresp.buildOFDM();
elseif precomp_mode == 2 % apply precomp
    freqresp = ChannelFreqResp("Nacq",1024,"Navg",64,"Ncp",63,'f_ref',Digi_sig.fs);
    Digi_sig = freqresp.precomp(Digi_sig,'maxampdb',3,'loadPath',precomp_path,'fileName',precomp_fn);
end

Digi_sig = Digi_sig.resample("fs_out",AWG.fdac);

save([folderpath,'bits'],"Bits");
save([folderpath,'symbols'],"Symbols");

for i_atten = wh.parameter.i_atten.values

    %%%%% SET ATTENUATOR %%%%%%
    voa.set('active',[1,2,1,1],'value',[0,7,0,i_atten]);
    
    %%%%% AWG --> Scope %%%%%%  
    [~,~,~,Scpe_sig] = A2S.process("signal4",Digi_sig);
    
    % Scpe_sig.spectrum("displayname",'Rx Signal','fignum',10);
    
    %%%%%% Sample to 2x fsym %%%%%%
    Scpe_sig = Scpe_sig.resample("fs_in",160e9,"fs_out",2*fsym);
    
    if precomp_mode == 1
        freqresp.estimate(Scpe_sig,"save",true,"savePath",precomp_path,"fileName",precomp_fn);
        freqresp.plot();
    end
    
    %%%%%% Sync Rx signal with reference %%%%%%
    [Scpe_sig,S] = Scpe_sig.tsynch("reference",Symbols,"fs_ref",fsym);
    save([folderpath,'rx_iatten_',num2str(i_atten),''],"S");

    Scpe_sig.eye(fsym,M);
    Scpe_sig.spectrum("displayname","Scope PSD","fignum",1996);
    
    %%%%% EQUALIZE %%%%%%

    % Scpe_sig.signal = Scpe_sig.signal - movmean(Scpe_sig.signal,[100,0]);
    
    Eq_ffe_only = FFE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",50,"sps",2,"decide",0);
    [ber_ffe_only,EQ_sig,Noi] = runEQ(Eq_ffe_only,Scpe_sig,Symbols,Bits,M);

    nc = 2;
    burg_coeff = arburg(Noi.signal,nc);

    EQ_sig = EQ_sig.filter(burg_coeff,1);

    EQ_sig.plot("displayname",'After EQ','fignum',1112);

    if 0
        Noi.spectrum('displayname','Noise PSD','fignum',123)
        [h,w] = freqz(1,burg_coeff,length(Noi),"whole",Noi.fs);
        h = h/max(abs(h));
        hold on
        w_ = (w - Noi.fs/2);
        plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',['', num2str(nc), ' coefficients for burg alg.']);
    end

    % EQ_sig.spectrum("displayname","Signal Spectrum after Postfilter","fignum",1234);
    
    EQ_sig = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig);
    
    Rx_bits = PAMmapper(M,0).demap(EQ_sig);

    [~,errors_bm,ber_pf,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);

    sir = voa.power_state(3)-voa.power_state(4);
    pd_in = voa.power_state(2);

    disp(['FFE: ',sprintf('%.1E',ber_ffe_only),' -> PF -> MLSE: ',sprintf('%.1E',ber_pf),' | SIR: ',num2str(sir),' dB | PD_in: ',num2str(pd_in),' dBm']);

    wh.addValueToStorage(ber_ffe_only,'ber',i_atten);  
    wh.addValueToStorage(ber_pf,'ber_pf',i_atten);  
    wh.addValueToStorage(sir,'sir',i_atten);
    wh.addValueToStorage(pd_in,'pd_in',i_atten);
    wh.addValueToStorage(Rx_bits,'signals',i_atten);

end

name = ['mpidata_92GBd'];
wh.save([folderpath,name]);

cols = linspecer(8);

sir_vals = wh.parameter.i_atten.values;
bers = wh.getStoValue('ber',sir_vals);

figure(44);
a = gca;
hold on; % Retain the plot so new points can be added without complete redraw

plot(sir_vals,bers,"LineWidth",0.5,"LineStyle","-","Marker",".","MarkerSize",15,"DisplayName","FFE only");
yline(3.8e-3,'DisplayName','HD-FEC','LineStyle','--','HandleVisibility','off');
xlabel('Received Optical Power (dBm)');
ylabel('Bit Error Rate (BER)');
title('Bit Error Rate vs. ROP');
set(gca,'yscale','log');
set(gca,'Box','on');
grid on;
grid minor
legend