%% Parameter to simulate and save params = struct; params.M = [4]; params.datarate = [224]; params.sir = [35]; %decibel = attenuation of interference path params.laser_linewidth = [10e6]; params.pn_key = [1]; params.rop = [-12:1:-1]; usemrds = 0; name = ['wh_',strrep(num2str(now),'.','')]; wh = DataStorage(params); wh.addStorage("ber_ffe"); wh.addStorage("ber_dcavg"); wh.addStorage("ber_adapt"); wh.addStorage("ber_dcrem"); %% Init Params link_length = 10000; %meter endcnt = prod(wh.dim); cnt=0; disp(['Start Simulation of ',num2str(endcnt),' loops...']) tic for M = wh.parameter.M.values for datarate = wh.parameter.datarate.values for pn_key = wh.parameter.pn_key.values % SETUP HERE: %% kover = 8; M8199 = M8199A("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 %%%%%% [Digi_sig,Symbols,Bits] = PAMsource("fsym",fsym,"M",M,"order",18,"useprbs",0,... "fs_out",M8199.fdac,"applyclipping",1,"clipfactor",1.4,"applypulseform",1,"pulseformer",Pform,"randkey",pn_key,"mrds_code",usemrds,"mrds_blocklength",wl).process(); %%%%% AWG %%%%%% El_sig = M8199.process(Digi_sig); %El_sig.signal = awgn(El_sig.signal,20,'measured',pn_key); %%%%% Lowpass el. components %%%%%% El_sig = Filter('filtdegree',2,"f_cutoff",60e9,"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",9).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))); % INTERFERENCE SIGNAL %%%%% Symbol Generation %%%%%% [Digi_sig_i,Symbols_i,Bits_i] = PAMsource("fsym",fsym,"M",M,"order",18,"useprbs",0,... "fs_out",M8199.fdac,"applyclipping",1,"clipfactor",1.4,"applypulseform",1,"pulseformer",Pform,"randkey",pn_key*2,"mrds_code",usemrds,"mrds_blocklength",wl).process(); %%%%% AWG %%%%%% El_sig_i = M8199.process(Digi_sig_i); %El_sig_i.signal = awgn(El_sig_i.signal,20,'measured',pn_key*2); %%%%% Lowpass before Modulator %%%%%% El_sig_i = Filter('filtdegree',2,"f_cutoff",60e9,"fs",fdac*kover,"filterType",filtertypes.butterworth,"active",true).process(El_sig_i); El_sig_i = Amplifier("amp_mode","ideal_no_noise","gain_mode","gain","amplification_db",9).process(El_sig_i); 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))); for laser_linewidth = wh.parameter.laser_linewidth.values % MAIN SIGNAL %%%%% MODULATE E/O CONVERSION %%%%%% vbias_rel = 0.6; 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",pn_key).process(El_sig); Optfilter = Filter('filtdegree',6,"f_cutoff",fsym.*0.7,"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); % INTERFERENCE SIGNAL %%%%% MODULATE E/O CONVERSION %%%%%% [Opt_sig_i] = EML("mode",eml_mode.im_cosinus,"power",3,"fsimu",El_sig.fs,"lambda",1290,"bias",vbias,"u_pi",u_pi,"linewidth",laser_linewidth,"randomkey",pn_key+1).process(El_sig_i); 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); j_ = wh.parameter.sir.length; i_ = wh.parameter.rop.length; ber_ffe=zeros(j_,i_); ber_dcavg=zeros(j_,i_); ber_adapt=zeros(j_,i_); ber_dcrem=zeros(j_,i_); patten=zeros(j_,i_); for j = 1:j_ sir = wh.parameter.sir.values(j); %%%%% Interference Signal Fiber Prop %%%%%% Opt_sig_i_prop = Fiber("fsimu",Opt_sig_i.fs,"fiber_length",link_length/1000,"alpha",0.3,"D",0,"lambda0",1310,"gamma",0,"Dslope",0.07).process(Opt_sig_i); Opt_sig_i_prop = Amplifier("amp_mode","ideal_no_noise","gain_mode","output_power","amplification_db",Opt_sig.power-sir).process(Opt_sig_i_prop); %%%%% ADD Interference and Main Signal %%%%%% Opt_sig_comb = Opt_sig_i_prop + Opt_sig; %%%%% Interference Signal Fiber Prop %%%%%% Opt_sig_comb = Fiber("fsimu",Opt_sig_comb.fs,"fiber_length",link_length/1000,"alpha",0.3,"D",0,"lambda0",1310,"gamma",0,"Dslope",0.07).process(Opt_sig_comb); % % MPI Channel % Opt = channel_model_mpi(Opt_sig,link_length,mpi_path,sir); % Receiver ROP curve parfor 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_comb); patten(j,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); % Rx_sig.signal = Rx_sig.signal - mean(Rx_sig.signal); % % Rx_sig = Rx_sig.setPower(0,"dBm"); if 0 [b, a] = butter(1, 0.1e9/(Rx_sig.fs/2), 'high'); % Rx_sig.spectrum("fignum",1111,"displayname","before HPF"); Rx_sig.signal = filter(b, a, Rx_sig.signal); % Rx_sig.spectrum("fignum",1111,"displayname","after HPF"); end % figure(111) % hold on % [h, f] = freqz(b, a, length(Rx_sig), Rx_sig.fs); % plot(f, 20*log10(abs(h))); % title('Magnitude Response of Digital High-Pass Filter'); % xlabel('Frequency (Hz)'); % ylabel('Magnitude (dB)'); % grid on; %%%%%% 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); % Scpe_sig.spectrum("displayname","Received Signal after Scope","fignum",201); %%%%%% Sample to 2x fsym %%%%%% Scpe_sig = Scpe_sig.resample("fs_in",fadc,"fs_out",2*fsym); if usemrds Scpe_sig = MRDS_coding("blocklength",512).dc_remove(Scpe_sig,"oversampling_factor",2); end % rmean = zeros(1,2); if 0 data_in = Scpe_sig.signal; winlength = wl; for k = 1:winlength:length(data_in) try data = data_in(k:k+winlength-1); rmean(1) = mean(data); rmean = circshift(rmean,1); Scpe_sig.signal(k:k+winlength-1) = data - rmean(1); catch if k+winlength > length(data_in) data = data_in(k:length(data_in)); else error('indice problem.') end rmean(1) = mean(data); Scpe_sig.signal(k:length(data_in)) = data - rmean(1); end end % Scpe_sig.signal = data_out; end % Scpe_sig.plot("fignum",313,"displayname",'after dc removal'); %%%%%% Sync Rx signal with reference %%%%%% [Scpe_sig,D,cuts] = Scpe_sig.tsynch("reference",Symbols,"fs_ref",fsym); %%%%% EQUALIZE %%%%%% if ~usemrds % Eq = FFE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",25,"sps",2,"decide",1); % Eq = VNLE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",[0.0004 0.0005 0.0006],"mu_tr",0,"order",[25,2,2],"sps",2,"decide",1); [EQ_sig] = Eq.process(Scpe_sig,Symbols); Rx_bits = PAMmapper(M,0).demap(EQ_sig); [~,errors_bm,ber_ffe(j,i),errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1); disp(['BER: ',sprintf('%.1E',ber_ffe(j,i)),' - - ROP: ',num2str(patten(j,i)),'dBm - - PAM-',num2str(M),' - - ',num2str(fsym*1e-9),' GBd']); % % % % Eq = FFE_FFDCAVG("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",25,"sps",2,"decide",1,"mu_buff",0.7); % [EQ_sig] = Eq.process(Scpe_sig,Symbols); % Rx_bits = PAMmapper(M,0).demap(EQ_sig); % [~,errors_bm,ber_dcavg(j,i),errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1); % disp(['BER: ',sprintf('%.1E',ber_dcavg(j,i)),' - - ROP: ',num2str(patten(j,i)),'dBm - - PAM-',num2str(M),' - - ',num2str(fsym*1e-9),' GBd']); % % % 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",112); % [EQ_sig] = Eq.process(Scpe_sig,Symbols); % Rx_bits = PAMmapper(M,0).demap(EQ_sig); % [~,errors_bm,ber_adapt(j,i),errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1); % disp(['BER: ',sprintf('%.1E',ber_adapt(j,i)),' - - ROP: ',num2str(patten(j,i)),'dBm - - PAM-',num2str(M),' - - ',num2str(fsym*1e-9),' GBd']); % % % 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",1,"mu_dc",0.07,"dc_buffer_len",112); % [EQ_sig] = Eq.process(Scpe_sig,Symbols); % Rx_bits = PAMmapper(M,0).demap(EQ_sig); % [~,errors_bm,ber_dcrem(j,i),errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1); % disp(['BER: ',sprintf('%.1E',ber_dcrem(j,i)),' - - ROP: ',num2str(patten(j,i)),'dBm - - PAM-',num2str(M),' - - ',num2str(fsym*1e-9),' GBd']); else Eq = FFE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",25,"sps",2,"decide",1); [EQ_sig] = Eq.process(Scpe_sig,Symbols); Rx_bits = MRDS_coding("blocklength",wl).decode(EQ_sig); Rx_bits = PAMmapper(M,0).demap(Rx_bits); [~,errors_bm,ber_ffe(j,i),errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1); disp(['BER: ',sprintf('%.1E',ber_ffe(j,i)),' - - ROP: ',num2str(patten(j,i)),'dBm - - PAM-',num2str(M),' - - ',num2str(fsym*1e-9),' GBd']); 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_ffe(j,i) ,'ber_ffe',M,datarate,sir,laser_linewidth,pn_key,rop); wh.addValueToStorage(ber_dcavg(j,i),'ber_dcavg',M,datarate,sir,laser_linewidth,pn_key,rop); wh.addValueToStorage(ber_adapt(j,i),'ber_adapt',M,datarate,sir,laser_linewidth,pn_key,rop); wh.addValueToStorage(ber_dcrem(j,i),'ber_dcrem',M,datarate,sir,laser_linewidth,pn_key,rop); end end toc disp(['Simulated: ',num2str(cnt/endcnt*100),' %']); wh.save('C:\Users\Silas\Documents\MATLAB\imdd_simulation\projects\MPI_August\auswertung\') end end end end rop_curve;