folderpath = 'C:\Users\sioe\Nextcloud\Dokumente\02_Ablage_Office\Lab_Data_24\bias_sweep\';
experiment_name = 'PAM4_DB_precoded_10km_ffe_';

% a = load([folderpath,experiment_name,'_wh']);
% wh2 = a.obj;


ffe_only            = 0;
postfilter_approach = 0;
db_channel_approach = 1;
db_coding_approach  = 0;

db_precode = db_coding_approach || db_channel_approach;

%%% SIR Sweep for MPI Experiment %%%
params = struct;

params.vbias = [2.1:0.05:2.4];
params.awg_vpp = [0.15:0.05:0.6];

wh = DataStorage(params);

wh.addStorage("ber");
wh.addStorage("pd_in");
wh.addStorage("rop");
wh.addStorage("m");
wh.addStorage("signals");

precomp_path = "C:\Users\sioe\Documents\MATLAB\imdd_simulation\projects\standard_system\";
precomp_fn = "lab_mpi_setup_2";
precomp_mode = 2; %0=do nothing ; 1= measure; 2=precomp active
precomp_amp_max = -2;

M           = 4;
pn_key      = 2;
usemrds     = 0;
fsym        = 92e9;
fdac        = 92e9;
Awg_vpp     = 0.35;
fadc        = 160e9;
rrcalpha    = 0.05;
v_bias      = 2.25;
pd_in_set   = 6;
rop_atten   = 0;

looptatal = prod(wh.dim);
disp(['Start Measurement of ',num2str(looptatal),' loops...'])
hWaitbar = waitbar(0, 'Starting measurement...', 'Name', 'Processing Progress');
loopcnt = 0;

for v_bias = wh.parameter.vbias.values
    for awg_vpp = wh.parameter.awg_vpp.values
        
        loopcnt = loopcnt+1;
        progressFraction = loopcnt / looptatal;
        waitbar(progressFraction, hWaitbar, ...
        sprintf('Progress: %d/%d', loopcnt, looptatal));

        try
                a
                % ber = wh2.getStoValue('ber', v_bias,awg_vpp);
                % rop = wh2.getStoValue('rop', v_bias,awg_vpp);
                % pd_in = wh2.getStoValue('pd_in', v_bias,awg_vpp);
                % Rx_bits = wh2.getStoValue('signals', v_bias,awg_vpp);
                % Rx_bits = Rx_bits{1};
                % M = wh2.getStoValue('m', v_bias,awg_vpp);


        catch

            loop_name = ['_fsym_',num2str(fsym)];

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

            %%%%% SET Attenuator %%%%%%
            voa = OptAtten("active",[1,2,1,1],"value",[rop_atten,pd_in_set,0,0],"wavelength",[1310,1310,1310,1310]);
            voa.set('active',[1,2,1,1],'value',[rop_atten,pd_in_set,0,0]);
            % voa.readvals();

            %%%%% Construct AWG and Scope Modules %%%%%%
            SCP = ScopeKeysight("model","DSAZ634A",'autoscale',1,"fadc",'GSa_160',"channel",[1,0],"recordLen",1000000,"removeDC",1);
            AWG = AwgKeysight("model","M8196A","fdac",fdac,"scaletodac",[1,1,1,1],"skews",[0,0,0,0],"voltages",[0,0,0,awg_vpp]);
            A2S = Awg2Scope(AWG,SCP,[0,0,0,1]);


            %%%%% 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",db_precode,...
                "mrds_code",usemrds,"mrds_blocklength",512,"db_encode",db_coding_approach).process();

            %%%%% Precompensation Routine %%%%%%
            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',precomp_amp_max,'loadPath',precomp_path,'fileName',precomp_fn);
            end

            %%%%% Resample to DAC rate %%%%%%
            Digi_sig = Digi_sig.resample("fs_out",AWG.fdac);


            %%%%% Plot and Save Routine 1 %%%%%%%%%%%%%%%%%%%%%%%%%
            % Digi_sig.spectrum("displayname","Normal Tx","fignum",10);

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

            %%%%% AWG --> Scope %%%%%%
            [~,~,~,Scpe_sig] = A2S.process("signal4",Digi_sig);

            %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
            % Scpe_sig.spectrum("displayname","Scope PSD","fignum",20);

            % Scpe_sig.plot("displayname","Scope raw signal","fignum",25);
            %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


            %%%%%% Sample to 2x fsym %%%%%%
            Scpe_sig = Scpe_sig.resample("fs_in",160e9,"fs_out",2*fsym);

            %%%%% Precompensation Routine %%%%%%
            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);

            %%%%%% SNR CHEAT - Avg. the measured signal occurences %%%%%%
            average_signals = 0;
            if average_signals
                scope_mean = zeros(size(S{1}.signal));
                for n=1:numel(S)
                    scope_mean = scope_mean + S{n}.signal;
                end
                scope_mean = scope_mean ./ n;
                Scpe_sig.signal = scope_mean;
            end

            %%%%% Plot and Save Routine 2 %%%%%%%%%%%%%%%%%%%%%%%%%
            save([folderpath,experiment_name,'rx_signal',loop_name],"S");
            Scpe_sig.eye(fsym,M,"fignum",40,"displayname",' after Scope');

            voa.readvals();
            rop = voa.power_state(1);
            pd_in = voa.power_state(2);


            %%%%% EQUALIZE %%%%%%
            Eq = FFE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",50,"sps",2,"decide",0);
            Eq = VNLE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",[0.0004 0.0005 0.0006],"mu_tr",0,"order",[50,7,7],"sps",2,"decide",1);
            Eq = EQ("Ne",[50,7,7],"Nb",[0,0,0],"training_length",4096*2,"training_loops",5,"dd_loops",5,"K",2,"DCmu",0.05,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);

            if ffe_only %%%%%%%%%%%%%%%%%%%%%%%%%%%

                [EQ_sig] = Eq.process(Scpe_sig,Symbols);

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


                Rx_bits = PAMmapper(M,0).demap(EQ_sig);
                [~,errors_bm,ber,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);

                disp(['FFE: ',sprintf('%.1E',ber),'| ROP: ',num2str(rop),' dB | PD_in: ',num2str(pd_in),' dBm']);

                if 1
                    figure(53);
                    constellation = unique(Symbols.signal);
                    received = NaN(numel(constellation),length(Symbols));
                    for lvl = 1:numel(constellation)
                        received(lvl,Symbols.signal==constellation(lvl)) = EQ_sig.signal(Symbols.signal==constellation(lvl));
                        hold on
                        histogram(received(lvl,:),1000,"EdgeAlpha",0);
                    end
                end

            elseif postfilter_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%

                [EQ_sig] = Eq.process(Scpe_sig,Symbols);

                EQ_sig.plot("fignum",50,"displayname",'After EQ','clear',1);

                Noi = EQ_sig-Symbols;

                Rx_bits = PAMmapper(M,0).demap(EQ_sig);
                [~,errors_bm,ber_ffe_only,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);

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

                EQ_sig = EQ_sig.filter(burg_coeff,1);

                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 = 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,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);

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

            elseif db_channel_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%

                [EQ_sig, Noi] = Eq.process(Scpe_sig,Duobinary().encode(Symbols));

                EQ_sig.plot("fignum",50,"displayname",'After EQ','clear',1);

                EQ_sig = MLSE("DIR",[1,1],"duobinary_output",1,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig);
                EQ_sig = Duobinary().decode(EQ_sig);

                Rx_bits = PAMmapper(M,0).demap(EQ_sig);
                [~,errors_bm,ber,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);

                disp([' DB Precode -> Channel -> FFE -> Decode/ Mod  ',sprintf('%.1E',ber),' | PD_in: ',num2str(pd_in),' dBm']);

            elseif db_coding_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%

                [EQ_sig, Noi] = Eq.process(Scpe_sig,Symbols);
                EQ_sig = MLSE("DIR",[1,1],"duobinary_output",1,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig);
                EQ_sig = Duobinary().decode(EQ_sig);

                Rx_bits = PAMmapper(M,0).demap(EQ_sig);
                [~,errors_bm,ber,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);

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

                disp([' DB Precode -> DB Code -> Channel -> FFE -> Decode/ Mod  ',sprintf('%.1E',ber),' | PD_in: ',num2str(pd_in),' dBm']);

            end

        end

        wh.addValueToStorage(ber,'ber',v_bias,awg_vpp);
        wh.addValueToStorage(rop,'rop',v_bias,awg_vpp);
        wh.addValueToStorage(pd_in,'pd_in',v_bias,awg_vpp);
        wh.addValueToStorage(Rx_bits,'signals',v_bias,awg_vpp);
        wh.addValueToStorage(M,'m',v_bias,awg_vpp);

        showCurrentMeasurement('BER', ber, 'ROP', rop, 'PD in', pd_in, 'PAM',M, 'Vbias', v_bias, 'AWG Vpp', awg_vpp, 'Precomp MaxAmp',precomp_amp_max);
        autoArrangeFigures(3,3,2);


    end
end

close(hWaitbar);

wh.save([folderpath,experiment_name,'_wh']);

autoArrangeFigures(3,3,2)