%% Parameter to simulate and save params = struct; params.M = [4]; params.datarate = [448]; params.rop = [0]; params.sir = 45; params.random_key_laser_phase = 10:20; precomp_mode = 0; %0=do nothing ; 1= measure; 2=precomp active postfilter = 1; % noise whiten. approach -> Postfilter + MLSE db_precode = 0; db_encode = 0; db_channelapproach = 0; laser_linewidth = 5e5; random_key_sequence = 15; random_key_laser_phase = 66; sir = 20; if ismac precomp_path = "/Users/silasoettinghaus/Documents/MATLAB/imdd_simulation/projects/standard_system"; else precomp_path = "C:\Users\Silas\Documents\MATLAB\imdd_simulation\projects\standard_system\"; end precomp_fn = "400G_simulative_setup"; usemrds = 0; name = ['wh_',strrep(num2str(now),'.','')]; wh = DataStorage(params); wh.addStorage("ber_vnle"); wh.addStorage("ber_mlse"); %% Init Params link_length = 1000; %meter endcnt = prod(wh.dim); cnt=0; disp(['Start Simulation of ',num2str(endcnt),' loops...']) tic for random_key_laser_phase = wh.parameter.random_key_laser_phase.values for M = wh.parameter.M.values for datarate = wh.parameter.datarate.values % SETUP HERE: %% kover = 16; M8199 = M8199B("kover",kover); fdac = M8199.fdac; fsym = round(datarate / log2(M)) * 1e9; rrcalpha = 0.05; Pform = Pulseformer("fsym",fsym,"fdac",4*fsym,"pulse","rrc","pulselength",16,"rrcalpha",rrcalpha); % MAIN SIGNAL %%%%% Symbol Generation MAIN %%%%%% [Digi_sig,Symbols,Bits] = PAMsource("fsym",fsym,"M",M,"order",19,"useprbs",1,... "fs_out",M8199.fdac,"applyclipping",0,"clipfactor",1.5,... "applypulseform",0,"pulseformer",Pform,"randkey",random_key_sequence,... "db_precode",db_precode,"db_encode",db_encode,... "mrds_code",usemrds,"mrds_blocklength",512).process(); %%%%% Symbol Generation INTERFERENCE %%%%%% [Digi_sig_I,Symbols_I,Bits_I] = PAMsource("fsym",fsym,"M",M,"order",19,"useprbs",0,... "fs_out",M8199.fdac,"applyclipping",0,"clipfactor",1.5,... "applypulseform",0,"pulseformer",Pform,"randkey",random_key_sequence+1,... "db_precode",db_precode,"db_encode",db_encode,... "mrds_code",usemrds,"mrds_blocklength",512).process(); % Digi_sig.eye(fsym,M); % Digi_sig.normalize("mode","rms").spectrum("displayname",'Tx Signal','fignum',10); if precomp_mode == 1 %measure freqresp = ChannelFreqResp("Nacq",1024,"Navg",64,"Ncp",63,'f_ref',Digi_sig.fs); Digi_sig = freqresp.buildOFDM(); Digi_sig_I = freqresp.buildOFDM(); elseif precomp_mode == 2 %apply Digi_sig = ChannelFreqResp("Nacq",1024,"Navg",64,"Ncp",63,'f_ref',Digi_sig.fs).precomp(Digi_sig,'maxampdb',3,'loadPath',precomp_path,'fileName',precomp_fn); Digi_sig_I = ChannelFreqResp("Nacq",1024,"Navg",64,"Ncp",63,'f_ref',Digi_sig_I.fs).precomp(Digi_sig_I,'maxampdb',3,'loadPath',precomp_path,'fileName',precomp_fn); Digi_sig.spectrum("fignum",11,"displayname",'after precomp'); end %%%%% AWG MAIN %%%%%% El_sig = M8199.process(Digi_sig); %%%%% Lowpass el. components %%%%%% El_sig = Filter('filtdegree',2,"f_cutoff",100e9,"fs",fdac*kover,"filterType",filtertypes.butterworth,"active",true).process(El_sig); %%%%% Electrical Driver Amplifier %%%%%% El_sig = Amplifier("amp_mode","ideal_no_noise","gain_mode","gain","amplification_db",3).process(El_sig); fprintf('Driver output power: %s dBm\n', num2str(El_sig.power)); fprintf('Driver output peak voltage: %s Vpp \n', num2str(max(El_sig.signal)-min(El_sig.signal))); % El_sig.spectrum("displayname",'Transmit PDS','fignum',10); %%%%% AWG INTERFERENCE %%%%%% El_sig_I = M8199.process(Digi_sig_I); %%%%% Lowpass el. components %%%%%% El_sig_I = Filter('filtdegree',3,"f_cutoff",100e9,"fs",fdac*kover,"filterType",filtertypes.butterworth,"active",true).process(El_sig_I); %%%%% Electrical Driver Amplifier %%%%%% El_sig_I = Amplifier("amp_mode","ideal_no_noise","gain_mode","gain","amplification_db",3).process(El_sig_I); % MAIN SIGNAL %%%%% MODULATE E/O CONVERSION %%%%%% vbias_rel = 0.5; u_pi = 2.9; vbias = -vbias_rel*u_pi; [Opt_sig] = EML("mode",eml_mode.im_cosinus,"power",3,"fsimu",El_sig.fs,"lambda",1290,"bias",vbias,"u_pi",u_pi,"linewidth",laser_linewidth,"randomkey",random_key_laser_phase).process(El_sig); Optfilter = Filter('filtdegree',3,"f_cutoff",110e9,"fs",fdac*kover,"filterType",filtertypes.gaussian,"active",true); Opt_sig = Optfilter.process(Opt_sig); Opt_sig = Amplifier("amp_mode","ideal_no_noise","gain_mode","output_power","amplification_db",0).process(Opt_sig); [Opt_sig_I] = EML("mode",eml_mode.im_cosinus,"power",3,"fsimu",El_sig_I.fs,"lambda",1290,"bias",vbias,"u_pi",u_pi,"linewidth",laser_linewidth,"randomkey",random_key_laser_phase+1).process(El_sig_I); Optfilter = Filter('filtdegree',3,"f_cutoff",110e9,"fs",fdac*kover,"filterType",filtertypes.gaussian,"active",true); Opt_sig_I = Optfilter.process(Opt_sig_I); Opt_sig_I = Amplifier("amp_mode","ideal_no_noise","gain_mode","output_power","amplification_db",0).process(Opt_sig_I); %%%%% Interference Signal Fiber Prop 2x fiber length %%%%%% Opt_sig_I = Fiber("fsimu",Opt_sig_I.fs,"fiber_length",2*link_length/1000,"alpha",0.3,"D",0,"lambda0",1310,"gamma",0,"Dslope",0.07).process(Opt_sig_I); % ber=zeros(i_); % patten=zeros(i_); i_ = wh.parameter.rop.length; j_ = wh.parameter.sir.length; ber_vnle=zeros(i_,j_); ber_mlse=zeros(i_,j_,3); for j = 1:j_ sir = wh.parameter.sir.values(j); %%%%% Set SIR %%%%%% Opt_sig_I_atten = Amplifier("amp_mode","ideal_no_noise","gain_mode","output_power","amplification_db",Opt_sig.power-sir).process(Opt_sig_I); %%%%% ADD Interference and Main Signal %%%%%% Opt_sig_MPI = Opt_sig_I_atten + Opt_sig; %%%%% Interference Signal Fiber Prop %%%%%% Opt_sig_MPI = Fiber("fsimu",Opt_sig.fs,"fiber_length",link_length/1000,"alpha",0.3,"D",0,"lambda0",1310,"gamma",0,"Dslope",0.07).process(Opt_sig_MPI); % Receiver ROP curve for i = 1:i_ rop=wh.parameter.rop.values(i); % Set ROP Rx_sig = Amplifier("amp_mode","ideal_no_noise","gain_mode","output_power","amplification_db",rop).process(Opt_sig_MPI); % patten(i) = Rx_sig.power; %%%%%% Square Law %%%%%% Rx_sig = Photodiode("fsimu",fdac*kover,"dark_current",2e-08,"responsivity",1,"temperature",20,"nep",1.8e-11).process(Rx_sig); %%%%%% Lowpass PhDiode %%%%%% Rx_sig = Filter('filtdegree',2,"f_cutoff",70e9,"fs",fdac*kover,"filterType",filtertypes.gaussian,"active",true).process(Rx_sig); %%%%%% Scope %%%%%% fadc = 256e9; Lp_scpe = Filter('filtdegree',4,"f_cutoff",100e9,"fs",fadc,"filterType",filtertypes.butterworth,"active",true); Scpe_sig = Scope("fsimu",fdac*kover,"fadc",fadc,... "delay",0,"fixed_delay",0,"filtertype",filtertypes.butterworth,... "samplingdelay",0,"rand_samplingdelay",0,"freq_offset",0,"samp_jitter",0,... "adcresolution",10,"quantbuffer",0.1,'block_dc',1,'lpf_active',1,'H_lpf',Lp_scpe).process(Rx_sig); if precomp_mode == 1 freqresp.estimate(Scpe_sig,"save",true,"savePath",precomp_path,"fileName",precomp_fn); freqresp.plot(); end % Scpe_sig_normalized = Scpe_sig.normalize("mode","rms"); % % Scpe_sig_normalized.normalize("mode","rms").spectrum("displayname",'After Scope','fignum',23); %%%%%% Sample to 2x fsym %%%%%% Scpe_sig = Scpe_sig.resample("fs_in",fadc,"fs_out",2*fsym); %%%%%% Sync Rx signal with reference %%%%%% [Scpe_sig,S] = Scpe_sig.tsynch("reference",Symbols,"fs_ref",fsym); %%%%% EQUALIZE %%%%%% Eq = FFE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",25,"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); % Eq = FFE_Kalman("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",25,"sps",2,"decide",0); % Eq = FFE_Kalman_Feedback("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",25,"sps",2,"decide",0); % Eq = FFE_adaptive_decision("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",25,"sps",2,"decide",1,"buffer_length",80); % Eq = FFE_DCremoval("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",25,"sps",2,"decide",0,"mu_dc",0.05,"dc_buffer_len",100); % % 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 db_channelapproach % ref symbols and transm. sequence are precoded [EQ_sig, Noi] = Eq.process(Scpe_sig,Duobinary().encode(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); [~,~,ber_vnle(i,j),~] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1); EQ_sig.spectrum('displayname','EQ DB Out','fignum',12345,'normalizeTo0dB',0,'normalizeToNyquist',0,'color',cols(3,:)); Noi.spectrum('displayname','Noise PSD optimal','fignum',1234,'normalizeTo0dB',0,'normalizeToNyquist',0,'color',cols(4,:)); elseif db_encode [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); elseif postfilter [EQ_sig, Noi] = Eq.process(Scpe_sig,Symbols); %%% REMOVE DC peak from Noi PSD S = Noi.signal; N1 = 1001; % recursion % Initialize the moving sum for the first window half_window = (N1 - 1) / 2; moving_sum = sum(S(1:N1)); % Calculate the first element of R1 S_(1:half_window+1) = S(1:half_window+1) - (moving_sum / N1); % Loop over the signal and apply the recursive moving average subtraction for n = (half_window+2):(length(S)-half_window) % Update the moving sum by subtracting the oldest value and adding the new one moving_sum = moving_sum - S(n-half_window-1) + S(n+half_window); % Calculate the new value of R1 S_(n) = S(n) - (moving_sum / N1); end S_(n+1:length(S)) = S(n+1:end) - (moving_sum / N1); Noi.signal = S_; %%% END REMOVE DC PEAK %%% Rx_bits = PAMmapper(M,0).demap(EQ_sig); [~,~,ber_vnle(i,j),~] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1); EQ_sig.spectrum('displayname','EQ Out','fignum',12345,'normalizeTo0dB',0,'normalizeToNyquist',0,'color',cols(1,:)); Noi.spectrum('displayname','Noise PSD optimal','fignum',22,'normalizeTo0dB',1,'normalizeToNyquist',0,'color',cols(2,:)); for nc = 1:3 burg_coeff = arburg(Noi.signal,nc); EQ_sig_filt = EQ_sig.filter(burg_coeff,1); % EQ_sig.spectrum("displayname","Signal Spectrum after Postfilter","fignum",1234); EQ_sig_mlse = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig_filt); % EQ_sig.spectrum("displayname","Signal Spectrum after MLSE","fignum",1234); if 1 cols = linspecer(12); % EQ_sig_filt.normalize('mode','rms').spectrum('displayname','Noise PSD','fignum',1234,'normalizeTo0dB',1,'normalizeToNyquist',0,'color',cols(nc+2,:)); [h,w] = freqz(1,burg_coeff,length(Noi),"whole",Noi.fs); % h = 1./h; h = h/max(abs(h)); hold on w_ = (w - Noi.fs/2); figure(22) plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',['', num2str(nc), ' coefficients for burg alg.']); end Rx_bits = PAMmapper(M,0).demap(EQ_sig_mlse); [~,errors_bm,ber_mlse(i,j,nc),errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1); % disp(['BER: ',sprintf('%.1E',ber_mlse(i,j)),' - - ROP: ',num2str(patten(i)),'dBm - - PAM-',num2str(M),' - - ',num2str(fsym*1e-9),' GBd']); end else [EQ_sig, Noi] = Eq.process(Scpe_sig,Symbols); if 0 Noi.spectrum('displayname','Noise PSD','fignum',123,'normalizeTo0dB',1,'normalizeToNyquist',1); EQ_sig.plot("displayname",'After EQ','fignum',1113); end % Rx_bits = PAMmapper(M,0).demap(EQ_sig); [~,errors_bm,ber_vnle(i,j),errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1); end end end for j = 1:j_ sir = wh.parameter.sir.values(j); for i = 1:i_ rop=wh.parameter.rop.values(i); wh.addValueToStorage(ber_vnle(i,j),'ber_vnle',M,datarate,rop,sir,random_key_laser_phase); wh.addValueToStorage(ber_mlse(i,j,:),'ber_mlse',M,datarate,rop,sir,random_key_laser_phase); end end toc % wh.save('C:\Users\Silas\Documents\MATLAB\imdd_simulation\projects\MPI_August\auswertung\') end end end disp('Simulation Done!') ber_mlse=[]; ber_vnle=[]; cols = linspecer(8); random_key_laser_phase_ = wh.parameter.random_key_laser_phase.values; cnt = 0; for r = random_key_laser_phase_ cnt = cnt+1; ber_mlse(cnt,:,1:3) = wh.getStoValue('ber_mlse',M,datarate,wh.parameter.rop.values(1),wh.parameter.sir.values,r); ber_vnle(cnt,:,1) = wh.getStoValue('ber_vnle',M,datarate,wh.parameter.rop.values(1),wh.parameter.sir.values,r); end ber_mlse=squeeze(mean(ber_mlse,1)); ber_vnle = mean(ber_vnle,1); % Create the initial plot figure(466); a = gca; hold on; % Retain the plot so new points can be added without complete redraw dispname = ['Lw: ',num2str(laser_linewidth.*1e-6),' MHz']; cols = linspecer(6); plot(wh.parameter.sir.values,ber_vnle,"LineWidth",0.5,"LineStyle","--","Marker",".","MarkerSize",15,"DisplayName",['PAM',num2str(M),' VNLE ',dispname],'Color',cols(1,:)); plot(wh.parameter.sir.values,ber_mlse(:,1),"LineWidth",0.5,"LineStyle","--","Marker",".","MarkerSize",15,"DisplayName",['PAM',num2str(M),'MLSE 1 ',dispname],'Color',cols(2,:)); plot(wh.parameter.sir.values,ber_mlse(:,2),"LineWidth",0.5,"LineStyle","--","Marker",".","MarkerSize",15,"DisplayName",['PAM',num2str(M),'MLSE 2',dispname],'Color',cols(3,:)); plot(wh.parameter.sir.values,ber_mlse(:,3),"LineWidth",0.5,"LineStyle","--","Marker",".","MarkerSize",15,"DisplayName",['PAM',num2str(M),'MLSE 3',dispname],'Color',cols(4,:)); 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