silas/imdd_silas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

own EQ implemented and returns same performance like Toms

Browse Source
This commit is contained in:
Silas Oettinghaus
2023-07-14 14:42:15 +02:00
parent 3c11e4b2e5
commit 8b3bc688dd
7 changed files with 1287 additions and 164 deletions
Download Patch File Download Diff File Expand all files Collapse all files

221
setup_simulation.m
View File

@@ -1,23 +1,24 @@
sir_loop = -16;
sir_loop = -22;
lw = [0.1e6 1e6 10e6];
for lp = 1
dc_mu = 0.05;
sir = sir_loop(lp);
sir = sir_loop(1);
rng(10);
rng(lp);
%% Set Simulation Variables
sir = sir;
delay = 40; %mpi delay in meter
delay = 20; %mpi delay in meter
fiblen = 0; %main link in km
laser_linewidth = 1e6;
laser_linewidth =1e6;
O = 17; %order of prbs
N = 2^(O-1); %length of prbs
@@ -62,7 +63,7 @@ for lp = 1
reflectionpoint = Amplifier("amp_mode","ideal_no_noise","gain_mode","gain","amplification_db",sir);
reflectionprop = Fiber("fsimu",fdac*kover,"fiber_length",2*delay/1000,"alpha",0.2,"D",16,"lambda0",1550,"gamma",0);
opticatten = Amplifier("amp_mode","ideal_no_noise","gain_mode","output_power","amplification_db",0);
opticatten = Amplifier("amp_mode","ideal_no_noise","gain_mode","output_power","amplification_db",-8);
phdiode = Photodiode("fsimu",fdac*kover,"dark_current",2e-08,"responsivity",1,"temperature",20);
@@ -74,11 +75,13 @@ for lp = 1
"adcresolution",6,"quantbuffer",0.1,'block_dc',1);
eq = EQ("K",2,"plottrain",0,"plotfinal",0,...
"training_length",2048,"training_loops",5,...
"Ne",[50,0,0],"Nb",[0,0,0],...
"DCmu",dc_mu,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0.005,...
"training_length",4096,"training_loops",2,...
"Ne",[50,5,3],"Nb",[3,2,2],...
"DCmu",dc_mu,"DDmu",[0.0004 0.0005 0.0006 0.0007 ],"DFEmu",0.005,"FFEmu",0.005,...
"dd_loops",2,"epsilon",[10 100 1000 ],"M",2,...
"thres",[0.005 0.004 0.0005 ],"l1act",0,"delay",1,"rho",0.0005,"ideal_dfe",0,"DB_aim",0);
"thres",[0.005 0.004 0.0005 ],"l1act",0,"delay",0,"rho",0.0005,"ideal_dfe",0,"DB_aim",0);
eq2 = EQ_silas("Ne",[50,5,0],"Nb",[3,2,0],"trainlength",4096,"mu_dc_dd",0.001,"mu_dc_train",0.05,"mu_ffe_train",0.005,"mu_combined_dd",[0.0004 0.0006 0.0003 0.005],"ddloops",5);
%% PROCESS
@@ -87,8 +90,6 @@ for lp = 1
for i = 1:log2(M)
[bitpattern(:,i),seed] = prbs(O,N,seed);
end
bitpattern = [bitpattern ; flip(bitpattern)];
%bitpattern = prms_out';
% Build Inf. signal class
bits = Informationsignal(bitpattern);
@@ -103,9 +104,10 @@ for lp = 1
X = pulseform.process(mod_out);
% AWG -> ELECTRICAL DOMAIN
awg_out = awg.process(X);
X = awg.process(X);
X = lp_laser.process(X);
X = lp_laser.process(awg_out);
X = lp_laser.process(X);
X = X.normalize("mode","oneone");
@@ -114,22 +116,26 @@ for lp = 1
% Laser; Modulation -> OPTICAL DOMAIN
[X,extmodlaser] = extmodlaser.process(X);
% Fiber Propagation
X = fib.process(X);
%% Reflect with attenuation
R = reflectionpoint.process(X);
% Propagate
% Propagate back and forth
R = reflectionprop.process(R);
% disp(['SIR ',num2str(10*log10(X.power/R.power))]);
% Delay
[R,n] = R.delay("delay_meter",delay);
% Add together
X.signal = X.signal(n:end);
R.signal = R.signal(n:end);
disp(['SIR ',num2str(10*log10(X.power/R.power))]);
X = X+R;
%%
@@ -140,7 +146,6 @@ for lp = 1
X = phdiode.process(X);
X = lp_diode.process(X);
% Oscilloscope (Sampling to f_adc; Quantization; Bandwidth Limitation)
X = scp.process(X);
@@ -151,7 +156,15 @@ for lp = 1
Eq_in = X.normalize("mode","rms");
% Equalizer
Eq_out = eq.process(Eq_in,reference);
reference.signal = reference.signal(round(n * fsym/fsimu) : end,:);
tracking_speed_bandwidth = eq.FFEmu .* fsym .* 1e-9;
%% MPI reduction DC removal BEFORE EQ
% wl = 1000; % symbols
% Eq_in.signal = Eq_in.signal - 1/wl .* movsum( Eq_in.signal,[wl/2,wl/2]);
[Eq_out] = eq2.process(Eq_in,reference);
%% MPI reduction DC removal
wl = 1000; % symbols
@@ -178,22 +191,13 @@ for lp = 1
yk_lvsm.signal(pre_decision_level_uni==level) = yk_lvsm.signal(pre_decision_level_uni==level) - smoothed(pre_decision_level_uni==level);
yk_lvlp.signal(pre_decision_level_uni==level) = yk_lvlp.signal(pre_decision_level_uni==level) - filtered(pre_decision_level_uni==level);
end
%
% figure(26);plot(1:length(error_log),error_log(:,end),"LineWidth",0.4);ylim([-0.8 0.8]);ylabel('$\epsilon$'),title(['Linewidth: ',num2str(laser_linewidth*1e-6), 'MHz'])
%
% figure(28);plot(1:length(e),e,"LineWidth",0.4);ylim([-0.8 0.8]);
%% MPI Reduction Tunable Notch Filter
% yk = Eq_in.normalize("mode","oneone");
% yk = yk.signal;
% dk = Eq_out.resample("fs_in",fsym,"fs_out",2*fsym);
% dk = ( digimod.decide_pamlevel(dk) *2-3 ) .* 1/sqrt(5);
% dk = dk ./ max(abs(dk));
%
% xk = yk(4:end)-dk(1:end-3);
%
% ya = hilbert(xk);
% figure;periodogram(abs(ya),[],length(ya),2*fsym,'centered')
% plot(abs(ya));
% grid on;
%% Calc EVM
evm_bm = calc_evm(Eq_out.signal, pre_decision_level_bi);
@@ -201,31 +205,7 @@ for lp = 1
evm_lsm = calc_evm(yk_lvsm.signal, pre_decision_level_bi);
evm_llp = calc_evm(yk_lvlp.signal, pre_decision_level_bi);
%figure(1);bar([evm_bm' evm_dcsm' evm_llp' evm_lsm']);ylim([0.01 0.1]);set(gca,'yscale','log');
%% Plot stuff
% figure(200)
% hold on
% for i = 1:4
% subplot(4,1,i)
% scatter(1:length(err_),err_(:,i),4,'Marker','.','MarkerEdgeColor',col(i,:));
% end
%
% figure(12);
% hold on;
% scatter(1:length(yk_sm.signal),yk_sm.signal,4,'Marker','.','MarkerEdgeColor',col(6,:));
% for i = 1:4
% x = err_(:,i);
% nanx = isnan(x);
% t = 1:numel(x);
% x(nanx) = interp1(t(~nanx), x(~nanx), t(nanx));
%
% X(i,:) = x;
%
% plot(x(2000:end-2000,1),'LineWidth',2)
% end
%% MPI reduction A3
% figure(1);bar([evm_bm' evm_dcsm' evm_llp' evm_lsm']);ylim([0.01 0.1]);set(gca,'yscale','log');
% Digi Demod
d_bm = digimod.demap(Eq_out);
@@ -234,21 +214,85 @@ for lp = 1
d_lvlp = digimod.demap(yk_lvlp);
% BER
bitpattern = bitpattern(round(n * fsym/fsimu):end,:);
dbit = length(d_bm.signal)-length(bitpattern);
[~,errors_bm,ber_bm] = calc_ber(d_bm.signal(1:end-dbit,:) ,bitpattern(1:end,:),0);
[~,errors_dcsm,ber_dcsm] = calc_ber(d_dcsm.signal(1:end-dbit,:) ,bitpattern(1:end,:),0);
[~,errors_lvsm,ber_lvsm] = calc_ber(d_lvsm.signal(1:end-dbit,:) ,bitpattern(1:end,:),0);
[~,errors_lvlp,ber_lvlp] = calc_ber(d_lvlp.signal(1:end-dbit,:) ,bitpattern(1:end,:),0);
[~,errors_bm,ber_bm,loc] = calc_ber(d_bm.signal(1:end-dbit,:) ,bitpattern(1:end,:),"skip",0,"returnErrorLocation",1);
[~,errors_dcsm,ber_dcsm] = calc_ber(d_dcsm.signal(1:end-dbit,:) ,bitpattern(1:end,:),"skip",0,"returnErrorLocation",0);
[~,errors_lvsm,ber_lvsm] = calc_ber(d_lvsm.signal(1:end-dbit,:) ,bitpattern(1:end,:),"skip",0,"returnErrorLocation",0);
[~,errors_lvlp,ber_lvlp] = calc_ber(d_lvlp.signal(1:end-dbit,:) ,bitpattern(1:end,:),"skip",0,"returnErrorLocation",0);
% Display
disp(['BER benchmark: ', sprintf('%2E',ber_bm), ' ERRORS: ' ,num2str(sum(errors_bm))]);
disp(['BER dc smooth: ', sprintf('%2E',ber_dcsm), ' ERRORS: ' ,num2str(sum(errors_dcsm))]);
disp(['BER lv smooth: ', sprintf('%2E',ber_lvsm), ' ERRORS: ' ,num2str(sum(errors_lvsm))]);
disp(['BER lv lowpas: ', sprintf('%2E',ber_lvlp), ' ERRORS: ' ,num2str(sum(errors_lvlp))]);
% disp(['BER dc smooth: ', sprintf('%2E',ber_dcsm), ' ERRORS: ' ,num2str(sum(errors_dcsm))]);
% disp(['BER lv smooth: ', sprintf('%2E',ber_lvsm), ' ERRORS: ' ,num2str(sum(errors_lvsm))]);
% disp(['BER lv lowpas: ', sprintf('%2E',ber_lvlp), ' ERRORS: ' ,num2str(sum(errors_lvlp))]);
%% Generate some Plots
if 1
% SCATTER
col = cbrewer2('Paired',8);
xax = 1:Eq_out.length;
figure(3)
sgtitle('')
subplot(1,2,1)
hold on
eq_decision = digimod.decide_pamlevel(Eq_out);
true_symbols = digimod.decide_pamlevel(mod_out);
xindices = 1:Eq_in.length;
errorpos = find(loc~=0)*2;
correct = find(loc==0)*2;
scatter(xindices(correct),Eq_in.signal(correct),4,'.','MarkerEdgeColor',col(4,:),'DisplayName','After EQ');
hold on
scatter(xindices(errorpos),Eq_in.signal(errorpos),6,'x','MarkerEdgeColor',col(6,:),'DisplayName','Wrong Decision');
hold off
xlim([1, xindices(end)]);
ylim([-3 3]);
xlabel('Sampling Index')
ylabel('Amplitude')
a = legend;
a.Location = "best";
subplot(1,2,2)
xindices = 1:Eq_out.length;
scatter(xindices(loc==0),Eq_out.signal(loc==0),4,'.','MarkerEdgeColor',col(4,:),'DisplayName','After EQ');
hold on
scatter(xindices(loc~=0),Eq_out.signal(loc~=0),8,'x','MarkerEdgeColor',col(6,:),'DisplayName','Wrong Decision');
hold off
xlim([1, xax(end)]);
ylim([-2 2]);
xlabel('Sampling Index')
ylabel('Amplitude')
legend
a = legend;
a.Location = "best";
hold off
% ERROR IN EQ
figure(13)
plot(diff(eq2.error_log(1,:)));
hold on;
for i = 1:size(eq2.error_log,1)
plot(diff(eq2.error_log(i,:)));
end
loc(loc==0) = NaN;
stem(loc.*mean((eq2.error_log(end,:))))
hold off
end
if 0
col = cbrewer2('Paired',8);
@@ -258,7 +302,7 @@ for lp = 1
subplot(2,1,1)
hold on
plot(reference.signal(4150:4175),'DisplayName','Tx','Color',col(1,:),'LineWidth',3);
plot(eq_out.signal(4150:4175),'DisplayName','Rx after EQ','Color',col(6,:),'LineWidth',1);
plot(Eq_out.signal(4150:4175),'DisplayName','Rx after EQ','Color',col(6,:),'LineWidth',1);
title('Modulated Sequence Zoom');
legend
hold off
@@ -271,45 +315,6 @@ for lp = 1
hold off
end
if 0
col = cbrewer2('Paired',8);
xax = 1:Eq_out.length;
figure(3)
sgtitle('')
% subplot(1,4,1:2)
% scatter(1:4:X.length,X.signal(1:4:end),4,'.','MarkerEdgeColor',col(6,:),'DisplayName','Before EQ');
% xlim([1, xax(end)]);
% %ylim([-2 2]);
% xlabel('Sampling Index')
% ylabel('Amplitude')
% legend
subplot(1,3,1)
scatter(1:Eq_in.length,Eq_in.signal,4,'.','MarkerEdgeColor',col(6,:),'DisplayName','After EQ');
xlim([1, xax(end)]);
ylim([-2 2]);
xlabel('Sampling Index')
ylabel('Amplitude')
legend
subplot(1,3,2)
scatter(xax,Eq_out.signal,4,'.','MarkerEdgeColor',col(6,:),'DisplayName','After EQ');
xlim([1, xax(end)]);
ylim([-2 2]);
xlabel('Sampling Index')
ylabel('Amplitude')
legend
subplot(1,3,3)
scatter(xax,yk_lvsm.signal,4,'.','MarkerEdgeColor',col(6,:),'DisplayName','After EQ');
xlim([1, xax(end)]);
ylim([-2 2]);
xlabel('Sampling Index')
ylabel('Amplitude')
legend
end
end