MPI Simulations and stuff
This commit is contained in:
Silas Oettinghaus
124
projects/MPI_analysis_Mai24/base_simulation.m
Normal file
124
projects/MPI_analysis_Mai24/base_simulation.m
Normal file
@@ -0,0 +1,124 @@
|
||||
|
||||
M=4;
|
||||
|
||||
fdac = 256e9;%fsym;
|
||||
fadc = 256e9;
|
||||
fsym = [96:16:256].*1e9;
|
||||
|
||||
%fsym = 160e9;
|
||||
% 1) PRBS Generation
|
||||
O = 18; %order of prbs
|
||||
N = 2^(O-1); %length of prbs
|
||||
[~,seed] = prbs(O,1); %initialize first seed of prbs
|
||||
bitpattern=[];
|
||||
|
||||
for i = 1:log2(M)
|
||||
[bitpattern(:,i),seed] = prbs(O,N,seed);
|
||||
end
|
||||
|
||||
if M == 6
|
||||
bitpattern = reshape(bitpattern,[],1);
|
||||
bitpattern = bitpattern(1:end-mod(length(bitpattern),5));
|
||||
end
|
||||
|
||||
% 2 ) Build Inf. signal class
|
||||
bits = Informationsignal(bitpattern);
|
||||
|
||||
% 3) Digi modulation -> PAM-M signal
|
||||
digimod_out = PAMmapper(M,0).map(bits);
|
||||
|
||||
% 5) AWG (lowpass, quantization, sample and hold)
|
||||
kover = 8;
|
||||
LP_awg = Filter('filtdegree',4,"f_cutoff",75e9,"fs",fdac*kover,"filterType",filtertypes.butterworth);
|
||||
|
||||
powerlist = [];
|
||||
for i = length(fsym):-1:1
|
||||
digimod_out.fs = fsym(i);
|
||||
|
||||
X = Pulseformer("fsym",fsym(i),"fdac",fdac,"pulse","rrc","pulselength",16,"rrcalpha",0.1).process(digimod_out);
|
||||
%X = digimod_out;
|
||||
|
||||
X = AWG("fdac",fdac,"dac_min",-1,"dac_max",1,"lpf_active",1,"H_lpf",LP_awg,"kover",kover,"bit_resolution",5.5,"normalize2dac",1,"upsampling_method","samplehold").process(X);
|
||||
|
||||
|
||||
% 6) Lowpass behavior before laser
|
||||
X = LP_modulator.process(X);
|
||||
|
||||
% 7) Normalize signal
|
||||
X = X.normalize("mode","oneone");
|
||||
|
||||
% 1) Laser; Modulation -> OPTICAL DOMAIN
|
||||
u_pi = 2;
|
||||
vbias = -vb(m);
|
||||
extmodlaser = EML("mode",eml_mode.im_cosinus,"power",3,"fsimu",X.fs,"lambda",1290,"bias",vbias,"u_pi",u_pi,"linewidth",laser_linewidth(l),"randomkey",pn_key(pnk));
|
||||
E = X.*vp(n);
|
||||
|
||||
[Opt,extmodlaser] = extmodlaser.process(E);
|
||||
|
||||
figure(m)
|
||||
hold on
|
||||
scatter(E.signal(1:100000),(abs(Opt.signal(1:100000)).^2)*1e3,0.1,'.','DisplayName','Modulator TF')
|
||||
xlabel('Input in V')
|
||||
ylabel('abs(Output) in mW')
|
||||
|
||||
% ER = 10*log10(max(abs(Opt.signal).^2)/min(abs(Opt.signal).^2));
|
||||
|
||||
Opt = LP_opt.process(Opt);
|
||||
|
||||
cspr(s,l,pnk,n,m) = Opt.cspr;
|
||||
mod_out_pow(s,l,pnk,n,m) = Opt.power;
|
||||
|
||||
% 2) ping pong fiber propagation
|
||||
Interference_sig = Fiber("fsimu",Opt.fs,"fiber_length",mpi_path*2/1000,"alpha",0,"D",0,"lambda0",1310,"gamma",0).process(Opt);
|
||||
|
||||
Interference_sig = Amplifier("amp_mode","ideal_no_noise","gain_mode","gain","amplification_db",-sir(s)).process(Interference_sig);
|
||||
|
||||
% In the meantime: delay the main signal
|
||||
[Main_sig,dly] = Opt.delay("delay_meter",mpi_path*2);
|
||||
|
||||
% Add
|
||||
Combined_sig = Main_sig + Interference_sig;
|
||||
|
||||
% Cut (due to the delays there is a jump in the signals)
|
||||
if dly == 0;dly = 1;end
|
||||
Combined_sig.signal = Combined_sig.signal(ceil(dly):end);
|
||||
|
||||
% Fiber
|
||||
Combined_sig = Fiber("fsimu",Combined_sig.fs,"fiber_length",2,"alpha",0.3,"D",0,"lambda0",1310,"gamma",0,"Dslope",0.08).process(Combined_sig);
|
||||
|
||||
|
||||
|
||||
|
||||
powerlist(i)=X.power;
|
||||
|
||||
% Sample to 2x fsym
|
||||
X = X.resample("fs_in",kover*fdac,"fs_out",2*fsym(i));
|
||||
|
||||
% Sync Rx signal with reference
|
||||
[X,D,cuts] = X.tsynch("reference",digimod_out,"fs_ref",fsym(i));
|
||||
|
||||
[EQ_sig,EQ_sym] = EQ_silas("Ne",[50,0,0],"Nb",[2,0,0],"trainlength",4096,...
|
||||
"sps",2,...
|
||||
"mu_dc_dd",0.00,...
|
||||
"mu_dc_train",0.0,...
|
||||
"mu_ffe_train",0.00,...
|
||||
"mu_dfe_train",0.005,...
|
||||
"mu_ffe_dd",[0.0004 0.0006 0.0003],...
|
||||
"mu_dfe_dd",0.005,...
|
||||
"ddloops",3,...
|
||||
"trainloops",3,...
|
||||
"eq_parallelization_blocklength",1, ...
|
||||
"eq_updatelatency",1,...
|
||||
"eq_avg_blocklength",0).process(X,digimod_out);
|
||||
|
||||
% Demap
|
||||
Rx_Bits = PAMmapper(M,0).demap(EQ_sig);
|
||||
|
||||
% BER
|
||||
[~,errors_bm,BER(i),errors] = calc_ber(Rx_Bits.signal,bitpattern,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
|
||||
figure()
|
||||
stem(fsym.*1e-9,powerlist);
|
||||
xticks(fsym.*1e-9)
|
||||
247
projects/MPI_analysis_Mai24/eq_compare.m
Normal file
247
projects/MPI_analysis_Mai24/eq_compare.m
Normal file
@@ -0,0 +1,247 @@
|
||||
|
||||
%clear;
|
||||
col = linspecer(6);
|
||||
|
||||
% GENERATE SIR CURVE
|
||||
if ismac
|
||||
foldername = '/Users/silasoettinghaus/Documents/MATLAB/Labor_Datensatz_PAM4_MPI/pam4_10km_1km';
|
||||
else
|
||||
foldername = 'C:\Users\Silas\Documents\MATLAB\Datensätze\Labor_Datensatz_PAM4_MPI_OFC2023\pam4_10km_1km';
|
||||
end
|
||||
|
||||
allfiles = dir(foldername);
|
||||
|
||||
eq_updatelatency = 2;
|
||||
eq_avg_blocklength =0;
|
||||
eq_parallelization_blocklength = 92;
|
||||
mudc = 0.01;
|
||||
|
||||
|
||||
eq_ofc = EQ_silas_ofc("Ne",[25,0,0],"Nb",[2,0,0],"trainlength",4096,...
|
||||
"sps",2,...
|
||||
"mu_dc_dd",mudc,...
|
||||
"mu_dc_train",mudc,...
|
||||
"mu_ffe_train",0,...
|
||||
"mu_dfe_train",0.005,...
|
||||
"mu_ffe_dd",[0.0004 0.0004 0.0004],...
|
||||
"mu_dfe_dd",0.005,...
|
||||
"ddloops",3,...
|
||||
"trainloops",4,...
|
||||
"eq_parallelization_blocklength",eq_parallelization_blocklength, ...
|
||||
"eq_updatelatency",eq_updatelatency,...
|
||||
"eq_avg_blocklength",eq_avg_blocklength);
|
||||
|
||||
eq_normal = EQ_silas_ofc("Ne",[25,0,0],"Nb",[2,0,0],"trainlength",4096,...
|
||||
"sps",2,...
|
||||
"mu_dc_dd",0,...
|
||||
"mu_dc_train",0,...
|
||||
"mu_ffe_train",0,...
|
||||
"mu_dfe_train",0.005,...
|
||||
"mu_ffe_dd",[0.0004 0.0004 0.0004],...
|
||||
"mu_dfe_dd",0.005,...
|
||||
"ddloops",3,...
|
||||
"trainloops",4,...
|
||||
"eq_parallelization_blocklength",eq_parallelization_blocklength, ...
|
||||
"eq_updatelatency",eq_updatelatency,...
|
||||
"eq_avg_blocklength",eq_avg_blocklength);
|
||||
|
||||
mudc = 0.01;
|
||||
eq_ff = EQ_silas("Ne",[25,0,0],"Nb",[2,0,0],"trainlength",4096,...
|
||||
"sps",2,...
|
||||
"mu_dc_dd",mudc,...
|
||||
"mu_dc_train",mudc,...
|
||||
"mu_ffe_train",0,...
|
||||
"mu_dfe_train",0.005,...
|
||||
"mu_ffe_dd",[0.0004 0.0004 0.0004],...
|
||||
"mu_dfe_dd",0.005,...
|
||||
"ddloops",3,...
|
||||
"trainloops",4,...
|
||||
"eq_parallelization_blocklength",eq_parallelization_blocklength, ...
|
||||
"eq_updatelatency",eq_updatelatency,...
|
||||
"eq_avg_blocklength",0);
|
||||
|
||||
% [ber_nml,sir_nml,fsym_nml] = sweepSIR(allfiles,eq_normal);
|
||||
% [ber_ofc,sir_ofc,fsym_ofc] = sweepSIR(allfiles,eq_ofc);
|
||||
% [ber_ff,sir_ff,fsym_ff] = sweepSIR(allfiles,eq_ff);
|
||||
|
||||
% plotBerCurve(ber_nml,sir_nml,fsym_nml);
|
||||
% plotBerCurve(ber_ofc,sir_ofc,fsym_ofc);
|
||||
% plotBerCurve(ber_ff,sir_ff,fsym_ff);
|
||||
|
||||
measurementpath = 'C:\Users\Silas\Documents\MATLAB\Datensätze\Labor_Datensatz_PAM4_MPI_OFC2023\pam4_10km_1km\pam4__loop_10_92Gbd_19092023_1508.mat';
|
||||
% measurementpath = findSirAndFsym(allfiles,-30,92e9);
|
||||
measurementpath = 'C:\Users\Silas\Documents\MATLAB\Datensätze\Labor_Datensatz_PAM4_MPI_OFC2023\pam4_10km_1km\pam4__loop_30_92Gbd_19092023_1547.mat';
|
||||
|
||||
% comparePSD(measurementpath)
|
||||
|
||||
% [totalbits,errors,ber_,loc,sir,fsym] = singleBerRun(measurementpath, eq_normal);
|
||||
% [totalbits,errors,ber_,loc,sir,fsym] = singleBerRun(measurementpath, eq_ofc);
|
||||
|
||||
|
||||
[~,~,ber_,~,sir,fsym] = singleBerRun(measurementpath, eq_ff);
|
||||
|
||||
|
||||
mudc_loop = [0, 0.0001,0.0005, 0.001,0.005, 0.01:0.01:0.1, 0.2:0.1:1];
|
||||
|
||||
blocklength = [20:20:200];
|
||||
|
||||
parfor m = 1:length(mudc_loop)
|
||||
eq_ff = EQ_silas("Ne",[25,0,0],"Nb",[2,0,0],"trainlength",4096,...
|
||||
"sps",2,...
|
||||
"mu_dc_dd",mudc_loop(m),...
|
||||
"mu_dc_train",mudc_loop(m),...
|
||||
"mu_ffe_train",0,...
|
||||
"mu_dfe_train",0.005,...
|
||||
"mu_ffe_dd",[0.0004 0.0004 0.0004],...
|
||||
"mu_dfe_dd",0.005,...
|
||||
"ddloops",3,...
|
||||
"trainloops",4,...
|
||||
"eq_parallelization_blocklength",eq_parallelization_blocklength, ...
|
||||
"eq_updatelatency",eq_updatelatency,...
|
||||
"eq_avg_blocklength",100);%blocklength(m));
|
||||
|
||||
[~,~,ber_(m),~,sir(m),fsym(m)] = singleBerRun(measurementpath, eq_ff);
|
||||
end
|
||||
|
||||
figure(2)
|
||||
hold on
|
||||
plot(mudc_loop,ber_,'Marker','o')
|
||||
ylim([1e-4, 1e-2])
|
||||
yline(3.8e-3);
|
||||
set(gca, 'YScale', 'log');
|
||||
set(gca, 'XScale', 'log');
|
||||
|
||||
|
||||
|
||||
function cur_path = findSirAndFsym(allfiles,sir_desired,fsym_desired)
|
||||
for i = 1:length(allfiles)
|
||||
|
||||
if allfiles(i).bytes ~= 0
|
||||
cur_path = [allfiles(i).folder,filesep, allfiles(i).name];
|
||||
recorded_data = load(cur_path);
|
||||
delete(findobj('Type','figure','Name','prms_compare'));
|
||||
else
|
||||
continue
|
||||
end
|
||||
|
||||
sir = recorded_data.saveStructTemp.awg2scope_keysight_state.eigenlight_mpi - 3.3 + 7.2;
|
||||
fsym = recorded_data.saveStructTemp.common.f_sym;
|
||||
|
||||
if abs(sir-sir_desired)<1 && abs(fsym-fsym_desired)<1e9
|
||||
return
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
function comparePSD(filepath)
|
||||
recorded_data = load(filepath);
|
||||
delete(findobj('Type','figure','Name','prms_compare'));
|
||||
sir = recorded_data.saveStructTemp.awg2scope_keysight_state.eigenlight_mpi - 3.3 + 7.2;
|
||||
fsym = recorded_data.saveStructTemp.common.f_sym;
|
||||
|
||||
spectrum_plot(recorded_data.saveStructTemp.dp_tsynch_out',2*fsym);
|
||||
|
||||
x = recorded_data.saveStructTemp.dp_tsynch_out';
|
||||
|
||||
pwelch(x,hamming(length(x)),[],length(x),2*fsym,"centered","power");
|
||||
|
||||
periodogram(x,hamming(length(x)),length(x),"centered","psd");
|
||||
|
||||
end
|
||||
|
||||
function [totalbits,errors,ber_,loc,sir,fsym] = singleBerRun(filepath, eq_object)
|
||||
|
||||
recorded_data = load(filepath);
|
||||
delete(findobj('Type','figure','Name','prms_compare'));
|
||||
sir = recorded_data.saveStructTemp.awg2scope_keysight_state.eigenlight_mpi - 3.3 + 7.2;
|
||||
fsym = recorded_data.saveStructTemp.common.f_sym;
|
||||
|
||||
% 0) build RX Signal
|
||||
y_rx = Electricalsignal(recorded_data.saveStructTemp.dp_tsynch_out');
|
||||
y_rx.fs = 2.*fsym;
|
||||
|
||||
% 0) build tx reference Signal for eq training
|
||||
y_digimod = Informationsignal(recorded_data.saveStructTemp.digi_mod_out');
|
||||
y_digimod.fs = fsym;
|
||||
|
||||
bits_ref = recorded_data.saveStructTemp.prms_out;
|
||||
|
||||
[totalbits,errors,ber_,loc] = runPostProc(eq_object,y_rx,y_digimod,bits_ref);
|
||||
|
||||
disp([class(eq_object),': fsym: ',num2str(fsym*1e-9),'GBd, SIR: ',num2str(sir),' ->> BER: ',sprintf('%2E',ber_)]);
|
||||
|
||||
end
|
||||
|
||||
function plotBerCurve(ber_,sir,fsym)
|
||||
|
||||
rate = [92e9, 56e9];
|
||||
figure(95)
|
||||
|
||||
for r = 1:length(rate)
|
||||
|
||||
sorted = sortrows([sir(fsym == rate(r)); ber_(fsym == rate(r))]',1)';
|
||||
hold on
|
||||
plot(abs(sorted(1,:)),sorted(2,:),'DisplayName',[num2str(rate(r).*1e-9),' GBd; PAM4;'],'LineWidth',1,'Marker','o','MarkerSize',5,'LineStyle','-','HandleVisibility','on');
|
||||
|
||||
|
||||
end
|
||||
set(gca, 'YScale', 'log');
|
||||
yline(3.8e-3,'LineWidth',1, 'LineStyle','--','HandleVisibility','off');
|
||||
xlim([15,35]);
|
||||
xlabel('SIR in dB');
|
||||
ylabel('BER');
|
||||
end
|
||||
|
||||
function [ber_,sir,fsym] = sweepSIR(allfiles,eq_object)
|
||||
|
||||
parfor i = 1:length(allfiles)
|
||||
|
||||
if allfiles(i).bytes ~= 0
|
||||
recorded_data = load([allfiles(i).folder,filesep, allfiles(i).name]);
|
||||
delete(findobj('Type','figure','Name','prms_compare'));
|
||||
else
|
||||
continue
|
||||
end
|
||||
|
||||
sir(i) = recorded_data.saveStructTemp.awg2scope_keysight_state.eigenlight_mpi - 3.3 + 7.2;
|
||||
fsym(i) = recorded_data.saveStructTemp.common.f_sym;
|
||||
|
||||
fdac(i) = recorded_data.saveStructTemp.common.f_DAC;
|
||||
fadc(i) = recorded_data.saveStructTemp.common.f_ADC;
|
||||
|
||||
% 0) build RX Signal
|
||||
y_rx = Electricalsignal(recorded_data.saveStructTemp.dp_tsynch_out');
|
||||
y_rx.fs = 2.*fsym(i);
|
||||
|
||||
% 0) build tx reference Signal for eq training
|
||||
y_digimod = Informationsignal(recorded_data.saveStructTemp.digi_mod_out');
|
||||
y_digimod.fs = fsym(i);
|
||||
|
||||
bits_ref = recorded_data.saveStructTemp.prms_out;
|
||||
|
||||
[totalbits,errors,ber_(i),loc] = runPostProc(eq_object,y_rx,y_digimod,bits_ref);
|
||||
|
||||
disp(['fsym: ',num2str(fsym(i)*1e-9),'GBd, SIR: ',num2str(sir(i)),' ->> BER: ',sprintf('%2E',ber_(i))]);
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
function [totalbits,errors,ber_,loc] = runPostProc(eq_object,y_rx,y_ref,bits_ref)
|
||||
|
||||
% 1) normlaize
|
||||
y_rx = y_rx.normalize("mode","rms");
|
||||
|
||||
[Eq_out] = eq_object.process(y_rx,y_ref);
|
||||
|
||||
% 3) digital demodulation object
|
||||
digimod = PAMmapper(4,0);
|
||||
|
||||
%estimated/ equalized symbol sequence
|
||||
d_estimated = digimod.demap(Eq_out);
|
||||
|
||||
% 4) BER calculation
|
||||
[totalbits,errors,ber_,loc] = calc_ber(d_estimated.signal(1:end,:),bits_ref(1:end,:)',"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
|
||||
end
|
||||
462
projects/MPI_analysis_Mai24/ofc_sim.m
Normal file
462
projects/MPI_analysis_Mai24/ofc_sim.m
Normal file
@@ -0,0 +1,462 @@
|
||||
|
||||
clear;
|
||||
col = linspecer(6);
|
||||
|
||||
% GENERATE SIR CURVE
|
||||
if ismac
|
||||
foldername = '/Users/silasoettinghaus/Documents/MATLAB/Labor_Datensatz_PAM4_MPI/pam4_10km_1km';
|
||||
else
|
||||
foldername = 'C:\Users\Silas\Documents\MATLAB\Datensätze\Labor_Datensatz_PAM4_MPI_OFC2023\pam4_10km_1km';
|
||||
end
|
||||
|
||||
|
||||
% SETTINGS
|
||||
optimize_mudc = 0;
|
||||
run_sir_sweep = 1;
|
||||
run_feed_forward = 0;
|
||||
run_baseline = 0;
|
||||
run_ideal_dc_tap = 0;
|
||||
plot_timesignal = 0;
|
||||
|
||||
block_loop = [92];
|
||||
|
||||
for bl = 1:numel(block_loop)
|
||||
|
||||
eq_parallelization_blocklength = block_loop(bl);
|
||||
eq_updatelatency = 3;
|
||||
eq_avg_blocklength =0;
|
||||
|
||||
% FIND BEST MU DC
|
||||
|
||||
if optimize_mudc
|
||||
mudc_loop = [0, 0.0001,0.0005, 0.001,0.005, 0.01:0.01:0.1, 0.2:0.1:1];
|
||||
|
||||
current_filename = 'pam4__loop_14_92Gbd_19092023_1513.mat';
|
||||
% current_filename = 'pam4__loop_29_56Gbd_19092023_1546.mat';
|
||||
recorded_data = load([foldername,filesep, current_filename]);
|
||||
|
||||
[best_mudc,ber]= optimizeMuDc(recorded_data,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc_loop);
|
||||
|
||||
figure(16)
|
||||
hold on
|
||||
scatter(mudc_loop(mudc_loop~=best_mudc),ber(mudc_loop~=best_mudc),'Marker','*','LineWidth',1);
|
||||
set(gca, 'YScale', 'log');
|
||||
set(gca, 'XScale', 'log');
|
||||
scatter(best_mudc,ber(mudc_loop==best_mudc),100,'Marker','*','LineWidth',2)
|
||||
yline(ber(1));
|
||||
xlim([0,1])
|
||||
end
|
||||
|
||||
if run_sir_sweep
|
||||
|
||||
%mudc = 0.04;%best_mudc;
|
||||
mudc = 0.005;
|
||||
|
||||
[ber,sir,fsym] = runSIRsweep(eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc);
|
||||
|
||||
plotSirSweep(ber,sir,fsym,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc)
|
||||
|
||||
crossing = calculateCrossing([92e9, 56e9],ber,sir,fsym);
|
||||
|
||||
req_sir_56(bl) = crossing(2,2) ;
|
||||
req_sir_92(bl) = crossing(2,1) ;
|
||||
|
||||
end
|
||||
|
||||
|
||||
end
|
||||
|
||||
if run_feed_forward
|
||||
|
||||
current_filename = 'pam4__loop_14_92Gbd_19092023_1513.mat';
|
||||
recorded_data = load([foldername,filesep, current_filename]);
|
||||
eq_avg_blocklength = [50,100,1000,3000];
|
||||
[best_block,ber]= optimizeAvgBlocklength(recorded_data,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,0);
|
||||
|
||||
|
||||
best_block = 400;
|
||||
|
||||
[ber_base,sir_base,fsym_base] = runSIRsweep(eq_parallelization_blocklength,eq_updatelatency,best_block,0);
|
||||
|
||||
plotSirSweep(ber_base,sir_base,fsym_base,eq_parallelization_blocklength,eq_updatelatency,best_block,0)
|
||||
|
||||
crossing = calculateCrossing([92e9, 56e9],ber_base,sir_base,fsym_base);
|
||||
|
||||
[ber_base,sir_base,fsym_base] = runSIRsweep(eq_parallelization_blocklength,eq_updatelatency,0,0);
|
||||
|
||||
plotSirSweep(ber_base,sir_base,fsym_base,eq_parallelization_blocklength,eq_updatelatency,0,0)
|
||||
|
||||
crossing = calculateCrossing([92e9, 56e9],ber_base,sir_base,fsym_base);
|
||||
|
||||
end
|
||||
|
||||
|
||||
if run_baseline
|
||||
|
||||
% baseline means no DC removal alg!
|
||||
mudc = 0;
|
||||
[ber_base,sir_base,fsym_base] = runSIRsweep(eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc);
|
||||
|
||||
plotSirSweep(ber_base,sir_base,fsym_base,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc)
|
||||
|
||||
crossing = calculateCrossing([92e9, 56e9],ber_base,sir_base,fsym_base);
|
||||
|
||||
req_sir_56_baseline = crossing(2,2) ;
|
||||
req_sir_92_baseline = crossing(2,1) ;
|
||||
|
||||
end
|
||||
|
||||
if run_ideal_dc_tap
|
||||
|
||||
current_filename = 'pam4__loop_29_56Gbd_19092023_1546.mat';
|
||||
recorded_data = load([foldername,filesep, current_filename]);
|
||||
[mudc,~]= optimizeMuDc(recorded_data,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc_loop);
|
||||
|
||||
eq_parallelization_blocklength = 1;
|
||||
eq_updatelatency = 1;
|
||||
[ber_ideal,sir_ideal,fsym_ideal] = runSIRsweep(eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc);
|
||||
|
||||
plotSirSweep(ber_ideal,sir_ideal,fsym_ideal,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc)
|
||||
|
||||
crossing = calculateCrossing([92e9, 56e9],ber_ideal,sir_ideal,fsym_ideal);
|
||||
|
||||
req_sir_56_ideal = crossing(2,2) ;
|
||||
req_sir_92_ideal = crossing(2,1) ;
|
||||
|
||||
end
|
||||
|
||||
|
||||
|
||||
if plot_timesignal
|
||||
|
||||
current_filename = 'pam4__loop_26_92Gbd_19092023_1542.mat';
|
||||
recorded_data = load([foldername,filesep, current_filename]);
|
||||
|
||||
sir = recorded_data.saveStructTemp.awg2scope_keysight_state.eigenlight_mpi - 3.3 + 7.2;
|
||||
|
||||
fsym = 92e9;
|
||||
eq_parallelization_blocklength = 1;
|
||||
eq_updatelatency = 1;
|
||||
eq_avg_blocklength = 0;
|
||||
|
||||
% TRUE SYMBOLS
|
||||
correct_symbols = recorded_data.saveStructTemp.digi_mod_out';
|
||||
|
||||
%3) PLAIN RECEIVED SIGNAL
|
||||
disp('RX Signal')
|
||||
y_rx = Electricalsignal(recorded_data.saveStructTemp.dp_tsynch_out');
|
||||
y_rx.fs = 2.*fsym;
|
||||
rx_symbols = y_rx.resample("fs_in",2.*fsym,"fs_out",fsym);
|
||||
rx_symbols = rx_symbols.normalize("mode","rms").signal;
|
||||
disp(std(rx_symbols));
|
||||
scatterleveldependent(rx_symbols,correct_symbols,fsym);
|
||||
|
||||
%1) PLOT WITH WITH ALGORITHM
|
||||
if 0
|
||||
mudc_loop = [0, 0.0001,0.0005, 0.001,0.005, 0.01:0.01:0.1, 0.2:0.1:1];
|
||||
[mudc,~]= optimizeMuDc(recorded_data,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc_loop);
|
||||
end
|
||||
|
||||
disp('ALGORITHM ')
|
||||
mudc = 0.05;
|
||||
results_alg = runPostProcessing(recorded_data,mudc,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength);
|
||||
disp(results_alg.ber);
|
||||
rx_symbols = results_alg.EQ_out.signal;
|
||||
disp(std(rx_symbols));
|
||||
scatterleveldependent(rx_symbols,correct_symbols,fsym);
|
||||
|
||||
%2) JUST EQ
|
||||
disp('Just EQ')
|
||||
mudc = 0;
|
||||
results = runPostProcessing(recorded_data,mudc,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength);
|
||||
disp(results.ber)
|
||||
rx_symbols = results.EQ_out.signal;
|
||||
disp(std(rx_symbols));
|
||||
scatterleveldependent(rx_symbols,correct_symbols,fsym);
|
||||
|
||||
|
||||
|
||||
|
||||
end
|
||||
|
||||
|
||||
function plotSirSweep(ber,sir,fsym,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc)
|
||||
|
||||
|
||||
rate = [92e9, 56e9];
|
||||
figure(95)
|
||||
|
||||
for r = 1:length(rate)
|
||||
|
||||
sorted = sortrows([sir(fsym == rate(r)); ber(fsym == rate(r))]',1)';
|
||||
hold on
|
||||
plot(abs(sorted(1,:)),sorted(2,:),'DisplayName',[num2str(rate(r).*1e-9),' GBd; PAM4; mudc: ',num2str(mudc)],'LineWidth',1,'Marker','o','MarkerSize',5,'LineStyle','-','HandleVisibility','on');
|
||||
|
||||
end
|
||||
|
||||
set(gca, 'YScale', 'log');
|
||||
yline(3.8e-3,'LineWidth',1, 'LineStyle','--','HandleVisibility','off');
|
||||
xlim([15,35]);
|
||||
xlabel('SIR in dB');
|
||||
ylabel('BER');
|
||||
|
||||
end
|
||||
|
||||
function [crossing] = calculateCrossing(rate,ber,sir,fsym)
|
||||
|
||||
for r = 1:length(rate)
|
||||
sorted = sortrows([sir(fsym == rate(r)); ber(fsym == rate(r))]',1)';
|
||||
berVals = sorted(2,:);
|
||||
xAxis = sorted(1,:);
|
||||
|
||||
hdfec = 3.8e-3 .* ones(1,length(sorted));
|
||||
crossing(:,r) = InterX([hdfec(:)';xAxis],[berVals;xAxis]) ;
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
function [ber,sir,fsym] = runSIRsweep(eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc)
|
||||
|
||||
% GENERATE SIR CURVE
|
||||
if ismac
|
||||
foldername = '/Users/silasoettinghaus/Documents/MATLAB/Labor_Datensatz_PAM4_MPI/pam4_10km_1km';
|
||||
else
|
||||
foldername = 'C:\Users\Silas\Documents\MATLAB\Datensätze\Labor_Datensatz_PAM4_MPI_OFC2023\pam4_10km_1km';
|
||||
end
|
||||
|
||||
allfiles = dir(foldername);
|
||||
|
||||
for i = 1:length(allfiles)
|
||||
|
||||
if allfiles(i).bytes ~= 0
|
||||
current_filename = allfiles(i).name;
|
||||
recorded_data = load([foldername,filesep, current_filename]);
|
||||
else
|
||||
continue
|
||||
end
|
||||
|
||||
results = runPostProcessing(recorded_data,mudc,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength);
|
||||
ber(i) = results.ber;
|
||||
fsym(i) = results.fsym;
|
||||
sir(i) = results.sir;
|
||||
|
||||
disp(['fsym: ',num2str(results.fsym*1e-9),'GBd, SIR: ',num2str(results.sir),' ->> BER: ',sprintf('%2E',results.ber)]);
|
||||
|
||||
end
|
||||
end
|
||||
|
||||
function [best_blocklength,ber] = optimizeAvgBlocklength(recorded_data,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength_loop,mudc)
|
||||
|
||||
for j = 1:length(eq_avg_blocklength_loop)
|
||||
eq_avg_blocklength = eq_avg_blocklength_loop(j);
|
||||
|
||||
|
||||
results = runPostProcessing(recorded_data,mudc,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength);
|
||||
ber(j) = results.ber;
|
||||
|
||||
disp(['fsym: ',num2str(results.fsym*1e-9),'GBd, SIR: ',num2str(results.sir),' ->> BER: ',sprintf('%2E',results.ber)]);
|
||||
|
||||
end
|
||||
|
||||
[~,pos]=min(ber);
|
||||
best_blocklength = eq_avg_blocklength_loop(pos);
|
||||
|
||||
end
|
||||
|
||||
function [best_mudc,ber] = optimizeMuDc(recorded_data,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength,mudc_loop)
|
||||
|
||||
parfor j = 1:length(mudc_loop)
|
||||
mudc = mudc_loop(j);
|
||||
|
||||
|
||||
results = runPostProcessing(recorded_data,mudc,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength);
|
||||
ber(j) = results.ber;
|
||||
|
||||
disp(['fsym: ',num2str(results.fsym*1e-9),'GBd, SIR: ',num2str(results.sir),' ->> BER: ',sprintf('%2E',results.ber)]);
|
||||
|
||||
end
|
||||
|
||||
[~,pos]=min(ber);
|
||||
best_mudc = mudc_loop(pos);
|
||||
|
||||
end
|
||||
|
||||
function results = runPostProcessing(recorded_data,mudc,eq_parallelization_blocklength,eq_updatelatency,eq_avg_blocklength)
|
||||
|
||||
results.sir = recorded_data.saveStructTemp.awg2scope_keysight_state.eigenlight_mpi - 3.3 + 7.2;
|
||||
results.fsym = recorded_data.saveStructTemp.common.f_sym;
|
||||
|
||||
results.fdac = recorded_data.saveStructTemp.common.f_DAC;
|
||||
results.fadc = recorded_data.saveStructTemp.common.f_ADC;
|
||||
|
||||
|
||||
% 0) build RX Signal
|
||||
y_rx = Electricalsignal(recorded_data.saveStructTemp.dp_tsynch_out');
|
||||
y_rx.fs = 2.*results.fsym;
|
||||
|
||||
% 0) build tx reference Signal for eq training
|
||||
y_digimod = Informationsignal(recorded_data.saveStructTemp.digi_mod_out');
|
||||
y_digimod.fs = results.fsym;
|
||||
|
||||
|
||||
% 1) normlaize
|
||||
y_rx = y_rx.normalize("mode","rms");
|
||||
|
||||
eq = EQ_silas_ofc("Ne",[25,0,0],"Nb",[2,0,0],"trainlength",4096,...
|
||||
"sps",2,...
|
||||
"mu_dc_dd",mudc,...
|
||||
"mu_dc_train",mudc,...
|
||||
"mu_ffe_train",0,...
|
||||
"mu_dfe_train",0.005,...
|
||||
"mu_ffe_dd",[0.0004 0.0004 0.0004],...
|
||||
"mu_dfe_dd",0.005,...
|
||||
"ddloops",3,...
|
||||
"trainloops",4,...
|
||||
"eq_parallelization_blocklength",eq_parallelization_blocklength, ...
|
||||
"eq_updatelatency",eq_updatelatency,...
|
||||
"eq_avg_blocklength",eq_avg_blocklength);
|
||||
%
|
||||
% eq = EQ_silas("Ne",[25,0,0],"Nb",[2,0,0],"trainlength",4096,...
|
||||
% "sps",2,...
|
||||
% "mu_dc_dd",mudc,...
|
||||
% "mu_dc_train",mudc,...
|
||||
% "mu_ffe_train",0,...
|
||||
% "mu_dfe_train",0.005,...
|
||||
% "mu_ffe_dd",[0.0004 0.0004 0.0004],...
|
||||
% "mu_dfe_dd",0.005,...
|
||||
% "ddloops",3,...
|
||||
% "trainloops",4,...
|
||||
% "eq_parallelization_blocklength",eq_parallelization_blocklength, ...
|
||||
% "eq_updatelatency",eq_updatelatency,...
|
||||
% "eq_avg_blocklength",eq_avg_blocklength);
|
||||
|
||||
[Eq_out] = eq.process(y_rx,y_digimod);
|
||||
|
||||
results.EQ_out = Eq_out;
|
||||
|
||||
% 3) digital demodulation object
|
||||
digimod = PAMmapper(2^recorded_data.saveStructTemp.common.M,0);
|
||||
|
||||
%estimated/ equalized symbol sequence
|
||||
d_estimated = digimod.demap(Eq_out);
|
||||
|
||||
%correct data symbols
|
||||
d_correct = recorded_data.saveStructTemp.prms_out;
|
||||
|
||||
% 4) BER calculation
|
||||
% BER
|
||||
[totalbits,errors,results.ber,loc] = calc_ber(d_estimated.signal(1:end,:),d_correct(1:end,:)',"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
% [totalbits,errors,results.ber,loc] = calc_ber(d_estimated.signal(1:end,:) ,d_correct(1:end,:)',"skip",0,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
function std_per_lvl = calcleveldependentstd(rx_symbols,correct_symbols)
|
||||
error_of_rx_signal = rx_symbols - correct_symbols;
|
||||
levels = unique(correct_symbols);
|
||||
for l = 1:4
|
||||
level_amplitude = levels(l);
|
||||
std_per_lvl(l) = var(( 1/64 .* movsum(error_of_rx_signal(correct_symbols==level_amplitude),[64/2,64/2]) ));
|
||||
%std_per_lvl(l) = std(error_of_rx_signal(correct_symbols==level_amplitude));
|
||||
end
|
||||
end
|
||||
|
||||
function scatterleveldependent(rx_symbols,correct_symbols,f_sym)
|
||||
col = cbrewer2('Paired',8);
|
||||
ccnt = -1;
|
||||
figure1 = figure();
|
||||
levels = unique(correct_symbols);
|
||||
|
||||
start = 1;
|
||||
ende = length(correct_symbols);
|
||||
|
||||
start = 30000;
|
||||
ende = 40000;
|
||||
|
||||
for l = 1:4
|
||||
ccnt = ccnt+2;
|
||||
|
||||
level_amplitude = levels(l);
|
||||
|
||||
symbols_for_lvl = NaN(1,length(correct_symbols));
|
||||
symbols_for_lvl(correct_symbols==level_amplitude) = rx_symbols(correct_symbols==level_amplitude);
|
||||
std_lvl(l) = std(symbols_for_lvl,'omitnan');
|
||||
xax_in_sec = ((1:length(correct_symbols)) / f_sym) * 1e6;
|
||||
xax_in_sec = 1:length(correct_symbols);
|
||||
|
||||
scatter(xax_in_sec(start:ende),symbols_for_lvl(start:ende),10,'.','MarkerFaceAlpha',0.5,'MarkerEdgeAlpha',0.5,'MarkerEdgeColor',col(ccnt,:));
|
||||
hold on;
|
||||
end
|
||||
|
||||
std_lvl = round(std_lvl,2);
|
||||
disp(std_lvl);
|
||||
|
||||
ccnt = 0;
|
||||
|
||||
% Add the windowed/ smoothed curves
|
||||
for l = 1:4
|
||||
ccnt = ccnt+2;
|
||||
level_amplitude = levels(l);
|
||||
|
||||
symbols_for_lvl = NaN(1,length(correct_symbols));
|
||||
|
||||
movmean = 1/250 .* movsum(rx_symbols(correct_symbols==level_amplitude),[250/2,250/2]);
|
||||
|
||||
symbols_for_lvl(correct_symbols==level_amplitude) = movmean;
|
||||
|
||||
nanx = isnan(symbols_for_lvl);
|
||||
t = 1:numel(symbols_for_lvl);
|
||||
symbols_for_lvl(nanx) = interp1(t(~nanx), symbols_for_lvl(~nanx), t(nanx));
|
||||
|
||||
xax_in_sec = ((1:length(correct_symbols)) / f_sym) * 1e6;
|
||||
xax_in_sec = 1:length(correct_symbols);
|
||||
|
||||
plot(xax_in_sec(start:ende),symbols_for_lvl(start:ende),'Color',col(ccnt,:));
|
||||
hold on
|
||||
end
|
||||
|
||||
%yline(max(rx_symbols(correct_symbols==levels(2))))
|
||||
|
||||
if 0
|
||||
annotation(figure1,'textbox',...
|
||||
[0.660523809523809 0.844444444444448 0.133523809523809 0.0603174603174607],...
|
||||
'String',['\sigma = ',num2str(std_lvl(4))],...
|
||||
'LineWidth',1.8,...
|
||||
'LineStyle','none',...
|
||||
'FontSize',12,...
|
||||
'FitBoxToText','off');
|
||||
|
||||
% Create textbox
|
||||
annotation(figure1,'textbox',...
|
||||
[0.667666666666665 0.642857142857147 0.133523809523809 0.0603174603174607],...
|
||||
'String',['\sigma = ',num2str(std_lvl(3))],...
|
||||
'LineWidth',1.8,...
|
||||
'LineStyle','none',...
|
||||
'FontSize',12,...
|
||||
'FitBoxToText','off');
|
||||
|
||||
% Create textbox
|
||||
annotation(figure1,'textbox',...
|
||||
[0.671238095238093 0.442857142857148 0.133523809523809 0.0603174603174608],...
|
||||
'String',['\sigma = ',num2str(std_lvl(2))],...
|
||||
'LineWidth',1.8,...
|
||||
'LineStyle','none',...
|
||||
'FontSize',12,...
|
||||
'FitBoxToText','off');
|
||||
|
||||
% Create textbox
|
||||
annotation(figure1,'textbox',...
|
||||
[0.670047619047616 0.265079365079371 0.133523809523809 0.0603174603174608],...
|
||||
'String',['\sigma = ',num2str(std_lvl(1))],...
|
||||
'LineWidth',1.8,...
|
||||
'LineStyle','none',...
|
||||
'FontSize',12,...
|
||||
'FitBoxToText','off');
|
||||
end
|
||||
|
||||
xlim([0, 2.6])
|
||||
ylim([-2 2])
|
||||
xlabel('Time in $\mu$s');
|
||||
ylabel('Normalized Amplitude');
|
||||
|
||||
end
|
||||
|
||||
|
||||
14
projects/MPI_analysis_Mai24/simulation_entry.m
Normal file
14
projects/MPI_analysis_Mai24/simulation_entry.m
Normal file
@@ -0,0 +1,14 @@
|
||||
|
||||
|
||||
% settings
|
||||
|
||||
M = 4;
|
||||
datarate = 224e9;
|
||||
kover = 8;
|
||||
|
||||
|
||||
% construct trasnmit signal
|
||||
|
||||
% transmit including MPI
|
||||
|
||||
% receive
|
||||
Reference in New Issue
Block a user