folderpath = 'C:\Users\sioe\Nextcloud\Dokumente\02_Ablage_Office\Lab_Data_24\no_mpi_2024\'; experiment_name = '10km_ffe_no_mpi_'; only_dsp = 0; ffe_only = 1; postfilter_approach = 0; db_channel_approach = 0; db_coding_approach = 0; db_precode = db_coding_approach || db_channel_approach; %%% SIR Sweep for MPI Experiment %%% params = struct; params.i_atten = [40]; wh = DataStorage(params); wh.addStorage("ber"); wh.addStorage("sir"); wh.addStorage("pd_in"); wh.addStorage("signals"); precomp_mode = 2; %0=do nothing ; 1= measure; 2=precomp active precomp_amp_max = 3; M = 6; pn_key = 2; usemrds = 0; fdac = 92e9; fsym = 56e9; fadc = 160e9; rrcalpha = 0.05; v_bias = 2.25; i_atten = params.i_atten(1); pd_in_desired = 6; disp(['Start Measurement of ',num2str(prod(wh.dim)),' loops...']) for i = 1 %%%%% 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",db_precode,... "mrds_code",usemrds,"mrds_blocklength",512,"db_encode",db_coding_approach).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',precomp_amp_max,'loadPath',precomp_path,'fileName',precomp_fn); end Digi_sig = Digi_sig.resample("fs_out",AWG.fdac); Digi_sig.spectrum("displayname","Normal Tx","fignum",10); save([folderpath,[experiment_name,'bits']],"Bits"); save([folderpath,[experiment_name,'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","Scope PSD","fignum",20); % 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,experiment_name,'rx_signal_iatten_',num2str(i_atten),''],"S"); 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 Scpe_sig.plot("displayname","Scope PSD","fignum",30); Scpe_sig.eye(fsym,M,"fignum",40,"displayname",' after Scope'); sir = voa.power_state(3)-voa.power_state(4); 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.0,"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),'| SIR: ',num2str(sir),' dB | PD_in: ',num2str(pd_in),' dBm']); 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),' | SIR: ',num2str(sir),' 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),' | SIR: ',num2str(sir),' dB | 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),' | SIR: ',num2str(sir),' dB | PD_in: ',num2str(pd_in),' dBm']); end wh.addValueToStorage(ber,'ber',i_atten); wh.addValueToStorage(sir,'sir',i_atten); wh.addValueToStorage(pd_in,'pd_in',i_atten); wh.addValueToStorage(Rx_bits,'signals',i_atten); end end wh.save([folderpath,experiment_name,'_wh']); cols = linspecer(8); sir_vals = wh.parameter.i_atten.values; bers = wh.getStoValue('ber',sir_vals); figure(90); 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",[experiment_name]); 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('Interpreter','none') autoArrangeFigures(2,3,2)