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

Commit Friday evening.

Browse Source 
PDFA and EXFO Laser are now part of the family
This commit is contained in:
Silas Labor Zizou
2024-10-25 20:31:50 +02:00
parent bafc7f12b7
commit 99fe2ca106
208 changed files with 28244 additions and 460 deletions
Download Patch File Download Diff File Expand all files Collapse all files

131
projects/HighSpeedExperiment_2024/baudrate_evaluation.m Normal file
View File

@@ -0,0 +1,131 @@
filename = "C:\Users\sioe\Documents\High_Speed_Measurement_2024\baudrate_sweep_b2b\PAMX_b2b_baudrate20241024_210648_wh.mat";
a = load(filename);
wh = a.obj;
wh.showInfo;
fsym_vals = wh.parameter.fsym.values;
rop_atten_vals = wh.parameter.rop_atten.values;
M_vals = wh.parameter.M.values;
if 1
%%% (A) PLOT ROP CURVES OF ALL THREE MODULATION FORMATS NEXT TO EACH OTHER %%%
figure(300)
clf
hold on
ber_ffe=[];
ber_mlse=[];
rop=[];
v_bias=[];
cols = [cbrewer2('Set1',9);cbrewer2('Set2',8)];
for fsym_iter = 1:numel(fsym_vals)
for modulation_iter = 1:numel(M_vals)
ber_ffe(:,modulation_iter,fsym_iter) = wh.getStoValue('ber_ffe',fsym_vals(fsym_iter),rop_atten_vals,M_vals(modulation_iter));
ber_mlse(:,modulation_iter,fsym_iter) = wh.getStoValue('ber_mlse',fsym_vals(fsym_iter),rop_atten_vals,M_vals(modulation_iter));
rop(:,modulation_iter,fsym_iter) = wh.getStoValue('rop',fsym_vals(fsym_iter),rop_atten_vals,M_vals(modulation_iter));
v_bias(:,modulation_iter,fsym_iter) = wh.getStoValue('v_bias',fsym_vals(fsym_iter),rop_atten_vals,M_vals(modulation_iter));
subplot(1,3,modulation_iter)
title(['PAM ',num2str(M_vals(modulation_iter))]);
hold on
a = plot(rop(:,modulation_iter,fsym_iter),ber_ffe(:,modulation_iter,fsym_iter),...
'Color',cols(fsym_iter,:),'MarkerSize',2,'LineWidth',1,...
'Marker','o','MarkerFaceColor',cols(fsym_iter,:),'MarkerEdgeColor','black',...
'DisplayName',[num2str(fsym_vals(fsym_iter).*1e-9),'GBd']);
a.DataTipTemplate.DataTipRows(1).Label = 'P_{out}';
a.DataTipTemplate.DataTipRows(2).Label = 'BER';
a.DataTipTemplate.DataTipRows(2).Format =['%.1e'];
a.DataTipTemplate.DataTipRows(3).Label = 'Baudr';
a.DataTipTemplate.DataTipRows(3).Value = repmat(fsym_vals(fsym_iter).*1e-9,size(rop(:,modulation_iter,fsym_iter)));
a.DataTipTemplate.DataTipRows(3).Format = ['%d',' GBd'];
a.DataTipTemplate.DataTipRows(4).Label = 'Bitr';
a.DataTipTemplate.DataTipRows(4).Value = repmat(fsym_vals(fsym_iter).*1e-9.*log2(M_vals(modulation_iter)),size(rop(:,modulation_iter,fsym_iter)));
a.DataTipTemplate.DataTipRows(4).Format = ['%d',' Gbps'];
a.DataTipTemplate.FontSize = 9;
a.DataTipTemplate.FontName = 'arial';
% Continue with the rest of your plot settings
yline(3.8e-3, 'DisplayName', 'HD-FEC', 'LineStyle', '--', 'HandleVisibility', 'off');
xlabel('Measured MZM Output Power (dBm)');
ylabel('Bit Error Rate (BER)');
set(gca, 'yscale', 'log');
set(gca, 'Box', 'on');
grid on;
grid minor;
legend('Interpreter', 'none');
end
end
end
%%% (B) PLOT BEST ROP OF EACH MOD FORMAT OVER BAUDRATE %%%
if 1
figure(211)
clf
hold on
cols = [cbrewer2('Set1',9);cbrewer2('Set2',8)];
ber_ffe=[];
ber_mlse=[];
rop=[];
v_bias=[];
for modulation_iter = 1:numel(M_vals)
ber_ffe(:,modulation_iter) = wh.getStoValue('ber_ffe',fsym_vals,rop_atten_vals(1),M_vals(modulation_iter));
ber_mlse(:,modulation_iter) = wh.getStoValue('ber_mlse',fsym_vals,rop_atten_vals(1),M_vals(modulation_iter));
rop(:,modulation_iter) = wh.getStoValue('rop',fsym_vals,rop_atten_vals(1),M_vals(modulation_iter));
v_bias(:,modulation_iter) = wh.getStoValue('v_bias',fsym_vals,rop_atten_vals(1),M_vals(modulation_iter));
a=plot(fsym_vals.*1e-9.*log2(M_vals(modulation_iter)),ber_ffe(:,modulation_iter),...
'Color',cols(modulation_iter,:),'MarkerSize',2,'LineWidth',1,...
'Marker','o','MarkerFaceColor',cols(modulation_iter,:),'MarkerEdgeColor','black',...
'DisplayName',['PAM ',num2str(M_vals(modulation_iter))]);
a.DataTipTemplate.DataTipRows(1).Label = 'Bitr';
a.DataTipTemplate.DataTipRows(1).Format = ['%.1f',' Gbps'];
a.DataTipTemplate.DataTipRows(2).Label = 'BER';
a.DataTipTemplate.DataTipRows(2).Format ='%.1e';
a.DataTipTemplate.DataTipRows(3).Label = 'P_{out}';
a.DataTipTemplate.DataTipRows(3).Value = rop(:,modulation_iter);
a.DataTipTemplate.DataTipRows(3).Format = ['%.2f',' dBm'];
a.DataTipTemplate.DataTipRows(4).Label = 'Baudr';
a.DataTipTemplate.DataTipRows(4).Value = fsym_vals.*1e-9;
a.DataTipTemplate.DataTipRows(4).Format = ['%.1f',' GBd'];
a.DataTipTemplate.FontSize = 9;
a.DataTipTemplate.FontName = 'arial';
% Continue with the rest of your plot settings
title('Opt B2B')
yline(3.8e-3, 'DisplayName', 'HD-FEC', 'LineStyle', '--', 'HandleVisibility', 'off');
xlabel('Bit Rate in GBps');
ylabel('Bit Error Rate (BER)');
set(gca, 'yscale', 'log');
set(gca, 'Box', 'on');
grid on;
grid minor;
legend('Interpreter', 'none');
end
end

341
projects/HighSpeedExperiment_2024/baudrate_sweep.m Normal file
View File

@@ -0,0 +1,341 @@
folderpath = 'C:\Users\sioe\Documents\High_Speed_Measurement_2024\baudrate_sweep_b2b\';
experiment_name = 'PAMX_b2b_baudrate';
currentTime = datetime('now', 'Format', 'yyyyMMdd_HHmmss');
timeStr = char(currentTime);
experiment_name = [experiment_name, timeStr];
ffe_only = 0;
postfilter_approach = 1;
db_channel_approach = 0;
db_coding_approach = 0;
db_precode = 0;%db_coding_approach || db_channel_approach;
%%% SIR Sweep for MPI Experiment %%%
params = struct;
params.fsym = [100:6:200].*1e9; %2.67; % PAM6=2.3V %PAM8=2.68V
params.rop_atten = 0:0.5:7;
params.M = [8,6,4];
wh = DataStorage(params);
wh.addStorage("ber_ffe");
wh.addStorage("ber_mlse");
wh.addStorage("ber_db");
wh.addStorage("pd_in");
wh.addStorage("rop");
wh.addStorage("M");
wh.addStorage("signals");
wh.addStorage("v_bias");
wh.addStorage("awg_vpp");
wh.addStorage("precomp_amp_max")
precomp_path = "C:\Users\sioe\Documents\High_Speed_Measurement_2024\precomp\";
precomp_fn = "lab_high_speed";
precomp_mode = 2; %0=do nothing ; 1= measure; 2=precomp active
precomp_amp_max = 5;
awg_vpp = 2.7;
random_key = 2;
pd_in_set = 7;
looptotal = prod(wh.dim);
disp(['Start Measurement of ',num2str(looptotal),' loops...'])
iterationTimes = zeros(looptotal, 1); % Preallocate for speed
if ~exist('hWaitbar', 'var') || ~isvalid(hWaitbar)
hWaitbar = waitbar(0, sprintf('Starting %d measurements',looptotal), 'Name', 'Processing Progress');
else
waitbar(0, hWaitbar, sprintf('Starting %d measurements',looptotal));
end
loopcnt = 0;
estimatedTimeRemaining = 0;
estimatedTotalTime = 0;
for M = wh.parameter.M.values
%%%%% 1) SET Voltages for each modulation format once %%%%%%
if M == 4
v_bias = 2.1;
elseif M == 6
v_bias = 2.3;
elseif M == 8
v_bias = 2.67;
end
dcs = DC_supply("active",[1,0],"voltage",[v_bias, 0]);
dcs.set("voltage",[v_bias, 0]);
%%%%% SET Voltages %%%%%%
if M ~= 8
pause(30*60); %wait 30 minutes for stable bias
end
for fsym = wh.parameter.fsym.values
%%%% 2) PREARE THE TX SIGNAL ONCE FOR EACH FSYM RATE %%%%
%%%%% Construct AWG and Scope Modules %%%%%%
fdac = 256e9;
fadc = 256e9;
SCP = ScopeKeysight("model","UXR1104B",'autoscale',1,"fadc","GSa_256","channel",[0,1,0,0],"recordLen",4000000,"removeDC",1);
AWG = AwgKeysight("model","M8199B","fdac",fdac,"scaletodac",[1,1],"skews",[0,0],"voltages",[0,awg_vpp]);
A2S = Awg2Scope(AWG,SCP,[0,2,0,0],"waitUntilClick",0); %
%%%%% Symbol Generation %%%%%%
Pform = Pulseformer("fsym",fsym,"fdac",4*fsym,"pulse","rrc","pulselength",16,"rrcalpha",0.05);
[Digi_sig,Symbols,Bits] = PAMsource(...
"fsym",fsym,"M",M,"order",19,"useprbs",1,...
"fs_out",fdac,...
"applyclipping",0,"clipfactor",1.7,...
"applypulseform",0,"pulseformer",Pform,...
"randkey",random_key,...
"db_precode",db_precode,"db_encode",db_coding_approach,...
"mrds_code",0,"mrds_blocklength",512).process();
%%%%% Precompensation Routine %%%%%%
precomp_est = ChannelFreqResp("Nacq",1024,"Navg",64,"Ncp",63,'f_ref',Digi_sig.fs);
Digi_sig = precomp_est.precomp(Digi_sig,'maxampdb',precomp_amp_max,'loadPath',precomp_path,'fileName',precomp_fn);
%%%%% Resample to DAC rate %%%%%%
Digi_sig = Digi_sig.resample("fs_out",AWG.fdac);
%%%%% Plot and Save Routine 1 %%%%%%%%%%%%%%%%%%%%%%%%%
%Digi_sig.spectrum("displayname","Normal Tx","fignum",10);
loop_name = ['PAM_',num2str(M),'_fsym_',num2str(fsym.*1e-9)];
save([folderpath,experiment_name,loop_name,'_bits'],"Bits");
save([folderpath,experiment_name,loop_name,'_symbols'],"Symbols");
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
for rop_atten = wh.parameter.rop_atten.values
%%%%% Loop Preps
iterationStartTime = tic;
loopcnt = loopcnt+1;
%%%%% SET Attenuator %%%%%%
voa = OptAtten("active",[1,2,1,1],"value",[rop_atten,pd_in_set,0,0],"wavelength",[1310,1310,1310,1310]);
voa.set('active',[1,2,1,1],'value',[rop_atten,pd_in_set,0,0]);
%%% HERE SHOULD BE THE DATA PREPARATION WHICH IS NOW IN BETWEEN
%%% THE LOOPS :-) %%%
%%%%% AWG --> Scope %%%%%%
[~,Scpe_sig_raw,~,D] = A2S.process("signal2",Digi_sig,"waitUntilClick",0);
%%%%%% Sample to 2x fsym %%%%%%
Scpe_sig_resampled = Scpe_sig_raw.resample("fs_in",fadc,"fs_out",2*fsym);
voa.readvals();
rop = voa.power_state(1);
pd_in = voa.power_state(2);
% disp(['ROP: ',num2str(rop),' dBm || PD in: ',num2str(pd_in), ' dBm']);
%%%%%% Sync Rx signal with reference (S is a cell array with all occurences) %%%%%%
[Scpe_sig_syncd,S,isFlipped] = Scpe_sig_resampled.tsynch("reference",Symbols,"fs_ref",fsym);
%%%%% Plot and Save Routines: SAVE RECEIVED SIGNALS %%%%%%%%%%%%%%%%%%%%%%%%%
loop_name = ['PAM_',num2str(M),'_fsym_',num2str(fsym.*1e-9),'_rop_',num2str(rop_atten)];
loop_name = strrep(loop_name,'.','_');
save([folderpath,experiment_name,loop_name,'_rx_signal'],"S");
%%%%% EQUALIZE %%%%%%
Eq = FFE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",50,"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.05,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);
% set to minus one not zero not avoid confusion if BER is acutally zero
ber_ffe = -1;
ber_mlse = -1;
ber_db = -1;
if ffe_only %%%%%%%%%%%%%%%%%%%%%%%%%%%
[EQ_sig] = Eq.process(Scpe_sig_syncd,Symbols);
% EQ_sig.plot("fignum",50,"displayname",'After EQ');
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
[~,errors_bm,ber_ffe,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
disp(['FFE: ',sprintf('%.1E',ber_ffe),'| ROP: ',num2str(rop),' dB | PD_in: ',num2str(pd_in),' dBm']);
if 0
EQ_sig.plot("fignum",50,"displayname",'After EQ','clear',1);
figure(56);
clf
title(sprintf('PAM %d ; BER: %1.2e',M, ber_ffe));
constellation = unique(Symbols.signal);
received = NaN(numel(constellation),length(Symbols));
for lvl = 1:numel(constellation)
%Separate the equalized signal into the
%respective levels based on the actually
%transmitted level!
received(lvl,Symbols.signal==constellation(lvl)) = EQ_sig.signal(Symbols.signal==constellation(lvl));
intermediate = received(lvl,:);
cnt(lvl) = numel(intermediate(~isnan(intermediate)));
hold on
histogram(received(lvl,:),1000,"EdgeAlpha",0,'DisplayName',['Lvl ',num2str(lvl),' | ',num2str(cnt(lvl)),' entries']);
end
legend
end
elseif postfilter_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
[EQ_sig] = Eq.process(Scpe_sig_syncd,Symbols);
% EQ_sig.plot("fignum",50,"displayname",'After EQ','clear',1);
Noi = EQ_sig-Symbols;
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
[~,num_errors,ber_ffe,pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
nc = 2;
burg_coeff = arburg(Noi.signal,nc);
EQ_sig = EQ_sig.filter(burg_coeff,1);
if 0
Noi.spectrum('displayname','Noise PSD','fignum',123)
[h,w] = freqz(1,burg_coeff,length(Noi),"whole",Noi.fs);
h = h/max(abs(h));
hold on
w_ = (w - Noi.fs/2);
plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',['', num2str(nc), ' coefficients for burg alg.']);
end
EQ_sig = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig);
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
[~,num_errors,ber_mlse,pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
disp(['FFE: ',sprintf('%.1E',ber_ffe),' -> PF -> MLSE: ',sprintf('%.1E',ber_mlse),' dB | PD_in: ',num2str(pd_in),' dBm']);
elseif db_channel_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
if db_precode
[EQ_sig, Noi] = Eq.process(Scpe_sig_syncd,Duobinary().encode(Symbols));
EQ_sig.plot("fignum",50,"displayname",'After EQ','clear',1);
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);
[~,num_errors,ber_db,pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
disp([' DB Precode -> Channel -> FFE -> Decode/ Mod ',sprintf('%.1E',ber_db),' | PD_in: ',num2str(pd_in),' dBm']);
else
% Toms approach für precode emulation
[EQ_sig, Noi] = Eq.process(Scpe_sig_syncd,Duobinary().encode(Symbols));
EQ_sig.spectrum("displayname","Signal Spectrum after Postfilter","fignum",1234,"normalizeToNyquist",0);
EQ_sig = MLSE("DIR",[1,1],"duobinary_output",1,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig);
% 2: Entschiedene Symbole codieren
%EQ_sig = Duobinary().encode(EQ_sig);
% 3. Entschiedene und codierte Symbole dekodieren
EQ_sig = Duobinary().decode(EQ_sig);
% 4. Demap EQ'd symbols
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
Symbols_db = Duobinary().precode(Symbols);
Bits_ = PAMmapper(M,0).demap(Symbols_db);
[~,num_errors,ber_db,pos_errors] = calc_ber(Rx_bits.signal,Bits_.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
disp([' DB Precode -> Channel -> FFE -> Decode/ Mod ',sprintf('%.1E',ber_db),' | PD_in: ',num2str(pd_in),' dBm']);
end
elseif db_coding_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
[EQ_sig, Noi] = Eq.process(Scpe_sig_syncd,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);
[~,errors_bm,ber_db,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
EQ_sig.plot("fignum",50,"displayname",'After EQ');
disp([' DB Precode -> DB Code -> Channel -> FFE -> Decode/ Mod ',sprintf('%.1E',ber_db),' | PD_in: ',num2str(pd_in),' dBm']);
end
%%%%% Store measurement into measurement "warehouse" %%%%%%
wh.addValueToStorage(ber_ffe,'ber_ffe',fsym,rop_atten,M);
wh.addValueToStorage(ber_mlse,'ber_mlse',fsym,rop_atten,M);
wh.addValueToStorage(ber_db,'ber_db',fsym,rop_atten,M);
wh.addValueToStorage(rop,'rop',fsym,rop_atten,M);
wh.addValueToStorage(pd_in,'pd_in',fsym,rop_atten,M);
% wh.addValueToStorage(Rx_bits,'signals',fsym,awg_vpp,precomp_amp_max,rop_atten);
wh.addValueToStorage(M,'M',fsym,rop_atten,M);
wh.addValueToStorage(v_bias,"v_bias",fsym,rop_atten,M);
wh.addValueToStorage(awg_vpp,"awg_vpp",fsym,rop_atten,M);
wh.addValueToStorage(precomp_amp_max,"precomp_amp_max",fsym,rop_atten,M);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% Plot stuff into Table (feel free to add own values in -> 'name',value <- notation. Must be closed when table is changed)%%%%%%%%%%%%%%%%%%%%%%
showCurrentMeasurement('FFE', ber_ffe,'MLSE',ber_mlse, 'Fsym',fsym.*1e-9, 'ROP', rop, 'PD in', pd_in, 'PAM',M, 'Vbias', v_bias, 'AWG Vpp', awg_vpp, 'Precomp MaxAmp',precomp_amp_max);
%%%%% Arrange Figures %%%%%%%%%%%%%%%%%%%%%%
% autoArrangeFigures(3,3,2);
iterationTimes(loopcnt) = toc(iterationStartTime);
averageTimePerIteration = mean(iterationTimes(1:loopcnt));
estimatedTotalTime = averageTimePerIteration * looptotal;
estimatedTimeRemaining = estimatedTotalTime - sum(iterationTimes(1:loopcnt));
progressFraction = loopcnt / looptotal;
waitbar(progressFraction, hWaitbar, ...
sprintf('Loop: %d of %d \n Runtime: %.1f min | %.1f sec per Loop |Time to go: %.1f min ', ...
loopcnt, looptotal, sum(iterationTimes(1:loopcnt))/60, averageTimePerIteration, estimatedTimeRemaining/60 ));
wh.save([folderpath,experiment_name,'_wh']);
if rop_atten == 0
figure(10)
hold on
col = linspecer(8);
scatter(fsym.*1e-9,ber_ffe,30,'o','MarkerEdgeColor',col(M,:),'LineWidth',2);
xlim([wh.parameter.fsym.values(1) wh.parameter.fsym.values(end)].*1e-9);
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('Interpreter', 'none');
end
end
end
end
close(hWaitbar);
wh.save([folderpath,experiment_name,'_wh_final']);
autoArrangeFigures(3,3,2)

66
projects/HighSpeedExperiment_2024/bias_evaluation.m Normal file
View File

@@ -0,0 +1,66 @@
% filename = "C:\Users\sioe\Documents\High_Speed_Measurement_2024\bias_testing\PAM4_b2b_bias_sweep_20241023_130342_wh.mat";
%
% a = load(filename);
% wh = a.obj;
v_bias_vals = wh.parameter.vbias.values;
awg_vpp_vals = wh.parameter.awg_vpp.values;
precomp_amp_max_vals = wh.parameter.precomp_amp_max.values;
rop_atten_vals = wh.parameter.rop_atten.values;
PAM = wh.parameter.M.values(1);
m = wh.getStoValue('m',v_bias_vals(1),awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),PAM);
ber_ffe= [];
ber_mlse= [];
rop_measured= [];
pd_in_measured= [];
rop_measured = [];
cnt = 0;
for PAM = wh.parameter.M.values
cnt = cnt+1;
ber_ffe(cnt,:) = wh.getStoValue('ber_ffe',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),PAM)';
ber_mlse(cnt,:) = wh.getStoValue('ber_mlse',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),PAM);
rop_measured(cnt,:) = wh.getStoValue('rop',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),PAM);
pd_in_measured(cnt,:) = wh.getStoValue('pd_in',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),PAM);
end
figure(2024)
for i = 1:3
[bestber,bestindex] = min(ber_ffe(i,:),[],'all');
[awg_pos,v_bias_pos]=ind2sub(size(ber_ffe(i,:)),bestindex);
bestawgvpp=awg_vpp_vals(awg_pos);
bestvbias=v_bias_vals(v_bias_pos);
disp(['Best Vpp: ',num2str(bestvbias),' V; Best Vpp AWG: ',num2str(bestawgvpp),' V' ]);
hold on
a = scatter(rop_measured(i,:),ber_ffe(i,:),'Marker','+','DisplayName',['PAM ',num2str(wh.parameter.M.values(i))]);
a.DataTipTemplate.DataTipRows(1).Label = 'P_{out}';
a.DataTipTemplate.DataTipRows(2).Label = 'BER';
a.DataTipTemplate.DataTipRows(2).Format ='%.1e';
a.DataTipTemplate.DataTipRows(3).Label = 'Vbias';
a.DataTipTemplate.DataTipRows(3).Value = v_bias_vals;
a.DataTipTemplate.DataTipRows(3).Format = 'auto';
end
% Continue with the rest of your plot settings
yline(3.8e-3, 'DisplayName', 'HD-FEC', 'LineStyle', '--', 'HandleVisibility', 'off');
xlabel('Measured MZM Output 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('Interpreter', 'none');

592
projects/HighSpeedExperiment_2024/bias_optimization.m
View File

@@ -1,12 +1,12 @@
folderpath = 'C:\Users\sioe\Documents\High_Speed_Measurement_2024\bias_testing\';
experiment_name = 'PAM6_b2b_rop_referenz_Thormax';
folderpath = 'C:\Users\sioe\Documents\High_Speed_Measurement_2024\bias_5km\';
experiment_name = 'PAMX_5km_';
currentTime = datetime('now', 'Format', 'yyyyMMdd_HHmmss');
timeStr = char(currentTime);
experiment_name = [experiment_name, timeStr];
ffe_only = 0;
postfilter_approach = 1;
ffe_only = 1;
postfilter_approach = 0;
db_channel_approach = 0;
db_coding_approach = 0;
@@ -15,21 +15,30 @@ db_precode = db_coding_approach || db_channel_approach;
%%% SIR Sweep for MPI Experiment %%%
params = struct;
params.vbias = [2.67]; % PAM6=2.3V %PAM8=2.68V
params.vbias = [1.7:0.02:3.2]; % PAM6=2.3V %PAM8=2.68V
params.awg_vpp = [2.7];
params.precomp_amp_max = [5];
params.rop_atten = [0];
params.M = [8];
params.M = [4,6,8];
params.lambda = [1292,1310,1327]; %calcWavelengthPlan(16, 400e9 , 1310);
% params.vbias = [2.23]; % PAM6=2.3V %PAM8=2.68V
% params.awg_vpp = [2.7];
% params.precomp_amp_max = [5];
% params.rop_atten = [0];
% params.M = [6];
% params.lambda = [1310]; %calcWavelengthPlan(16, 400e9 , 1310);
wh = DataStorage(params);
wh.addStorage("ber_collect");
wh.addStorage("ber_ffe");
wh.addStorage("ber_mlse");
wh.addStorage("ber_db");
wh.addStorage("pd_in");
wh.addStorage("rop");
wh.addStorage("m");
wh.addStorage("signals");
wh.addStorage("rx_logbook");
precomp_path = "C:\Users\sioe\Documents\High_Speed_Measurement_2024\precomp\";
precomp_fn = "lab_high_speed";
@@ -42,7 +51,7 @@ pd_in_set = 7;
looptotal = prod(wh.dim);
disp(['Start Measurement of ',num2str(looptotal),' loops...'])
iterationTimes = zeros(looptatal, 1); % Preallocate for speed
iterationTimes = zeros(looptotal, 1); % Preallocate for speed
if ~exist('hWaitbar', 'var') || ~isvalid(hWaitbar)
hWaitbar = waitbar(0, sprintf('Starting %d measurements',looptotal), 'Name', 'Processing Progress');
else
@@ -53,270 +62,343 @@ loopcnt = 0;
estimatedTimeRemaining = 0;
estimatedTotalTime = 0;
for v_bias = wh.parameter.vbias.values
for rop_atten = wh.parameter.rop_atten.values
for precomp_amp_max = wh.parameter.precomp_amp_max.values
for M = wh.parameter.M.values
for awg_vpp = wh.parameter.awg_vpp.values
iterationStartTime = tic;
loopcnt = loopcnt+1;
for lambda = wh.parameter.lambda.values
if M == 4
fsym = 170e9;
elseif M == 6
fsym = 144e9;
elseif M == 8
fsym = 160e9;
end
exfo = Exfo_laser("serialport_number",'COM8','mainframe_channel',1,'safety_mode',0);
pdfa = Thor_PDFA("safety_mode",0);
exfo.getLaserInfo;
%%%%% Loop Preps
%fsym = round(targetrate/log2(M));
loop_name = ['_fsym_',num2str(fsym)];
%%%%% SET Voltages %%%%%%
dcs = DC_supply("active",[1,0],"voltage",[v_bias, 0]);
dcs.set("voltage",[v_bias, 0]);
%%%%% SET Attenuator %%%%%%
voa = OptAtten("active",[1,2,1,1],"value",[rop_atten,pd_in_set,0,0],"wavelength",[1310,1310,1310,1310]);
voa.set('active',[1,2,1,1],'value',[rop_atten,pd_in_set,0,0]);
% voa.readvals();
%%%%% Construct AWG and Scope Modules %%%%%%
fdac = 256e9;
fadc = 256e9;
SCP = ScopeKeysight("model","UXR1104B",'autoscale',1,"fadc","GSa_256","channel",[0,1,0,0],"recordLen",2000000,"removeDC",1);
AWG = AwgKeysight("model","M8199B","fdac",fdac,"scaletodac",[1,1],"skews",[0,0],"voltages",[0,awg_vpp]);
A2S = Awg2Scope(AWG,SCP,[0,2,0,0],"waitUntilClick",0); %
%%%%% Symbol Generation %%%%%%
Pform = Pulseformer("fsym",fsym,"fdac",4*fsym,"pulse","rrc","pulselength",16,"rrcalpha",rrcalpha);
[Digi_sig,Symbols,Bits] = PAMsource(...
"fsym",fsym,"M",M,"order",19,"useprbs",1,...
"fs_out",fdac,...
"applyclipping",0,"clipfactor",1.7,...
"applypulseform",0,"pulseformer",Pform,...
"randkey",random_key,...
"db_precode",db_precode,"db_encode",db_coding_approach,...
"mrds_code",usemrds,"mrds_blocklength",512).process();
%%%%% Precompensation Routine %%%%%%
if precomp_mode == 1 % measure channel
precomp_est = ChannelFreqResp("Nacq",1024,"Navg",64,"Ncp",63,'f_ref',fdac);
Digi_sig = precomp_est.buildOFDM();
elseif precomp_mode == 2 % apply precomp
precomp_est = ChannelFreqResp("Nacq",1024,"Navg",64,"Ncp",63,'f_ref',Digi_sig.fs);
Digi_sig = precomp_est.precomp(Digi_sig,'maxampdb',precomp_amp_max,'loadPath',precomp_path,'fileName',precomp_fn);
end
%%%%% Resample to DAC rate %%%%%%
Digi_sig = Digi_sig.resample("fs_out",AWG.fdac);
%%%%% Plot and Save Routine 1 %%%%%%%%%%%%%%%%%%%%%%%%%
%Digi_sig.spectrum("displayname","Normal Tx","fignum",10);
save([folderpath,[experiment_name,'_bits'],loop_name],"Bits");
save([folderpath,[experiment_name,'_symbols'],loop_name],"Symbols");
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% AWG --> Scope %%%%%%
[~,Scpe_sig_raw,~,D] = A2S.process("signal2",Digi_sig,"waitUntilClick",0);
% Scpe_sig_raw.spectrum("displayname","Scope PSD","fignum",20);
% Scpe_sig_raw.plot("displayname","Scope raw signal","fignum",25,"clear",1);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%% Sample to 2x fsym %%%%%%
Scpe_sig_resampled = Scpe_sig_raw.resample("fs_in",fadc,"fs_out",2*fsym);
%%%%% Precompensation Routine %%%%%%
if precomp_mode == 1
precomp_est.estimate(Scpe_sig_resampled,"save",true,"savePath",precomp_path,"fileName",precomp_fn);
precomp_est.plot();
end
voa.readvals();
rop = voa.power_state(1);
pd_in = voa.power_state(2);
disp(['ROP: ',num2str(rop),' dBm || PD in: ',num2str(pd_in), ' dBm']);
%%%%%% Sync Rx signal with reference (S is a cell array with all occurences) %%%%%%
[Scpe_sig_syncd,S,isFlipped] = Scpe_sig_resampled.tsynch("reference",Symbols,"fs_ref",fsym);
%%%%%% SNR CHEAT - Avges the measured signal occurences found after correlation in "tsynch" %%%%%%
average_signals = 0;
if average_signals
scope_mean = zeros(size(S{1}.signal));
for n=1:numel(S)
scope_mean = scope_mean + S{n}.signal;
if ~(exfo.cur_wavelength == lambda)
% 1)
pdfa.disablePDFA;
% 2)
exfo.setWavelength(lambda);
end
% 3)
pdfa.enablePDFA();
% 4)
pdfa.setPumpLevel(100);
% 5) SET to first vbias and wait 30 minutes
v_bias_first = wh.parameter.vbias.values(1);
dcs = DC_supply("active",[1,0],"voltage",[v_bias_first, 0]);
dcs.set("voltage",[v_bias_first, 0]);
% pause(30*60); %wait 30 minutes for stable bias
for v_bias = wh.parameter.vbias.values
for rop_atten = wh.parameter.rop_atten.values
for precomp_amp_max = wh.parameter.precomp_amp_max.values
for M = wh.parameter.M.values
for awg_vpp = wh.parameter.awg_vpp.values
iterationStartTime = tic;
loopcnt = loopcnt+1;
if M == 4
fsym = 168e9;
pulsef = 1;
elseif M == 6
fsym = 144e9;
pulsef = 0;
elseif M == 8
fsym = 120e9;
pulsef = 0;
end
scope_mean = scope_mean ./ n;
Scpe_sig_syncd.signal = scope_mean;
end
%%%%% Plot and Save Routines: SAVE RECEIVED SIGNALS %%%%%%%%%%%%%%%%%%%%%%%%%
save([folderpath,experiment_name,'_rx_signal',loop_name],"S");
Scpe_sig_syncd.eye(fsym,M,"fignum",40,"displayname",' after Scope');
%%%%% EQUALIZE %%%%%%
Eq = FFE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",50,"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.05,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);
% set to minus one not zero not avoid confusion if BER is acutally zero
ber_ffe = -1;
ber_mlse = -1;
ber_db = -1;
if ffe_only %%%%%%%%%%%%%%%%%%%%%%%%%%%
[EQ_sig] = Eq.process(Scpe_sig_syncd,Symbols);
EQ_sig.plot("fignum",50,"displayname",'After EQ');
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
[~,errors_bm,ber_ffe,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
disp(['FFE: ',sprintf('%.1E',ber_ffe),'| ROP: ',num2str(rop),' dB | PD_in: ',num2str(pd_in),' dBm']);
if 1
%%%%% Loop Preps
%fsym = round(targetrate/log2(M));
loop_name = ['_fsym_',num2str(fsym)];
%%%%% SET Voltages %%%%%%
dcs = DC_supply("active",[1,0],"voltage",[v_bias, 0]);
dcs.set("voltage",[v_bias, 0]);
%%%%% SET Attenuator %%%%%%
voa = OptAtten("active",[1,2,1,1],"value",[rop_atten,pd_in_set,0,0],"wavelength",[1310,1310,1310,1310]);
voa.set('active',[1,2,1,1],'value',[rop_atten,pd_in_set,0,0]);
% voa.readvals();
%%%%% Construct AWG and Scope Modules %%%%%%
fdac = 256e9;
fadc = 256e9;
SCP = ScopeKeysight("model","UXR1104B",'autoscale',1,"fadc","GSa_256","channel",[0,1,0,0],"recordLen",2000000,"removeDC",1);
AWG = AwgKeysight("model","M8199B","fdac",fdac,"scaletodac",[1,1],"skews",[0,0],"voltages",[0,awg_vpp]);
A2S = Awg2Scope(AWG,SCP,[0,2,0,0],"waitUntilClick",0); %
%%%%% Symbol Generation %%%%%%
Pform = Pulseformer("fsym",fsym,"fdac",4*fsym,"pulse","rrc","pulselength",16,"rrcalpha",0.05);
[Digi_sig,Symbols,Bits] = PAMsource(...
"fsym",fsym,"M",M,"order",19,"useprbs",1,...
"fs_out",fdac,...
"applyclipping",0,"clipfactor",1.5,...
"applypulseform",pulsef,"pulseformer",Pform,...
"randkey",random_key,...
"db_precode",db_precode,"db_encode",db_coding_approach,...
"mrds_code",0,"mrds_blocklength",512).process();
Digi_sig.spectrum("displayname","Normal Tx","fignum",20,"normalizeToNyquist",0,"normalizeTo0dB",0);
%%%%% Precompensation Routine %%%%%%
if precomp_mode == 1 % measure channel
precomp_est = ChannelFreqResp("Nacq",1024,"Navg",64,"Ncp",63,'f_ref',fdac);
Digi_sig = precomp_est.buildOFDM();
elseif precomp_mode == 2 % apply precomp
precomp_est = ChannelFreqResp("Nacq",1024,"Navg",64,"Ncp",63,'f_ref',Digi_sig.fs);
Digi_sig = precomp_est.precomp(Digi_sig,'maxampdb',precomp_amp_max,'loadPath',precomp_path,'fileName',precomp_fn);
end
%%%%% Resample to DAC rate %%%%%%
Digi_sig = Digi_sig.resample("fs_out",AWG.fdac);
%%%%% Plot and Save Routine 1 %%%%%%%%%%%%%%%%%%%%%%%%%
Digi_sig.spectrum("displayname","Normal Tx","fignum",10,"normalizeToNyquist",0,"normalizeTo0dB",0);
save([folderpath,[experiment_name,'_bits'],loop_name],"Bits");
save([folderpath,[experiment_name,'_symbols'],loop_name],"Symbols");
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% AWG --> Scope %%%%%%
[~,Scpe_sig_raw,~,D] = A2S.process("signal2",Digi_sig,"waitUntilClick",0);
% Scpe_sig_raw.spectrum("displayname","Scope PSD","fignum",20);
% Scpe_sig_raw.plot("displayname","Scope raw signal","fignum",25,"clear",1);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%% Sample to 2x fsym %%%%%%
Scpe_sig_resampled = Scpe_sig_raw.resample("fs_in",fadc,"fs_out",2*fsym);
%%%%% Precompensation Routine %%%%%%
if precomp_mode == 1
precomp_est.estimate(Scpe_sig_resampled,"save",true,"savePath",precomp_path,"fileName",precomp_fn);
precomp_est.plot();
end
voa.readvals();
rop = voa.power_state(1);
pd_in = voa.power_state(2);
disp(['ROP: ',num2str(rop),' dBm || PD in: ',num2str(pd_in), ' dBm']);
%%%%%% Sync Rx signal with reference (S is a cell array with all occurences) %%%%%%
[Scpe_sig_syncd,S,isFlipped] = Scpe_sig_resampled.tsynch("reference",Symbols,"fs_ref",fsym);
%%%%%% SNR CHEAT - Avges the measured signal occurences found after correlation in "tsynch" %%%%%%
average_signals = 0;
if average_signals
scope_mean = zeros(size(S{1}.signal));
for n=1:numel(S)
scope_mean = scope_mean + S{n}.signal;
end
scope_mean = scope_mean ./ n;
Scpe_sig_syncd.signal = scope_mean;
end
%%%%% Plot and Save Routines: SAVE RECEIVED SIGNALS %%%%%%%%%%%%%%%%%%%%%%%%%
save([folderpath,experiment_name,'_rx_signal',loop_name],"S");
Scpe_sig_syncd.eye(fsym,M,"fignum",40,"displayname",' after Scope');
%%%%% EQUALIZE %%%%%%
Eq = FFE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",50,"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.05,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);
% set to minus one not zero not avoid confusion if BER is acutally zero
ber_ffe = -1;
ber_mlse = -1;
ber_db = -1;
if ffe_only %%%%%%%%%%%%%%%%%%%%%%%%%%%
ber = [];
parfor i = 1:numel(S)
[EQ_sig] = Eq.process(S{i},Symbols);
% EQ_sig.plot("fignum",50,"displayname",'After EQ');
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
[~,errors_bm,ber(i),errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
disp(['FFE: ',sprintf('%.1E',ber(i)),'| ROP: ',num2str(rop),' dB | PD_in: ',num2str(pd_in),' dBm']);
end
try
ber_ffe = mean(rmoutliers(ber));
catch
ber_ffe = min(ber);
end
if 0
EQ_sig.plot("fignum",50,"displayname",'After EQ','clear',1);
figure(56);
clf
title(sprintf('PAM %d ; BER: %1.2e',M, ber_ffe));
constellation = unique(Symbols.signal);
received = NaN(numel(constellation),length(Symbols));
for lvl = 1:numel(constellation)
%Separate the equalized signal into the
%respective levels based on the actually
%transmitted level!
received(lvl,Symbols.signal==constellation(lvl)) = EQ_sig.signal(Symbols.signal==constellation(lvl));
intermediate = received(lvl,:);
cnt(lvl) = numel(intermediate(~isnan(intermediate)));
hold on
histogram(received(lvl,:),1000,"EdgeAlpha",0,'DisplayName',['Lvl ',num2str(lvl),' | ',num2str(cnt(lvl)),' entries']);
end
legend
end
elseif postfilter_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
[EQ_sig] = Eq.process(Scpe_sig_syncd,Symbols);
EQ_sig.plot("fignum",50,"displayname",'After EQ','clear',1);
figure(56);
clf
title(sprintf('PAM %d ; BER: %1.2e',M, ber_ffe));
constellation = unique(Symbols.signal);
received = NaN(numel(constellation),length(Symbols));
for lvl = 1:numel(constellation)
%Separate the equalized signal into the
%respective levels based on the actually
%transmitted level!
received(lvl,Symbols.signal==constellation(lvl)) = EQ_sig.signal(Symbols.signal==constellation(lvl));
intermediate = received(lvl,:);
cnt(lvl) = numel(intermediate(~isnan(intermediate)));
hold on
histogram(received(lvl,:),1000,"EdgeAlpha",0,'DisplayName',['Lvl ',num2str(lvl),' | ',num2str(cnt(lvl)),' entries']);
end
legend
end
elseif postfilter_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
[EQ_sig] = Eq.process(Scpe_sig_syncd,Symbols);
EQ_sig.plot("fignum",50,"displayname",'After EQ','clear',1);
Noi = EQ_sig-Symbols;
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
[~,num_errors,ber_ffe,pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
Noi = EQ_sig-Symbols;
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
[~,num_errors,ber_ffe,pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
nc = 2;
burg_coeff = arburg(Noi.signal,nc);
EQ_sig = EQ_sig.filter(burg_coeff,1);
if 0
Noi.spectrum('displayname','Noise PSD','fignum',123)
[h,w] = freqz(1,burg_coeff,length(Noi),"whole",Noi.fs);
h = h/max(abs(h));
hold on
w_ = (w - Noi.fs/2);
plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',['', num2str(nc), ' coefficients for burg alg.']);
end
EQ_sig = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig);
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
[~,num_errors,ber_mlse,pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
disp(['FFE: ',sprintf('%.1E',ber_ffe),' -> PF -> MLSE: ',sprintf('%.1E',ber_mlse),' dB | PD_in: ',num2str(pd_in),' dBm']);
elseif db_channel_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
[EQ_sig, Noi] = Eq.process(Scpe_sig_syncd,Duobinary().encode(Symbols));
EQ_sig.plot("fignum",50,"displayname",'After EQ','clear',1);
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);
[~,num_errors,ber_db,pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
disp([' DB Precode -> Channel -> FFE -> Decode/ Mod ',sprintf('%.1E',ber_db),' | PD_in: ',num2str(pd_in),' dBm']);
elseif db_coding_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
[EQ_sig, Noi] = Eq.process(Scpe_sig_syncd,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);
[~,errors_bm,ber_db,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
EQ_sig.plot("fignum",50,"displayname",'After EQ');
disp([' DB Precode -> DB Code -> Channel -> FFE -> Decode/ Mod ',sprintf('%.1E',ber_db),' | PD_in: ',num2str(pd_in),' dBm']);
nc = 2;
burg_coeff = arburg(Noi.signal,nc);
EQ_sig = EQ_sig.filter(burg_coeff,1);
if 0
Noi.spectrum('displayname','Noise PSD','fignum',123)
[h,w] = freqz(1,burg_coeff,length(Noi),"whole",Noi.fs);
h = h/max(abs(h));
hold on
w_ = (w - Noi.fs/2);
plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',['', num2str(nc), ' coefficients for burg alg.']);
end
EQ_sig = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig);
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
[~,num_errors,ber_mlse,pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
disp(['FFE: ',sprintf('%.1E',ber_ffe),' -> PF -> MLSE: ',sprintf('%.1E',ber_mlse),' dB | PD_in: ',num2str(pd_in),' dBm']);
elseif db_channel_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
[EQ_sig, Noi] = Eq.process(Scpe_sig_syncd,Duobinary().encode(Symbols));
EQ_sig.plot("fignum",50,"displayname",'After EQ','clear',1);
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);
[~,num_errors,ber_db,pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
disp([' DB Precode -> Channel -> FFE -> Decode/ Mod ',sprintf('%.1E',ber_db),' | PD_in: ',num2str(pd_in),' dBm']);
elseif db_coding_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
[EQ_sig, Noi] = Eq.process(Scpe_sig_syncd,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);
[~,errors_bm,ber_db,errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
EQ_sig.plot("fignum",50,"displayname",'After EQ');
disp([' DB Precode -> DB Code -> Channel -> FFE -> Decode/ Mod ',sprintf('%.1E',ber_db),' | PD_in: ',num2str(pd_in),' dBm']);
%%%%% Store measurement into measurement "warehouse" %%%%%%
wh.addValueToStorage(ber,'ber_collect',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda);
wh.addValueToStorage(ber_ffe,'ber_ffe',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda);
wh.addValueToStorage(ber_mlse,'ber_mlse',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda);
wh.addValueToStorage(ber_db,'ber_db',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda);
wh.addValueToStorage(rop,'rop',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda);
wh.addValueToStorage(pd_in,'pd_in',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda);
Rx_bits.logbook.SignalCopy = [];
wh.addValueToStorage(Rx_bits,'rx_logbook',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda);
wh.addValueToStorage(M,'m',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% Plot stuff into Table (feel free to add own values in -> 'name',value <- notation. Must be closed when table is changed)%%%%%%%%%%%%%%%%%%%%%%
showCurrentMeasurement('FFE', ber_ffe,'MLSE',ber_mlse, 'Fsym',fsym.*1e-9, 'ROP', rop, 'PD in', pd_in, 'PAM',M, 'Vbias', v_bias, 'AWG Vpp', awg_vpp, 'Precomp MaxAmp',precomp_amp_max);
%%%%% Arrange Figures %%%%%%%%%%%%%%%%%%%%%%
autoArrangeFigures(3,3,2);
iterationTimes(loopcnt) = toc(iterationStartTime);
averageTimePerIteration = mean(iterationTimes(1:loopcnt));
estimatedTotalTime = averageTimePerIteration * looptotal;
estimatedTimeRemaining = estimatedTotalTime - sum(iterationTimes(1:loopcnt));
progressFraction = loopcnt / looptotal;
waitbar(progressFraction, hWaitbar, ...
sprintf('Loop: %d of %d \n Runtime: %.1f min | %.1f sec per Loop |Time to go: %.1f min ', ...
loopcnt, looptotal, sum(iterationTimes(1:loopcnt))/60, averageTimePerIteration, estimatedTimeRemaining/60 ));
wh.save([folderpath,experiment_name,'_wh']);
end
%%%%% Store measurement into measurement "warehouse" %%%%%%
wh.addValueToStorage(ber_ffe,'ber_ffe',v_bias,awg_vpp,precomp_amp_max,rop_atten,M);
wh.addValueToStorage(ber_mlse,'ber_mlse',v_bias,awg_vpp,precomp_amp_max,rop_atten,M);
wh.addValueToStorage(ber_db,'ber_db',v_bias,awg_vpp,precomp_amp_max,rop_atten,M);
wh.addValueToStorage(rop,'rop',v_bias,awg_vpp,precomp_amp_max,rop_atten,M);
wh.addValueToStorage(pd_in,'pd_in',v_bias,awg_vpp,precomp_amp_max,rop_atten,M);
% wh.addValueToStorage(Rx_bits,'signals',v_bias,awg_vpp,precomp_amp_max,rop_atten);
wh.addValueToStorage(M,'m',v_bias,awg_vpp,precomp_amp_max,rop_atten,M);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% Plot stuff into Table (feel free to add own values in -> 'name',value <- notation. Must be closed when table is changed)%%%%%%%%%%%%%%%%%%%%%%
showCurrentMeasurement('FFE', ber_ffe,'MLSE',ber_mlse, 'Fsym',fsym.*1e-9, 'ROP', rop, 'PD in', pd_in, 'PAM',M, 'Vbias', v_bias, 'AWG Vpp', awg_vpp, 'Precomp MaxAmp',precomp_amp_max);
%%%%% Arrange Figures %%%%%%%%%%%%%%%%%%%%%%
autoArrangeFigures(3,3,2);
iterationTimes(loopcnt) = toc(iterationStartTime);
averageTimePerIteration = mean(iterationTimes(1:loopcnt));
estimatedTotalTime = averageTimePerIteration * looptatal;
estimatedTimeRemaining = estimatedTotalTime - sum(iterationTimes(1:loopcnt));
progressFraction = loopcnt / looptotal;
waitbar(progressFraction, hWaitbar, ...
sprintf('Loop: %d of %d \n Runtime: %.1f min | %.1f sec per Loop |Time to go: %.1f min ', ...
loopcnt, looptotal, sum(iterationTimes(1:loopcnt))/60, averageTimePerIteration, estimatedTimeRemaining/60 ));
wh.save([folderpath,experiment_name,'_wh']);
end
end
end
end
end
close(hWaitbar);
wh.save([folderpath,experiment_name,'_wh']);
autoArrangeFigures(3,3,2)
%%% LAMBDA PLOT
if 0
lambda_vals = wh.parameter.lambda.values;
ber_ffe = wh.getStoValue('ber_ffe',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda_vals);
ber_mlse = wh.getStoValue('ber_mlse',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda_vals);
rop_measured = wh.getStoValue('rop',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda_vals);
pd_in_measured = wh.getStoValue('pd_in',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda_vals);
figure(240);
hold on
legendname = ['5 km Fsym:',num2str(fsym.*1e-9),' GBd | PAM',num2str(M),' | PD: ',num2str(pd_in_set),'| Vbias: ', num2str(v_bias),'V | '];
ffeLine = plot(lambda_vals, ber_ffe, "LineWidth", 0.5, "LineStyle", "-", "Marker", ".", "MarkerSize", 15, "DisplayName", [legendname,' + VNLE']);
% Continue with the rest of your plot settings
yline(3.8e-3, 'DisplayName', 'HD-FEC', 'LineStyle', '--', 'HandleVisibility', 'off');
xlabel('Wavelength in nm');
ylabel('Bit Error Rate (BER)');
title('Bit Error Rate vs. ROP');
set(gca, 'yscale', 'log');
set(gca, 'Box', 'on');
grid on;
grid minor;
legend('Interpreter', 'none');
end
@@ -325,21 +407,21 @@ autoArrangeFigures(3,3,2)
if 0
rop_vals = wh.parameter.rop_atten.values;
ber_ffe = wh.getStoValue('ber_ffe',v_bias,awg_vpp,precomp_amp_max,rop_vals,M);
ber_mlse = wh.getStoValue('ber_mlse',v_bias,awg_vpp,precomp_amp_max,rop_vals,M);
rop_measured = wh.getStoValue('rop',v_bias,awg_vpp,precomp_amp_max,rop_vals,M);
pd_in_measured = wh.getStoValue('pd_in',v_bias,awg_vpp,precomp_amp_max,rop_vals,M);
legendname = ['Thormax: ',num2str(fsym.*1e-9),' GBd | PAM',num2str(M),' | PD: ',num2str(pd_in_set),'| Vbias: ', num2str(v_bias),'V | '];
figure(230);
hold on; % Retain the plot so new points can be added without complete redraw
% Plot the data and get the line handle
ffeLine = plot(rop_measured, ber_ffe, "LineWidth", 0.5, "LineStyle", "-", "Marker", ".", "MarkerSize", 15, "DisplayName", [legendname,' + FFE']);
mlseLine = plot(rop_measured, ber_mlse, "LineWidth", 0.5, "LineStyle", "-", "Marker", ".", "MarkerSize", 15, "DisplayName", [legendname,' +MLSE']);
% Store pd_in_measured in the ZData property
ffeLine.ZData = pd_in_measured;
% Customize the data tips
@@ -361,7 +443,7 @@ if 0
% Add a new data tip row for PDin
pdinRow = dataTipTextRow('PDin', 'ZData');
mlseLine.DataTipTemplate.DataTipRows(3) = pdinRow;
% Continue with the rest of your plot settings
yline(3.8e-3, 'DisplayName', 'HD-FEC', 'LineStyle', '--', 'HandleVisibility', 'off');
xlabel('Received Optical Power (dBm)');
@@ -373,4 +455,4 @@ if 0
grid minor;
legend('Interpreter', 'none');
end
end