Code for Deliverable 05
This commit is contained in:
Silas Oettinghaus
@@ -4,16 +4,20 @@ params = struct;
|
||||
|
||||
params.M = [4];
|
||||
params.datarate = [224];
|
||||
params.sir = [15:45]; %decibel = attenuation of interference path
|
||||
params.laser_linewidth = [1e6];
|
||||
params.sir = [35]; %decibel = attenuation of interference path
|
||||
params.laser_linewidth = [10e6];
|
||||
|
||||
params.pn_key = [1];
|
||||
params.rop = [-7];
|
||||
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");
|
||||
@@ -22,74 +26,96 @@ 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: %%
|
||||
% SETUP HERE: %%
|
||||
kover = 8;
|
||||
M8199 = M8199A("kover",kover);
|
||||
fdac = M8199.fdac;
|
||||
fsym = round(datarate / log2(M))*1e9;
|
||||
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.3,"applypulseform",1,"pulseformer",Pform,"randkey",pn_key).process();
|
||||
[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 = El_sig.*0.7222;
|
||||
El_sig.signal = awgn(El_sig.signal,20,'measured',pn_key);
|
||||
%%%%% Lowpass before Modulator %%%%%%
|
||||
El_sig = Filter('filtdegree',2,"f_cutoff",60e9,"fs",fdac*kover,"filterType",filtertypes.butterworth,"active",true).process(El_sig);
|
||||
El_sig = Amplifier("amp_mode","ideal_no_noise","gain_mode","gain","amplification_db",10).process(El_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.3,"applypulseform",1,"pulseformer",Pform,"randkey",pn_key*2).process();
|
||||
[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 = El_sig_i.*0.7222;
|
||||
El_sig_i.signal = awgn(El_sig_i.signal,20,'measured',pn_key*2);
|
||||
%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",10).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.5;
|
||||
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);
|
||||
er = Opt_sig.extinctionratio(fsym,M);
|
||||
|
||||
Opt_sig = Amplifier("amp_mode","ideal_no_noise","gain_mode","output_power","amplification_db",0).process(Opt_sig);
|
||||
|
||||
% INTERFERENCE SIGNAL
|
||||
%%%%% MODULATE E/O CONVERSION %%%%%%
|
||||
u_pi = 2.9;
|
||||
vbias = -vbias_rel*u_pi;
|
||||
|
||||
[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_);
|
||||
@@ -97,8 +123,8 @@ for M = wh.parameter.M.values
|
||||
|
||||
patten=zeros(j_,i_);
|
||||
|
||||
parfor j = 1:j_
|
||||
|
||||
for j = 1:j_
|
||||
|
||||
sir = wh.parameter.sir.values(j);
|
||||
|
||||
|
||||
@@ -117,7 +143,8 @@ for M = wh.parameter.M.values
|
||||
% Opt = channel_model_mpi(Opt_sig,link_length,mpi_path,sir);
|
||||
|
||||
% Receiver ROP curve
|
||||
for i = 1:i_
|
||||
|
||||
parfor i = 1:i_
|
||||
rop=wh.parameter.rop.values(i);
|
||||
|
||||
% Set ROP
|
||||
@@ -129,47 +156,132 @@ for M = wh.parameter.M.values
|
||||
|
||||
%%%%%% Lowpass PhDiode %%%%%%
|
||||
Rx_sig = Filter('filtdegree',2,"f_cutoff",70e9,"fs",fdac*kover,"filterType",filtertypes.gaussian,"active",true).process(Rx_sig);
|
||||
% Rx_sig.spectrum("displayname","Received Signal after PhD","fignum",201);
|
||||
|
||||
% 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",63e9,"fs",fadc,"filterType",filtertypes.butterworth,"active",true);
|
||||
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",16,"quantbuffer",0.1,'block_dc',1,'lpf_active',1,'H_lpf',Lp_scpe).process(Rx_sig);
|
||||
|
||||
"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 %%%%%%
|
||||
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 = 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']);
|
||||
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
|
||||
|
||||
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",85);
|
||||
[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);
|
||||
[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']);
|
||||
|
||||
end
|
||||
end
|
||||
@@ -179,7 +291,6 @@ for M = wh.parameter.M.values
|
||||
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);
|
||||
@@ -188,12 +299,13 @@ for M = wh.parameter.M.values
|
||||
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
|
||||
@@ -201,6 +313,8 @@ end
|
||||
|
||||
|
||||
|
||||
rop_curve;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user