Merge branch 'main' of cau-git.rz.uni-kiel.de:nt/mitarbeiter/silas/imdd_simulation
# Conflicts: # Classes/01_transmit/ChannelFreqResp.m # projects/400G_FTN_setups/imdd_mpi_dsp.m
This commit is contained in:
sioe
131
projects/HighSpeedExperiment_2024/baudrate_evaluation.m
Normal file
131
projects/HighSpeedExperiment_2024/baudrate_evaluation.m
Normal 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
341
projects/HighSpeedExperiment_2024/baudrate_sweep.m
Normal 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)
|
||||
161
projects/HighSpeedExperiment_2024/bias_evaluation.m
Normal file
161
projects/HighSpeedExperiment_2024/bias_evaluation.m
Normal file
@@ -0,0 +1,161 @@
|
||||
|
||||
filename = "C:\Users\sioe\Documents\High_Speed_Measurement_2024\bias_5km\PAMX_5km_20241025_204334_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;
|
||||
lambda_vals = wh.parameter.lambda.values;
|
||||
M_vals = wh.parameter.M.values;
|
||||
fsym_vals = [168e9, 144e9, 120e9];
|
||||
|
||||
ber_ffe = [];
|
||||
ber_mlse = [];
|
||||
rop_measured = [];
|
||||
pd_in_measured = [];
|
||||
|
||||
rop_measured = [];
|
||||
cnt = 0;
|
||||
|
||||
figure(252)
|
||||
clf
|
||||
hold on
|
||||
cols = cbrewer2('Set1',3);
|
||||
for l = 1:numel(lambda_vals)
|
||||
for m = 1:numel(M_vals)
|
||||
|
||||
ber_ffe = wh.getStoValue('ber_ffe',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),M_vals(m),lambda_vals(l));
|
||||
ber = wh.getStoValue('ber_collect',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),M_vals(m),lambda_vals(l));
|
||||
exfo = wh.getStoValue('exfo',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),M_vals(m),lambda_vals(l));
|
||||
|
||||
for e = 1:numel(exfo)
|
||||
laser_pow(e) = exfo{e}.cur_power;
|
||||
end
|
||||
|
||||
rop_measured = wh.getStoValue('rop',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),M_vals(m),lambda_vals(l));
|
||||
pd_in_measured(l,m,:) = wh.getStoValue('pd_in',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),M_vals(m),lambda_vals(l));
|
||||
|
||||
rx_logbook = wh.getStoValue('rx_logbook',v_bias_vals(1),awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),M_vals(1),lambda_vals(1));
|
||||
|
||||
|
||||
subplot(1,3,l)
|
||||
hold on
|
||||
a = scatter(v_bias_vals,min(ber,[],2),40,'LineWidth',2,'Marker','.','DisplayName',['PAM ',num2str(M_vals(m))],'MarkerEdgeColor',cols(m,:));
|
||||
title([num2str(lambda_vals(l)),'nm'])
|
||||
|
||||
a.DataTipTemplate.DataTipRows(1).Label = 'Vbias';
|
||||
|
||||
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_measured;
|
||||
a.DataTipTemplate.DataTipRows(3).Format = ['auto'];
|
||||
|
||||
a.DataTipTemplate.DataTipRows(4).Label = 'Baudr';
|
||||
a.DataTipTemplate.DataTipRows(4).Value = repmat(fsym_vals(m).*1e-9,size(ber_ffe));
|
||||
a.DataTipTemplate.DataTipRows(4).Format = ['%d',' GBd'];
|
||||
|
||||
a.DataTipTemplate.DataTipRows(5).Label = 'L_{out}';
|
||||
a.DataTipTemplate.DataTipRows(5).Value = laser_pow;
|
||||
a.DataTipTemplate.DataTipRows(5).Format = ['auto'];
|
||||
|
||||
% Polynomial fit (e.g., second-order polynomial)
|
||||
[woutliers,n] = rmoutliers( min(ber,[],2) );
|
||||
p = polyfit( v_bias_vals(~n), log10(woutliers), 4); % Adjust order as needed
|
||||
BER_fit = polyval(p, v_bias_vals);
|
||||
|
||||
|
||||
% Plot the fitted curve
|
||||
plot(v_bias_vals, 10.^(BER_fit), '-r', 'LineWidth', 1.5,'Color',cols(m,:),'HandleVisibility','off');
|
||||
|
||||
% Continue with the rest of your plot settings
|
||||
yline(3.8e-3, 'DisplayName', 'HD-FEC', 'LineStyle', '--', 'HandleVisibility', 'off');
|
||||
xlabel('Bias Voltage');
|
||||
ylabel('Bit Error Rate (BER)');
|
||||
sgtitle('Bit Error Rate vs. ROP');
|
||||
set(gca, 'yscale', 'log');
|
||||
set(gca, 'Box', 'on');
|
||||
grid on;
|
||||
grid minor;
|
||||
legend('Interpreter', 'none');
|
||||
|
||||
ylim([1e-3,0.5]);
|
||||
xlim([-16, -2]);
|
||||
|
||||
ylim([1e-3,0.5]);
|
||||
xlim([min(v_bias_vals) max(v_bias_vals)]);
|
||||
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
|
||||
filename = "C:\Users\sioe\Documents\High_Speed_Measurement_2024\bias_testing_and_b2b\PAM4_b2b_bias_sweep_20241023_191202_wh_BB_BIAS_FINAL.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;
|
||||
M_vals = wh.parameter.M.values;
|
||||
|
||||
|
||||
ber_ffe = [];
|
||||
ber_mlse = [];
|
||||
rop_measured = [];
|
||||
pd_in_measured = [];
|
||||
|
||||
figure(2024)
|
||||
for i = 1:3
|
||||
|
||||
ber_ffe(i,:) = wh.getStoValue('ber_ffe',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),M_vals(i));
|
||||
|
||||
rop_measured(i,:) = wh.getStoValue('rop',v_bias_vals,awg_vpp_vals(1),precomp_amp_max_vals(1),rop_atten_vals(1),M_vals(i));
|
||||
|
||||
|
||||
[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' ]);
|
||||
|
||||
% Polynomial fit (e.g., second-order polynomial)
|
||||
[woutliers,n] = rmoutliers( ber_ffe(i,:) );
|
||||
p = polyfit( v_bias_vals(~n), log10(woutliers), 8); % Adjust order as needed
|
||||
BER_fit = polyval(p, v_bias_vals);
|
||||
|
||||
% Plot the fitted curve
|
||||
plot(v_bias_vals, 10.^(BER_fit), '-r', 'LineWidth', 1.5,'Color',cols(i,:),'HandleVisibility','off');
|
||||
|
||||
hold on
|
||||
a = scatter(v_bias_vals,ber_ffe(i,:),'Marker','+','DisplayName',['PAM ',num2str(wh.parameter.M.values(i))],'MarkerEdgeColor',cols(i,:));
|
||||
a.DataTipTemplate.DataTipRows(1).Label = 'Vbias';
|
||||
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_measured(i,:);
|
||||
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('Bias Voltage');
|
||||
ylabel('Bit Error Rate (BER)');
|
||||
title('Bit Error Rate vs. ROP | MI->DO | B2B');
|
||||
set(gca, 'yscale', 'log');
|
||||
set(gca, 'Box', 'on');
|
||||
grid on;
|
||||
grid minor;
|
||||
legend('Interpreter', 'none');
|
||||
|
||||
ylim([1e-4,0.5]);
|
||||
xlim([1.6 3.2]);
|
||||
|
||||
547
projects/HighSpeedExperiment_2024/bias_optimization.m
Normal file
547
projects/HighSpeedExperiment_2024/bias_optimization.m
Normal file
@@ -0,0 +1,547 @@
|
||||
|
||||
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 = 0;
|
||||
db_channel_approach = 1;
|
||||
db_coding_approach = 0;
|
||||
|
||||
db_precode = db_coding_approach || db_channel_approach;
|
||||
|
||||
%%% SIR Sweep for MPI Experiment %%%
|
||||
params = struct;
|
||||
|
||||
% 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 = [4,6,8];
|
||||
% params.lambda = [1293,1310,1327.4]; %calcWavelengthPlan(16, 400e9 , 1310);
|
||||
|
||||
params.vbias = [2.3]; %PAM4=2.3 V PAM6=2.3V %PAM8=2.6V
|
||||
params.awg_vpp = [2.7];
|
||||
params.precomp_amp_max = [-50];
|
||||
params.rop_atten = [0];
|
||||
params.M = [4];
|
||||
params.lambda = [1310]; %calcWavelengthPlan(16, 400e9 , 1310);
|
||||
params.rcalpha = [0.05];
|
||||
|
||||
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("rx_logbook");
|
||||
wh.addStorage("dcs");
|
||||
wh.addStorage("pdfa");
|
||||
wh.addStorage("exfo");
|
||||
|
||||
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 = -34;
|
||||
random_key = 2;
|
||||
pd_in_set = 8;
|
||||
|
||||
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 rcalpha = wh.parameter.rcalpha.values
|
||||
for lambda = wh.parameter.lambda.values
|
||||
|
||||
exfo = Exfo_laser("serialport_number",'COM8','mainframe_channel',1,'safety_mode',0);
|
||||
pdfa = Thor_PDFA("safety_mode",0);
|
||||
exfo.getLaserInfo;
|
||||
|
||||
if ~(exfo.cur_wavelength == lambda)
|
||||
|
||||
% 1)
|
||||
pdfa.disablePDFA;
|
||||
|
||||
% 2)
|
||||
exfo.setWavelength(lambda);
|
||||
|
||||
% 3)
|
||||
pdfa.enablePDFA();
|
||||
|
||||
% 4)
|
||||
pdfa.setPumpLevel(100);
|
||||
|
||||
end
|
||||
|
||||
|
||||
% 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]);
|
||||
dcs.readVals();
|
||||
|
||||
% 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 = 220e9;
|
||||
pulsef = 0;
|
||||
elseif M == 6
|
||||
fsym = 180e9;
|
||||
pulsef = 0;
|
||||
elseif M == 8
|
||||
fsym = 160e9;
|
||||
pulsef = 0;
|
||||
end
|
||||
|
||||
%%%%% 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],"speed",[1000,100,1000,1000]);
|
||||
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",3000000,"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",rcalpha);
|
||||
|
||||
[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",10,"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",14,"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,"normalizeTo0dB",1);
|
||||
Scpe_sig_raw.plot("displayname","Scope raw signal","fignum",29,"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
|
||||
Scpe_sig_avg = Scpe_sig_syncd;
|
||||
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_avg.signal = scope_mean;
|
||||
|
||||
Scpe_sig_avg.spectrum("displayname","Scope PSD","fignum",20,"normalizeTo0dB",1);
|
||||
Scpe_sig_avg.plot("displayname","Scope raw signal","fignum",27,"clear",1);
|
||||
Scpe_sig_avg.eye(fsym,M,"fignum",41,"displayname",' Eye of AVG Signal');
|
||||
end
|
||||
|
||||
% Optfilter = Filter('filtdegree',6,"f_cutoff",100e9,"fs",Scpe_sig_avg.fs,"filterType",filtertypes.gaussian,"active",true);
|
||||
% Scpe_sig_syncd = Optfilter.process(Scpe_sig_syncd);
|
||||
% Scpe_sig_syncd.spectrum("displayname","Scope PSD","fignum",20,"normalizeTo0dB",1);
|
||||
|
||||
%%%%% 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
|
||||
|
||||
disp(['FFE EQ: BEST BER: ',sprintf('%.1E',min(ber)),' AVG BER: ',sprintf('%.1E',mean(ber)),' WORST:',sprintf('%.1E',max(ber)),'. Out of ',num2str(numel(ber))]);
|
||||
|
||||
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 %%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
ber_vnle = [];
|
||||
ber_vnle_mlse = [];
|
||||
ber_ffe_mlse =[];
|
||||
ber_ffe = [];
|
||||
|
||||
parfor s = 1:numel(S)
|
||||
|
||||
if 1
|
||||
%FFE LINEAR
|
||||
Eq = EQ("Ne",[50,0,0],"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);
|
||||
Scpe_sig_syncd = S{s};
|
||||
[EQ_ffe] = Eq.process(Scpe_sig_syncd,Symbols);
|
||||
Noi = EQ_ffe-Symbols;
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_ffe);
|
||||
[~,num_errors,ber_ffe(s),pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
if 1
|
||||
%FFE + MLSE
|
||||
nc = 2;
|
||||
burg_coeff = arburg(Noi.signal,nc);
|
||||
EQ_ffe = EQ_ffe.filter(burg_coeff,1);
|
||||
|
||||
EQ_mlse = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_ffe);
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_mlse);
|
||||
[~,num_errors,ber_ffe_mlse(s),pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
%VNLE
|
||||
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);
|
||||
Scpe_sig_syncd = S{s};
|
||||
[EQ_vnle] = Eq.process(Scpe_sig_syncd,Symbols);
|
||||
Noi = EQ_vnle-Symbols;
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_vnle);
|
||||
[~,num_errors,ber_vnle(s),pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
|
||||
|
||||
%VNLE + MLSE
|
||||
if 0
|
||||
nc = 2;
|
||||
burg_coeff = arburg(Noi.signal,nc);
|
||||
EQ_mlse = EQ_vnle.filter(burg_coeff,1);
|
||||
|
||||
EQ_mlse = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_mlse);
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_mlse);
|
||||
[~,num_errors,ber_vnle_mlse(s),pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
end
|
||||
|
||||
disp(['FFE EQ: BEST BER: ',sprintf('%.1E',min(ber_ffe)),' AVG BER: ',sprintf('%.1E',mean(ber_ffe)),' WORST:',sprintf('%.1E',max(ber_ffe)),'. Out of ',num2str(numel(ber_ffe))]);
|
||||
disp(['FFE + MLSE EQ: BEST BER: ',sprintf('%.1E',min(ber_ffe_mlse)),' AVG BER: ',sprintf('%.1E',mean(ber_ffe_mlse)),' WORST:',sprintf('%.1E',max(ber_ffe_mlse)),'. Out of ',num2str(numel(ber_ffe_mlse))]);
|
||||
disp(['VNLE EQ: BEST BER: ',sprintf('%.1E',min(ber_vnle)),' AVG BER: ',sprintf('%.1E',mean(ber_vnle)),' WORST:',sprintf('%.1E',max(ber_vnle)),'. Out of ',num2str(numel(ber_vnle))]);
|
||||
% disp(['VNLE+MLSE EQ: BEST BER: ',sprintf('%.1E',min(ber_vnle_mlse)),' AVG BER: ',sprintf('%.1E',mean(ber_vnle_mlse)),' WORST:',sprintf('%.1E',max(ber_vnle_mlse)),'. Out of ',num2str(numel(ber_ffe))]);
|
||||
|
||||
|
||||
if 0
|
||||
window = 100;
|
||||
Noi_ = Noi;
|
||||
Noi.signal = Noi.signal - movmean(Noi.signal,[floor(window/2),ceil(window/2)]);
|
||||
|
||||
EQ_vnle.spectrum('displayname','EQ out PSD','fignum',123);
|
||||
Noi.spectrum('displayname','Noise PSD','fignum',123);
|
||||
|
||||
nc = 1;
|
||||
burg_coeff = arburg(Noi.signal,nc);
|
||||
[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
|
||||
if 0
|
||||
figure(57);
|
||||
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_vnle.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
|
||||
% disp(['FFE: ',sprintf('%.1E',ber_ffe),' -> PF -> MLSE: ',sprintf('%.1E',ber_mlse),' dB | PD_in: ',num2str(pd_in),' dBm']);
|
||||
|
||||
elseif db_channel_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
parfor s = 1:numel(S)
|
||||
Scpe_sig_syncd = S{s};
|
||||
[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(s),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(s)),' | PD_in: ',num2str(pd_in),' dBm']);
|
||||
end
|
||||
|
||||
disp(['DB EQ: BEST BER: ',sprintf('%.1E',min(ber_db)),' AVG BER: ',sprintf('%.1E',mean(ber_db)),' WORST:',sprintf('%.1E',max(ber_db)),'. Out of',num2str(numel(ber_db))]);
|
||||
ber = min(ber_db);
|
||||
|
||||
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,'ber_collect',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
wh.addValueToStorage(ber_ffe,'ber_ffe',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
wh.addValueToStorage(ber_mlse,'ber_mlse',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
wh.addValueToStorage(ber_db,'ber_db',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
|
||||
wh.addValueToStorage(rop,'rop',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
wh.addValueToStorage(pd_in,'pd_in',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
% Rx_bits.logbook.SignalCopy = [];
|
||||
% wh.addValueToStorage(Rx_bits,'rx_logbook',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
wh.addValueToStorage(M,'m',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
|
||||
wh.addValueToStorage(dcs,'dcs',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
wh.addValueToStorage(pdfa,'pdfa',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
wh.addValueToStorage(exfo,'exfo',v_bias,awg_vpp,precomp_amp_max,rop_atten,M,lambda,rcalpha);
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
%%%%% Plot stuff into Table (feel free to add own values in -> 'name',value <- notation. Must be closed when table is changed)%%%%%%%%%%%%%%%%%%%%%%
|
||||
% showCurrentMeasurement('BER', min(ber_vnle),'BER',mean(ber_vnle),'Alpha',rcalpha, 'Fsym',fsym.*1e-9, 'ROP', rop,'pulsef',pulsef,'rrcalpha',rrcalpha, '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
|
||||
end
|
||||
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
|
||||
|
||||
|
||||
|
||||
%%% ROP PLOT
|
||||
|
||||
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
|
||||
% Set labels for existing data tip rows
|
||||
ffeLine.DataTipTemplate.DataTipRows(1).Label = 'ROP';
|
||||
ffeLine.DataTipTemplate.DataTipRows(2).Label = 'FFE';
|
||||
ffeLine.DataTipTemplate.DataTipRows(2).Format = '%.2e'; % Format BER as "3e-4"
|
||||
% Add a new data tip row for PDin
|
||||
pdinRow = dataTipTextRow('PDin', 'ZData');
|
||||
ffeLine.DataTipTemplate.DataTipRows(3) = pdinRow;
|
||||
|
||||
% Store pd_in_measured in the ZData property
|
||||
mlseLine.ZData = pd_in_measured;
|
||||
% Customize the data tips
|
||||
% Set labels for existing data tip rows
|
||||
mlseLine.DataTipTemplate.DataTipRows(1).Label = 'ROP';
|
||||
mlseLine.DataTipTemplate.DataTipRows(2).Label = 'MLSE';
|
||||
mlseLine.DataTipTemplate.DataTipRows(2).Format = '%.2e'; % Format BER as "3e-4"
|
||||
% 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)');
|
||||
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
|
||||
80
projects/HighSpeedExperiment_2024/master_auswertung_10km.m
Normal file
80
projects/HighSpeedExperiment_2024/master_auswertung_10km.m
Normal file
@@ -0,0 +1,80 @@
|
||||
|
||||
wh = load('C:\Users\sioe\Documents\High_Speed_Measurement_2024\10km_bitrate_complete\20241030_170224_wh.mat');
|
||||
wh = wh.obj;
|
||||
|
||||
M_vals = wh.parameter.M.values;
|
||||
M_choose = M_vals(1);
|
||||
lambda_vals = wh.parameter.lambda.values;
|
||||
bitrate_vals = wh.parameter.bitrate.values;
|
||||
duobinary_vals = wh.parameter.duobinary.values;
|
||||
rop_atten_vals = wh.parameter.rop_atten.values;
|
||||
|
||||
|
||||
figure(177)
|
||||
|
||||
|
||||
for M_choose = [8]
|
||||
sgtitle(['PAM',num2str(M_choose)])
|
||||
for l = 1:numel(lambda_vals)
|
||||
for b = 1:numel(bitrate_vals)
|
||||
|
||||
cel = wh.getStoValue('ber_vnle',M_choose(1),lambda_vals(l),bitrate_vals(b),duobinary_vals(1),rop_atten_vals(1));
|
||||
ber_vnle(b)=min(cel{1});
|
||||
|
||||
cel = wh.getStoValue('ber_vnle_mlse',M_choose(1),lambda_vals(l),bitrate_vals(b),duobinary_vals(1),rop_atten_vals(1));
|
||||
ber_vnle_mlse(b)=min(cel{1});
|
||||
|
||||
cel = wh.getStoValue('ber_db',M_choose(1),lambda_vals(l),bitrate_vals(b),duobinary_vals(2),rop_atten_vals(1));
|
||||
ber_db(b)=min(cel{1});
|
||||
|
||||
cel = wh.getStoValue('ber_db',M_choose(1),lambda_vals(l),bitrate_vals(b),duobinary_vals(3),rop_atten_vals(1));
|
||||
ber_db_enc(b)=min(cel{1});
|
||||
|
||||
dcs_ = wh.getStoValue('dcs',M_choose(1),lambda_vals(l),bitrate_vals(b),duobinary_vals(2),rop_atten_vals(1));
|
||||
|
||||
|
||||
end
|
||||
|
||||
cols = linspecer(4);
|
||||
subplot(3,3,l)
|
||||
|
||||
if M_choose == 4
|
||||
lst = '-';
|
||||
mkr = 'o';
|
||||
hv = 'on';
|
||||
elseif M_choose == 6
|
||||
lst = '-';
|
||||
mkr = 'x';
|
||||
hv = 'on';
|
||||
elseif M_choose == 8
|
||||
lst = '-';
|
||||
mkr = 'diamond';
|
||||
hv = 'on';
|
||||
end
|
||||
|
||||
|
||||
fsym_vals = floor( bitrate_vals*1e-9./log2(M_choose) );
|
||||
hold on
|
||||
|
||||
plot(bitrate_vals*1e-9,ber_db,'Color',cols(1,:),'Marker',mkr,'MarkerFaceColor','auto','DisplayName','DB pre','LineStyle',lst,'HandleVisibility',hv);
|
||||
plot(bitrate_vals*1e-9,ber_db_enc,'Color',cols(2,:)','Marker',mkr,'MarkerFaceColor','auto','DisplayName','DB enc','LineStyle',lst,'HandleVisibility',hv);
|
||||
plot(bitrate_vals*1e-9,ber_vnle,'Color',cols(3,:),'Marker',mkr,'MarkerFaceColor','auto','DisplayName','VNLE','LineStyle',lst,'HandleVisibility',hv);
|
||||
plot(bitrate_vals*1e-9,ber_vnle_mlse,'Color',cols(4,:),'Marker',mkr,'MarkerFaceColor','auto','DisplayName','VNLE+PF+MLSE','LineStyle',lst,'HandleVisibility',hv);
|
||||
|
||||
% Continue with the rest of your plot settings
|
||||
|
||||
yline(3.8e-3, 'DisplayName', 'HD-FEC', 'LineStyle', '--', 'HandleVisibility', 'off');
|
||||
yline(2e-2, 'DisplayName', '20%', 'LineStyle', '--','LineWidth',1, 'HandleVisibility', 'off');
|
||||
xlabel('Bitrate');
|
||||
ylabel('Bit Error Rate (BER)');
|
||||
title([num2str(lambda_vals(l)),' nm']);
|
||||
set(gca, 'yscale', 'log');
|
||||
set(gca, 'Box', 'on');
|
||||
grid on;
|
||||
grid minor;
|
||||
legend('Interpreter', 'none','Location','southwest');
|
||||
ylim([1e-4,1e-1]);
|
||||
xlim([bitrate_vals(1)*1e-9,bitrate_vals(end)*1e-9])
|
||||
|
||||
end
|
||||
end
|
||||
538
projects/HighSpeedExperiment_2024/master_evaluation.m
Normal file
538
projects/HighSpeedExperiment_2024/master_evaluation.m
Normal file
@@ -0,0 +1,538 @@
|
||||
|
||||
folderpath = 'C:\Users\sioe\Documents\High_Speed_Measurement_2024\10km_bitrate_complete\';
|
||||
experiment_name = '';
|
||||
currentTime = datetime('now', 'Format', 'yyyyMMdd_HHmmss');
|
||||
timeStr = char(currentTime);
|
||||
experiment_name = [experiment_name, timeStr];
|
||||
|
||||
if 1
|
||||
|
||||
%%% BITRATE Sweep for MPI Experiment %%%
|
||||
awg_vpp = 2.7;
|
||||
pd_in_set = 8;
|
||||
random_key = 0;
|
||||
|
||||
params = struct;
|
||||
params.M = [8];
|
||||
params.lambda = [1293, 1297.5, 1302, 1306.5, 1310, 1313.4, 1318, 1322.7, 1327.4]; %calcWavelengthPlan(16, 400e9 , 1310);
|
||||
params.bitrate = [270,300,330,360,390,400,410,420,430,440,450,460,470,480].*1e9;
|
||||
params.duobinary = [0,1,2];
|
||||
params.rop_atten = [0];
|
||||
|
||||
end
|
||||
|
||||
if 0
|
||||
%%% ROP SWEEP
|
||||
awg_vpp = 2.7;
|
||||
pd_in_set = 6;
|
||||
random_key = 0;
|
||||
params = struct;
|
||||
params.M = [8,6,4];
|
||||
params.lambda = [1310]; %calcWavelengthPlan(16, 400e9 , 1310);
|
||||
params.bitrate = [300:30:480].*1e9;
|
||||
params.duobinary = [1,0];
|
||||
params.rop_atten = [0:1.5:7.5];
|
||||
end
|
||||
|
||||
wh = DataStorage(params);
|
||||
|
||||
wh.addStorage("ber_ffe");
|
||||
wh.addStorage("ber_ffe_mlse");
|
||||
wh.addStorage("ber_vnle");
|
||||
wh.addStorage("ber_vnle_mlse");
|
||||
wh.addStorage("ber_db");
|
||||
|
||||
wh.addStorage("FFE");
|
||||
wh.addStorage("VNLE");
|
||||
|
||||
wh.addStorage("pd_in");
|
||||
wh.addStorage("rop");
|
||||
wh.addStorage("m");
|
||||
|
||||
wh.addStorage("dcs");
|
||||
wh.addStorage("pdfa");
|
||||
wh.addStorage("exfo");
|
||||
wh.addStorage("voa");
|
||||
wh.addStorage("filename");
|
||||
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
dcs = DC_supply("active",[1,0],"voltage",[2.3, 0]);
|
||||
|
||||
for db = wh.parameter.duobinary.values
|
||||
|
||||
if db == 1
|
||||
ffe_only = 0;
|
||||
postfilter_approach = 0;
|
||||
db_channel_approach = 1;
|
||||
db_coding_approach = 0;
|
||||
db_precode = db_coding_approach || db_channel_approach;
|
||||
if M == 4
|
||||
pulsef=1;
|
||||
precomp_amp_max = -50;
|
||||
v_bias_for_pam = 2.3;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 6
|
||||
pulsef=0;
|
||||
precomp_amp_max = -50;
|
||||
v_bias_for_pam = 2.3;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 8
|
||||
pulsef=0;
|
||||
precomp_amp_max = -50;
|
||||
v_bias_for_pam=2.6;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pause(7*60); %wait 30 minutes for stable bias
|
||||
pulsef = 0;
|
||||
end
|
||||
|
||||
elseif db == 2
|
||||
|
||||
ffe_only = 0;
|
||||
postfilter_approach = 0;
|
||||
db_channel_approach = 0;
|
||||
db_coding_approach = 1;
|
||||
db_precode = db_coding_approach || db_channel_approach;
|
||||
if M == 4
|
||||
pulsef=1;
|
||||
precomp_amp_max = -38;
|
||||
v_bias_for_pam = 2.8;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 6
|
||||
pulsef=0;
|
||||
precomp_amp_max = -38;
|
||||
v_bias_for_pam = 2.8;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 8
|
||||
pulsef=0;
|
||||
precomp_amp_max = -38;
|
||||
v_bias_for_pam = 2.8;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
end
|
||||
|
||||
elseif db == 0
|
||||
|
||||
ffe_only = 0;
|
||||
postfilter_approach = 1;
|
||||
db_channel_approach = 0;
|
||||
db_coding_approach = 0;
|
||||
db_precode = db_coding_approach || db_channel_approach;
|
||||
if M == 4
|
||||
pulsef=1;
|
||||
precomp_amp_max = -37;
|
||||
v_bias_for_pam = 2.3;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 6
|
||||
pulsef=0;
|
||||
precomp_amp_max = -34;
|
||||
v_bias_for_pam = 2.3;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 8
|
||||
pulsef=0;
|
||||
precomp_amp_max = -34;
|
||||
v_bias_for_pam=2.6;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pause(7*60); %wait 30 minutes for stable bias
|
||||
pulsef = 0;
|
||||
end
|
||||
end
|
||||
|
||||
for lambda = wh.parameter.lambda.values
|
||||
|
||||
exfo = Exfo_laser("serialport_number",'COM8','mainframe_channel',1,'safety_mode',0);
|
||||
pdfa = Thor_PDFA("safety_mode",0);
|
||||
exfo.getLaserInfo;
|
||||
|
||||
if ~(exfo.cur_wavelength == lambda)
|
||||
|
||||
% 1)
|
||||
pdfa.disablePDFA;
|
||||
|
||||
% 2)
|
||||
exfo.setWavelength(lambda);
|
||||
|
||||
% 3)
|
||||
pdfa.enablePDFA();
|
||||
|
||||
% 4)
|
||||
pdfa.setPumpLevel(86);
|
||||
|
||||
end
|
||||
|
||||
for bitrate = wh.parameter.bitrate.values
|
||||
|
||||
fsym = floor( bitrate*1e-9./log2(M) ).*1e9;
|
||||
%%%%% 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 %%%%%%
|
||||
rcalpha = 0.05;
|
||||
Pform = Pulseformer("fsym",fsym,"fdac",4*fsym,"pulse","rrc","pulselength",16,"rrcalpha",rcalpha);
|
||||
|
||||
Pamsource = PAMsource(...
|
||||
"fsym",fsym,"M",M,"order",19,"useprbs",1,...
|
||||
"fs_out",fdac,...
|
||||
"applyclipping",0,"clipfactor",1.2,...
|
||||
"applypulseform",pulsef,"pulseformer",Pform,...
|
||||
"randkey",random_key,...
|
||||
"db_precode",db_precode,"db_encode",db_coding_approach,...
|
||||
"mrds_code",0,"mrds_blocklength",512);
|
||||
|
||||
[Digi_sig,Symbols,Bits] = Pamsource.process();
|
||||
|
||||
% Digi_sig.plot("displayname","Digi_sig clipped","fignum",21,"clear",1);
|
||||
|
||||
%%%%% Precompensation Routine %%%%%%
|
||||
if precomp_mode == 1 % measure channel
|
||||
precomp_est = ChannelFreqResp("Nacq",2048,"Navg",100,"Ncp",63,'f_ref',fdac);
|
||||
Digi_sig = precomp_est.buildOFDM();
|
||||
elseif precomp_mode == 2 % apply precomp
|
||||
precomp_est = ChannelFreqResp("Nacq",2048,"Navg",100,"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);
|
||||
|
||||
% Digi_sig.spectrum("displayname","TX After precomp","fignum",222,"normalizeToNyquist",0,"normalizeTo0dB",1);
|
||||
|
||||
if 0 %negative performance...
|
||||
% X: design FIR filter for sinc precomp
|
||||
% https://www.dsprelated.com/showarticle/1191.php
|
||||
ntaps = 13;
|
||||
npts = 32;
|
||||
% least-squares FIR design
|
||||
fmax = AWG.fdac*0.5;
|
||||
ff = linspace(0,fmax,npts);
|
||||
hsinc = sin(pi*ff/AWG.fdac)./(pi*ff/AWG.fdac + eps); % transfer function of sample and hold DAC
|
||||
hsinc(1) = 1;
|
||||
h_goal= 1./hsinc; % goal function
|
||||
f = 2.*ff./AWG.fdac; %vector between 0 and 1, where 1 is nyquist is fsamp/2
|
||||
b = firls(ntaps-1,f,h_goal);
|
||||
Digi_sig.signal = conv(Digi_sig.signal,b,"same");
|
||||
end
|
||||
|
||||
% Digi_sig.spectrum("displayname","TX After SINC precomp","fignum",222,"normalizeToNyquist",0,"normalizeTo0dB",1);
|
||||
|
||||
for rop_atten = wh.parameter.rop_atten.values
|
||||
|
||||
%%%%% Loop Preps
|
||||
iterationStartTime = tic;
|
||||
loopcnt = loopcnt+1;
|
||||
loop_name = ['_PAM_',num2str(M),'_L_',num2str(lambda),'_R_',num2str(bitrate),'_DB_',num2str(db),'_ROP_',num2str(rop_atten)];
|
||||
loop_name = strrep(loop_name,'.','_');
|
||||
|
||||
%%%%% READ Voltages %%%%%%
|
||||
dcs.readVals();
|
||||
|
||||
%%%%% SET Attenuator %%%%%%
|
||||
voa = OptAtten("active",[1,2,1,1],"value",[rop_atten,pd_in_set,0,0],"wavelength",[1310,1310,1310,1310],"speed",[1000,100,1000,1000]);
|
||||
voa.set('active',[1,2,1,1],'value',[rop_atten,pd_in_set,0,0]);
|
||||
voa.readvals();
|
||||
|
||||
%%%% SIGNAL USUALLY HERE, NOW ABOVE ROP_ATTEN %%%
|
||||
|
||||
%%%%% Plot and Save Routine 1 - same for all rops, thus save only once %%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
if rop_atten == 0
|
||||
save([folderpath,experiment_name,loop_name,'_bits'],"Bits");
|
||||
save([folderpath,experiment_name,loop_name,'_symbols'],"Symbols");
|
||||
end
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
%%%%% AWG --> Scope %%%%%%
|
||||
[~,Scpe_sig_raw,~,D] = A2S.process("signal2",Digi_sig,"waitUntilClick",0);
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
save([folderpath,experiment_name,loop_name,'_raw_signal'],"Scpe_sig_raw");
|
||||
|
||||
% Scpe_sig_raw = Filter('filtdegree',5,"f_cutoff",0.55.*fsym,"fs",fadc,"filterType",filtertypes.gaussian,"active",true).process(Scpe_sig_raw);
|
||||
|
||||
%
|
||||
Scpe_sig_raw.plot("displayname","Scope raw signal","fignum",20,"clear",1);
|
||||
% Scpe_sig_raw.spectrum("displayname","Scope PSD","fignum",30,"normalizeTo0dB",1);
|
||||
% Scpe_sig_raw.eye(fsym,M,"displayname",'eye','fignum',200);
|
||||
|
||||
%%%%%% 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);
|
||||
|
||||
%%%%%% 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 %%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
save([folderpath,experiment_name,loop_name,'_rx_signal'],"S");
|
||||
|
||||
|
||||
%%%%% EQUALIZE %%%%%%
|
||||
% set to minus one not zero not avoid confusion if BER is acutally zero
|
||||
ber_vnle = [-1];
|
||||
ber_vnle_mlse = [-1];
|
||||
ber_ffe_mlse =[-1];
|
||||
ber_ffe = [-1];
|
||||
ber_db = [-1];
|
||||
ffe = EQ("Ne",[50,0,0],"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);
|
||||
vnle = 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);
|
||||
|
||||
if postfilter_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
if 1
|
||||
|
||||
eq_values = min(numel(S),8);
|
||||
Noi = cell(eq_values,1);
|
||||
EQ_vnle= cell(eq_values,1);
|
||||
EQ_ffe= cell(eq_values,1);
|
||||
|
||||
parfor s = 1:eq_values
|
||||
if 1
|
||||
%VNLE
|
||||
vnle = EQ("Ne",[50,7,7],"Nb",[0,0,0],"training_length",4096*2,"training_loops",5,"dd_loops",5,"K",2,"DCmu",0.0,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);
|
||||
Scpe_sig_syncd = S{s};
|
||||
[EQ_vnle{s}] = vnle.process(Scpe_sig_syncd,Symbols);
|
||||
Noi{s} = EQ_vnle{s}-Symbols;
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_vnle{s});
|
||||
[~,~,ber_vnle(s),~] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
%VNLE + MLSE
|
||||
if 1
|
||||
Noi{s}.signal = Noi{s}.signal - mean(Noi{s}.signal);
|
||||
nc = 2;
|
||||
burg_coeff = arburg(Noi{s}.signal,nc);
|
||||
EQ_mlse = EQ_vnle{s}.filter(burg_coeff,1);
|
||||
|
||||
EQ_mlse = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_mlse);
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_mlse);
|
||||
[~,~,ber_vnle_mlse(s),~] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
if 0
|
||||
[~,s]=min(ber_vnle_mlse);
|
||||
nc = 2;
|
||||
burg_coeff = arburg(Noi{s}.signal,nc);
|
||||
Noi{s}.spectrum('displayname','Noise PSD','fignum',123);
|
||||
[h,w] = freqz(1,burg_coeff,length(Noi{s}),"whole",Noi{s}.fs);
|
||||
h = h/max(abs(h));
|
||||
hold on
|
||||
w_ = (w - Noi{s}.fs/2);
|
||||
plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',['', num2str(nc), ' coefficients for burg alg.']);
|
||||
end
|
||||
|
||||
if 0
|
||||
figure(55);
|
||||
clf
|
||||
title(sprintf('PAM %d ; BER: %1.2e',M, ber_vnle_mlse(s) ));
|
||||
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_vnle{s}.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
|
||||
|
||||
|
||||
|
||||
% disp(['FFE EQ: BEST BER: ',sprintf('%.1E',min(ber_ffe)),' AVG BER: ',sprintf('%.1E',mean(ber_ffe)),' WORST:',sprintf('%.1E',max(ber_ffe)),'. Out of ',num2str(numel(ber_ffe))]);
|
||||
% disp(['FFE + MLSE EQ: BEST BER: ',sprintf('%.1E',min(ber_ffe_mlse)),' AVG BER: ',sprintf('%.1E',mean(ber_ffe_mlse)),' WORST:',sprintf('%.1E',max(ber_ffe_mlse)),'. Out of ',num2str(numel(ber_ffe_mlse))]);
|
||||
disp(['VNLE EQ: BEST BER: ',sprintf('%.1E',min(ber_vnle)),' AVG BER: ',sprintf('%.1E',mean(ber_vnle)),' WORST:',sprintf('%.1E',max(ber_vnle)),'. Out of ',num2str(numel(ber_vnle))]);
|
||||
% disp(['VNLE+MLSE EQ: BEST BER: ',sprintf('%.1E',min(ber_vnle_mlse)),' AVG BER: ',sprintf('%.1E',mean(ber_vnle_mlse)),' WORST:',sprintf('%.1E',max(ber_vnle_mlse)),'. Out of ',num2str(numel(ber_vnle_mlse))]);
|
||||
end
|
||||
|
||||
elseif db_channel_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
ffe = EQ("Ne",[50,0,0],"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);
|
||||
ffe = EQ("Ne",[50,7,7],"Nb",[0,0,0],"training_length",4096*2,"training_loops",5,"dd_loops",5,"K",2,"DCmu",0.0,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);
|
||||
|
||||
if 1
|
||||
|
||||
eq_values = min(numel(S),8);
|
||||
Noi = cell(eq_values,1);
|
||||
EQ_sig = cell(eq_values,1);
|
||||
|
||||
parfor s = 1:eq_values
|
||||
|
||||
Scpe_sig_syncd = S{s};
|
||||
|
||||
[EQ_sig{s}, Noi{s}] = ffe.process(Scpe_sig_syncd,Duobinary().encode(Symbols));
|
||||
|
||||
EQ_sig{s}.signal = EQ_sig{s}.signal-mean(EQ_sig{s}.signal);
|
||||
|
||||
EQ_sig_mlse = MLSE("DIR",[1,1],"duobinary_output",1,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig{s});
|
||||
|
||||
EQ_sig_mlse = Duobinary().decode(EQ_sig_mlse);
|
||||
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_sig_mlse);
|
||||
|
||||
[~,num_errors,ber_db(s),pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
|
||||
end
|
||||
|
||||
if 0
|
||||
[~,s]=min(ber_vnle_mlse);
|
||||
|
||||
Noi{s}.spectrum('displayname',['Noise; SIR:',sprintf('%.2f',sir)],'fignum',40,'normalizeTo0dB',1);
|
||||
|
||||
Duobinary().encode(Symbols).spectrum('displayname',['DB coded symbols; SIR:',sprintf('%.2f',sir)],'fignum',40,'normalizeTo0dB',1);
|
||||
|
||||
EQ_sig{s}.spectrum('displayname',['EQ; SIR:',sprintf('%.2f',sir)],'fignum',40,'normalizeTo0dB',1);
|
||||
|
||||
EQ_sig{s}.signal = EQ_sig{1}.signal-mean(EQ_sig{s}.signal);
|
||||
end
|
||||
|
||||
disp(['DB EQ: BEST BER: ',sprintf('%.1E',min(ber_db)),' AVG BER: ',sprintf('%.1E',mean(ber_db)),' WORST:',sprintf('%.1E',max(ber_db)),'. Out of',num2str(numel(ber_db))]);
|
||||
|
||||
else
|
||||
|
||||
% disp('Disabled MLSE for DB in all cases, due to time in measurement loop')
|
||||
|
||||
end
|
||||
|
||||
elseif db_coding_approach
|
||||
|
||||
ffe = EQ("Ne",[50,7,7],"Nb",[0,0,0],"training_length",4096*2,"training_loops",5,"dd_loops",5,"K",2,"DCmu",0.0,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);
|
||||
|
||||
if 1
|
||||
|
||||
eq_values = min(numel(S),8);
|
||||
Noi = cell(eq_values,1);
|
||||
EQ_sig = cell(eq_values,1);
|
||||
EQ_sig_mlse = cell(eq_values,1);
|
||||
|
||||
parfor s = 1:eq_values
|
||||
[EQ_sig{s}, Noi{s}] = ffe.process(S{s},Symbols);
|
||||
EQ_sig_mlse{s} = MLSE("DIR",[1,1],"duobinary_output",1,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig{s});
|
||||
EQ_sig_mlse{s} = Duobinary().decode(EQ_sig_mlse{s});
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_sig_mlse{s});
|
||||
[~,num_errors,ber_db(s),pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
disp(['DB EQ: BEST BER: ',sprintf('%.1E',min(ber_db)),' AVG BER: ',sprintf('%.1E',mean(ber_db)),' WORST:',sprintf('%.1E',max(ber_db)),'. Out of',num2str(numel(ber_db))]);
|
||||
|
||||
if 1
|
||||
[~,s]=min(ber_db);
|
||||
Noi{s}.spectrum('displayname',['Noise '],'fignum',50,'normalizeTo0dB',1);
|
||||
EQ_sig{s}.spectrum('displayname',['EQLZD '],'fignum',50,'normalizeTo0dB',1);
|
||||
Symbols.spectrum('displayname',['Symbols '],'fignum',222,'normalizeTo0dB',1);
|
||||
end
|
||||
|
||||
if 1
|
||||
figure(51);
|
||||
clf
|
||||
title(sprintf('DB coded PAM after EQ ; BER: %1.2e',M, ber_db(s) ));
|
||||
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{s}.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
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
% showCurrentMeasurement('Vbias', v_bias_for_pam,'MIN BER', min(ber_db),'MEAN BER',mean(ber_db),'MAX BER',max(ber_db), 'Fsym',fsym.*1e-9, 'ROP', rop, 'Precomp MaxAmp',precomp_amp_max);
|
||||
|
||||
|
||||
|
||||
|
||||
%%%%% Store measurement into measurement "warehouse" %%%%%%
|
||||
|
||||
wh.addValueToStorage({ber_ffe},'ber_ffe',M,lambda,bitrate,db,rop_atten);
|
||||
wh.addValueToStorage({ber_ffe_mlse},'ber_ffe_mlse',M,lambda,bitrate,db,rop_atten);
|
||||
wh.addValueToStorage({ber_vnle},'ber_vnle',M,lambda,bitrate,db,rop_atten);
|
||||
wh.addValueToStorage({ber_vnle_mlse},'ber_vnle_mlse',M,lambda,bitrate,db,rop_atten);
|
||||
wh.addValueToStorage({ber_db},'ber_db',M,lambda,bitrate,db,rop_atten);
|
||||
|
||||
wh.addValueToStorage(rop,'rop',M,lambda,bitrate,db,rop_atten);
|
||||
wh.addValueToStorage(pd_in,'pd_in',M,lambda,bitrate,db,rop_atten);
|
||||
wh.addValueToStorage(M,'m',M,lambda,bitrate,db,rop_atten);
|
||||
|
||||
wh.addValueToStorage(dcs,'dcs',M,lambda,bitrate,db,rop_atten);
|
||||
wh.addValueToStorage(pdfa,'pdfa',M,lambda,bitrate,db,rop_atten);
|
||||
wh.addValueToStorage(exfo,'exfo',M,lambda,bitrate,db,rop_atten);
|
||||
wh.addValueToStorage(voa,'voa',M,lambda,bitrate,db,rop_atten);
|
||||
|
||||
wh.addValueToStorage(ffe,'FFE',M,lambda,bitrate,db,rop_atten);
|
||||
wh.addValueToStorage(vnle,'VNLE',M,lambda,bitrate,db,rop_atten);
|
||||
|
||||
wh.addValueToStorage(string([experiment_name,loop_name]),'filename',M,lambda,bitrate,db,rop_atten);
|
||||
|
||||
|
||||
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
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
close(hWaitbar);
|
||||
|
||||
wh.save([folderpath,experiment_name,'_wh']);
|
||||
|
||||
|
||||
503
projects/HighSpeedExperiment_2024/mpi_measurement.m
Normal file
503
projects/HighSpeedExperiment_2024/mpi_measurement.m
Normal file
@@ -0,0 +1,503 @@
|
||||
|
||||
folderpath = 'C:\Users\sioe\Documents\High_Speed_Measurement_2024\MPI_duobinary_encoded\';
|
||||
experiment_name = '';
|
||||
currentTime = datetime('now', 'Format', 'yyyyMMdd_HHmmss');
|
||||
timeStr = char(currentTime);
|
||||
experiment_name = [experiment_name, timeStr];
|
||||
|
||||
|
||||
%%% BITRATE Sweep for MPI Experiment %%%
|
||||
awg_vpp = 2.7;
|
||||
rop_atten = 0; %VOA 1 -> %nicht angeschlossen
|
||||
pd_in_set = 8; %VOA 2 -> PD in
|
||||
%VOA 3 -> Signal path
|
||||
%VOA 4 -> Interference path
|
||||
|
||||
random_key = 0;
|
||||
|
||||
params = struct;
|
||||
params.M = [4];
|
||||
params.bitrate = [336,360,390,420,448].*1e9;%[90:60:480].*1e9;%[300:30:480].*1e9;
|
||||
params.duobinary = [2];
|
||||
params.interference_atten = [0:1:20,45];
|
||||
|
||||
wh = DataStorage(params);
|
||||
|
||||
wh.addStorage("ber_ffe");
|
||||
wh.addStorage("ber_ffe_mlse");
|
||||
wh.addStorage("ber_vnle");
|
||||
wh.addStorage("ber_vnle_mlse");
|
||||
wh.addStorage("ber_db");
|
||||
|
||||
wh.addStorage("FFE");
|
||||
wh.addStorage("VNLE");
|
||||
|
||||
wh.addStorage("pd_in");
|
||||
wh.addStorage("rop");
|
||||
wh.addStorage("s_power");
|
||||
wh.addStorage("i_power");
|
||||
wh.addStorage("sir");
|
||||
|
||||
wh.addStorage("filename");
|
||||
wh.addStorage("m");
|
||||
|
||||
wh.addStorage("dcs");
|
||||
wh.addStorage("pdfa");
|
||||
wh.addStorage("exfo");
|
||||
wh.addStorage("voa");
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
for bitrate = wh.parameter.bitrate.values
|
||||
|
||||
fsym = floor( bitrate*1e-9./log2(M) ).*1e9;
|
||||
|
||||
for db = wh.parameter.duobinary.values
|
||||
|
||||
dcs = DC_supply("active",[1,0],"voltage",[2.3, 0]);
|
||||
if db == 1
|
||||
ffe_only = 0;
|
||||
postfilter_approach = 0;
|
||||
db_channel_approach = 1;
|
||||
db_coding_approach = 0;
|
||||
db_precode = db_coding_approach || db_channel_approach;
|
||||
if M == 4
|
||||
pulsef=1;
|
||||
precomp_amp_max = -50;
|
||||
v_bias_for_pam = 2.3;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 6
|
||||
pulsef=0;
|
||||
precomp_amp_max = -50;
|
||||
v_bias_for_pam = 2.3;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 8
|
||||
pulsef=0;
|
||||
precomp_amp_max = -50;
|
||||
v_bias_for_pam=2.6;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pause(7*60); %wait 30 minutes for stable bias
|
||||
pulsef = 0;
|
||||
end
|
||||
|
||||
elseif db == 2
|
||||
ffe_only = 0;
|
||||
postfilter_approach = 0;
|
||||
db_channel_approach = 0;
|
||||
db_coding_approach = 1;
|
||||
db_precode = db_coding_approach || db_channel_approach;
|
||||
if M == 4
|
||||
pulsef=1;
|
||||
precomp_amp_max = -38;
|
||||
v_bias_for_pam = 2.8;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 6
|
||||
pulsef=0;
|
||||
precomp_amp_max = -38;
|
||||
v_bias_for_pam = 2.8;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 8
|
||||
pulsef=0;
|
||||
precomp_amp_max = -38;
|
||||
v_bias_for_pam = 2.8;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
end
|
||||
|
||||
elseif db == 0
|
||||
ffe_only = 0;
|
||||
postfilter_approach = 1;
|
||||
db_channel_approach = 0;
|
||||
db_coding_approach = 0;
|
||||
db_precode = db_coding_approach || db_channel_approach;
|
||||
if M == 4
|
||||
pulsef=1;
|
||||
precomp_amp_max = -37;
|
||||
v_bias_for_pam = 2.3;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 6
|
||||
pulsef=0;
|
||||
precomp_amp_max = -34;
|
||||
v_bias_for_pam = 2.3;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
elseif M == 8
|
||||
pulsef=0;
|
||||
precomp_amp_max = -34;
|
||||
v_bias_for_pam=2.6;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pause(7*60); %wait 30 minutes for stable bias
|
||||
pulsef = 0;
|
||||
end
|
||||
end
|
||||
|
||||
%%%%% Construct AWG and Scope Modules %%%%%%
|
||||
fdac = 256e9;
|
||||
fadc = 256e9;
|
||||
|
||||
|
||||
%%%%% Symbol Generation %%%%%%
|
||||
rcalpha = 0.05;
|
||||
Pform = Pulseformer("fsym",fsym,"fdac",4*fsym,"pulse","rrc","pulselength",16,"rrcalpha",rcalpha);
|
||||
|
||||
Pamsource = 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);
|
||||
|
||||
[Digi_sig,Symbols,Bits] = Pamsource.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",fdac);
|
||||
|
||||
% Digi_sig = Filter('filtdegree',5,"f_cutoff",0.75*fsym,"fs",fadc,"filterType",filtertypes.gaussian,"active",true).process(Digi_sig);
|
||||
|
||||
% Digi_sig.spectrum("displayname","TX After precomp","fignum",10,"normalizeToNyquist",0,"normalizeTo0dB",0);
|
||||
|
||||
% holdAndShowValue;
|
||||
|
||||
scopeAutoScale = 1;
|
||||
|
||||
for interference_atten = wh.parameter.interference_atten.values
|
||||
|
||||
SCP = ScopeKeysight("model","UXR1104B",'autoscale',scopeAutoScale,"fadc","GSa_256","channel",[0,1,0,0],"recordLen",6000000,"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",1); %
|
||||
|
||||
% scopeAutoScale = 0; %until is set to 1 in next db change and then bitrate
|
||||
|
||||
%%%%% Loop Preps
|
||||
iterationStartTime = tic;
|
||||
loopcnt = loopcnt+1;
|
||||
loop_name = ['_PAM_',num2str(M),'_R_',num2str(bitrate),'_DB_',num2str(db),'_I_atten_',num2str(interference_atten)];
|
||||
loop_name = strrep(loop_name,'.','_');
|
||||
|
||||
%%%%% READ Voltages %%%%%%
|
||||
dcs.readVals();
|
||||
|
||||
%%%%% SET Attenuator %%%%%%
|
||||
voa = OptAtten("active",[1,2,1,1],"value",[rop_atten,pd_in_set,0,interference_atten],"wavelength",[1310,1310,1310,1310],"speed",[1000,100,1000,1000]);
|
||||
voa.set('active',[1,2,1,1],'value',[rop_atten,pd_in_set,0,interference_atten]);
|
||||
|
||||
%%%% SIGNAL USUALLY HERE, NOW ABOVE ROP_ATTEN %%%
|
||||
|
||||
%%%%% Plot and Save Routine 1 - same for all rops, thus save only once %%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
if interference_atten == 0
|
||||
save([folderpath,experiment_name,loop_name,'_bits'],"Bits");
|
||||
save([folderpath,experiment_name,loop_name,'_symbols'],"Symbols");
|
||||
end
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
%%%%% AWG --> Scope %%%%%%
|
||||
[~,Scpe_sig_raw,~,D] = A2S.process("signal2",Digi_sig,"waitUntilClick",0);
|
||||
save([folderpath,experiment_name,loop_name,'_raw_signal'],"Scpe_sig_raw");
|
||||
voa.readvals();
|
||||
rop = voa.power_state(1);
|
||||
pd_in = voa.power_state(2);
|
||||
i_power = voa.power_state(4);
|
||||
s_power = voa.power_state(3);
|
||||
sir = s_power-i_power;
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
% Scpe_sig_raw.spectrum("displayname","Scope PSD before filter","fignum",30,"normalizeTo0dB",1);
|
||||
|
||||
% Scpe_sig_raw = Filter('filtdegree',5,"f_cutoff",0.65.*fsym,"fs",fadc,"filterType",filtertypes.gaussian,"active",true).process(Scpe_sig_raw);
|
||||
|
||||
% Scpe_sig_raw.spectrum("displayname","Scope PSD after filter","fignum",30,"normalizeTo0dB",1);
|
||||
|
||||
%%%%%% Sample to 2x fsym %%%%%%
|
||||
Scpe_sig_resampled = Scpe_sig_raw.resample("fs_in",fadc,"fs_out",2*fsym);
|
||||
|
||||
Scpe_sig_raw.plot("displayname",['SIR: ',sprintf('%.2f',sir),' dB'],"fignum",20,"clear",1);
|
||||
|
||||
% disp(['PDin: ',sprintf('%.2f',pd_in),' dB | S: ',sprintf('%.2f',s_power),' dB | I: ',sprintf('%.2f',i_power),' dB | -> SIR: ',sprintf('%.2f',sir),' dB']);
|
||||
|
||||
%%%%%% 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 %%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
save([folderpath,experiment_name,loop_name,'_rx_signal'],"S");
|
||||
|
||||
|
||||
%%%%% EQUALIZE %%%%%%
|
||||
% set to minus one not zero not avoid confusion if BER is acutally zero
|
||||
ber_vnle = [-1];
|
||||
ber_vnle_mlse = [-1];
|
||||
ber_ffe_mlse =[-1];
|
||||
ber_ffe = [-1];
|
||||
ber_db = [-1];
|
||||
ffe = EQ("Ne",[50,0,0],"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);
|
||||
vnle = 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);
|
||||
|
||||
if postfilter_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
if 1
|
||||
|
||||
eq_values = min(numel(S),8);
|
||||
Noi = cell(eq_values,1);
|
||||
EQ_vnle= cell(eq_values,1);
|
||||
EQ_ffe= cell(eq_values,1);
|
||||
|
||||
parfor s = 1:eq_values
|
||||
if 1
|
||||
%VNLE
|
||||
vnle = EQ("Ne",[50,7,7],"Nb",[0,0,0],"training_length",4096*2,"training_loops",5,"dd_loops",5,"K",2,"DCmu",0.0,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);
|
||||
Scpe_sig_syncd = S{s};
|
||||
[EQ_vnle{s}] = vnle.process(Scpe_sig_syncd,Symbols);
|
||||
Noi{s} = EQ_vnle{s}-Symbols;
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_vnle{s});
|
||||
[~,~,ber_vnle(s),~] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
%VNLE + MLSE
|
||||
if 1
|
||||
Noi{s}.signal = Noi{s}.signal - mean(Noi{s}.signal);
|
||||
nc = 2;
|
||||
burg_coeff = arburg(Noi{s}.signal,nc);
|
||||
EQ_mlse = EQ_vnle{s}.filter(burg_coeff,1);
|
||||
|
||||
EQ_mlse = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_mlse);
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_mlse);
|
||||
[~,~,ber_vnle_mlse(s),~] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
if 1
|
||||
[~,s]=min(ber_vnle_mlse);
|
||||
nc = 2;
|
||||
burg_coeff = arburg(Noi{s}.signal,nc);
|
||||
Noi{s}.spectrum('displayname','Noise PSD','fignum',123);
|
||||
[h,w] = freqz(1,burg_coeff,length(Noi{s}),"whole",Noi{s}.fs);
|
||||
h = h/max(abs(h));
|
||||
hold on
|
||||
w_ = (w - Noi{s}.fs/2);
|
||||
plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',['', num2str(nc), ' coefficients for burg alg.']);
|
||||
end
|
||||
|
||||
if 1
|
||||
figure(55);
|
||||
clf
|
||||
title(sprintf('PAM %d ; BER: %1.2e',M, ber_vnle_mlse(s) ));
|
||||
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_vnle{s}.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
|
||||
|
||||
|
||||
|
||||
% disp(['FFE EQ: BEST BER: ',sprintf('%.1E',min(ber_ffe)),' AVG BER: ',sprintf('%.1E',mean(ber_ffe)),' WORST:',sprintf('%.1E',max(ber_ffe)),'. Out of ',num2str(numel(ber_ffe))]);
|
||||
% disp(['FFE + MLSE EQ: BEST BER: ',sprintf('%.1E',min(ber_ffe_mlse)),' AVG BER: ',sprintf('%.1E',mean(ber_ffe_mlse)),' WORST:',sprintf('%.1E',max(ber_ffe_mlse)),'. Out of ',num2str(numel(ber_ffe_mlse))]);
|
||||
disp(['VNLE EQ: BEST BER: ',sprintf('%.1E',min(ber_vnle)),' AVG BER: ',sprintf('%.1E',mean(ber_vnle)),' WORST:',sprintf('%.1E',max(ber_vnle)),'. Out of ',num2str(numel(ber_vnle))]);
|
||||
% disp(['VNLE+MLSE EQ: BEST BER: ',sprintf('%.1E',min(ber_vnle_mlse)),' AVG BER: ',sprintf('%.1E',mean(ber_vnle_mlse)),' WORST:',sprintf('%.1E',max(ber_vnle_mlse)),'. Out of ',num2str(numel(ber_vnle_mlse))]);
|
||||
end
|
||||
|
||||
elseif db_channel_approach %%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
ffe = EQ("Ne",[50,0,0],"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);
|
||||
ffe = EQ("Ne",[50,7,7],"Nb",[0,0,0],"training_length",4096*2,"training_loops",5,"dd_loops",5,"K",2,"DCmu",0.0,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);
|
||||
|
||||
if 0
|
||||
|
||||
eq_values = min(numel(S),8);
|
||||
Noi = cell(eq_values,1);
|
||||
EQ_sig = cell(eq_values,1);
|
||||
|
||||
parfor s = 1:eq_values
|
||||
|
||||
Scpe_sig_syncd = S{s};
|
||||
|
||||
[EQ_sig{s}, Noi{s}] = ffe.process(Scpe_sig_syncd,Duobinary().encode(Symbols));
|
||||
|
||||
EQ_sig{s}.signal = EQ_sig{s}.signal-mean(EQ_sig{s}.signal);
|
||||
|
||||
EQ_sig_mlse = MLSE("DIR",[1,1],"duobinary_output",1,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig{s});
|
||||
|
||||
EQ_sig_mlse = Duobinary().decode(EQ_sig_mlse);
|
||||
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_sig_mlse);
|
||||
|
||||
[~,num_errors,ber_db(s),pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
|
||||
end
|
||||
|
||||
if 1
|
||||
[~,s]=min(ber_vnle_mlse);
|
||||
|
||||
Noi{s}.spectrum('displayname',['Noise; SIR:',sprintf('%.2f',sir)],'fignum',40,'normalizeTo0dB',1);
|
||||
|
||||
Duobinary().encode(Symbols).spectrum('displayname',['DB coded symbols; SIR:',sprintf('%.2f',sir)],'fignum',40,'normalizeTo0dB',1);
|
||||
|
||||
EQ_sig{s}.spectrum('displayname',['EQ; SIR:',sprintf('%.2f',sir)],'fignum',40,'normalizeTo0dB',1);
|
||||
|
||||
EQ_sig{s}.signal = EQ_sig{1}.signal-mean(EQ_sig{s}.signal);
|
||||
end
|
||||
|
||||
disp(['DB EQ: BEST BER: ',sprintf('%.1E',min(ber_db)),' AVG BER: ',sprintf('%.1E',mean(ber_db)),' WORST:',sprintf('%.1E',max(ber_db)),'. Out of',num2str(numel(ber_db))]);
|
||||
|
||||
else
|
||||
|
||||
% disp('Disabled MLSE for DB in all cases, due to time in measurement loop')
|
||||
|
||||
end
|
||||
|
||||
elseif db_coding_approach
|
||||
|
||||
ffe = EQ("Ne",[50,7,7],"Nb",[0,0,0],"training_length",4096*2,"training_loops",5,"dd_loops",5,"K",2,"DCmu",0.0,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);
|
||||
|
||||
if 1
|
||||
|
||||
eq_values = min(numel(S),8);
|
||||
Noi = cell(eq_values,1);
|
||||
EQ_sig = cell(eq_values,1);
|
||||
EQ_sig_mlse = cell(eq_values,1);
|
||||
|
||||
parfor s = 1:eq_values
|
||||
[EQ_sig{s}, Noi{s}] = ffe.process(S{s},Symbols);
|
||||
EQ_sig_mlse{s} = MLSE("DIR",[1,1],"duobinary_output",1,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_sig{s});
|
||||
EQ_sig_mlse{s} = Duobinary().decode(EQ_sig_mlse{s});
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_sig_mlse{s});
|
||||
[~,num_errors,ber_db(s),pos_errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
disp(['DB EQ: BEST BER: ',sprintf('%.1E',min(ber_db)),' AVG BER: ',sprintf('%.1E',mean(ber_db)),' WORST:',sprintf('%.1E',max(ber_db)),'. Out of',num2str(numel(ber_db))]);
|
||||
|
||||
if 1
|
||||
[~,s]=min(ber_db);
|
||||
Noi{s}.spectrum('displayname',['Noise '],'fignum',50,'normalizeTo0dB',1);
|
||||
EQ_sig{s}.spectrum('displayname',['EQLZD '],'fignum',50,'normalizeTo0dB',1);
|
||||
Symbols.spectrum('displayname',['Symbols '],'fignum',50,'normalizeTo0dB',1);
|
||||
|
||||
nc = 5;
|
||||
burg_coeff = arburg(Noi{s}.signal,nc);
|
||||
[h,w] = freqz(1,burg_coeff,length(Noi{s}),"whole",Noi{s}.fs);
|
||||
h = h/max(abs(h));
|
||||
hold on
|
||||
w_ = (w - Noi{s}.fs/2);
|
||||
plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',['', num2str(nc), ' coefficients for burg alg.']);
|
||||
|
||||
end
|
||||
|
||||
if 1
|
||||
figure(51);
|
||||
clf
|
||||
title(sprintf('DB coded PAM after EQ ; BER: %1.2e',M, ber_db(s) ));
|
||||
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{s}.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
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
showCurrentMeasurement('Att.',interference_atten,'SIR',sir,'MIN BER', min(ber_db),'MEAN BER',mean(ber_db),'MAX BER',max(ber_db), 'Fsym',fsym.*1e-9, 'ROP', rop, 'Precomp MaxAmp',precomp_amp_max);
|
||||
|
||||
|
||||
%%%%% Store measurement into measurement "warehouse" %%%%%%
|
||||
wh.addValueToStorage({ber_ffe},'ber_ffe',M,bitrate,db,interference_atten);
|
||||
wh.addValueToStorage({ber_ffe_mlse},'ber_ffe_mlse',M,bitrate,db,interference_atten);
|
||||
wh.addValueToStorage({ber_vnle},'ber_vnle',M,bitrate,db,interference_atten);
|
||||
wh.addValueToStorage({ber_vnle_mlse},'ber_vnle_mlse',M,bitrate,db,interference_atten);
|
||||
wh.addValueToStorage({ber_db},'ber_db',M,bitrate,db,interference_atten);
|
||||
|
||||
wh.addValueToStorage(rop,'rop',M,bitrate,db,interference_atten);
|
||||
wh.addValueToStorage(pd_in,'pd_in',M,bitrate,db,interference_atten);
|
||||
wh.addValueToStorage(s_power,'s_power',M,bitrate,db,interference_atten);
|
||||
wh.addValueToStorage(i_power,'i_power',M,bitrate,db,interference_atten);
|
||||
wh.addValueToStorage(sir,'sir',M,bitrate,db,interference_atten);
|
||||
|
||||
wh.addValueToStorage(string([experiment_name,loop_name]),'filename',M,bitrate,db,interference_atten);
|
||||
|
||||
wh.addValueToStorage(M,'m',M,bitrate,db,interference_atten);
|
||||
|
||||
wh.addValueToStorage(dcs,'dcs',M,bitrate,db,interference_atten);
|
||||
|
||||
exfo = Exfo_laser("serialport_number",'COM8','mainframe_channel',1,'safety_mode',0);
|
||||
exfo.getLaserInfo;
|
||||
|
||||
wh.addValueToStorage(exfo,'exfo',M,bitrate,db,interference_atten);
|
||||
wh.addValueToStorage(voa,'voa',M,bitrate,db,interference_atten);
|
||||
|
||||
wh.addValueToStorage(ffe,'FFE',M,bitrate,db,interference_atten);
|
||||
wh.addValueToStorage(vnle,'VNLE',M,bitrate,db,interference_atten);
|
||||
|
||||
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
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
close(hWaitbar);
|
||||
|
||||
wh.save([folderpath,experiment_name,'_wh']);
|
||||
|
||||
disp('Measurement complete')
|
||||
97
projects/HighSpeedExperiment_2024/offline_dsp/mpi_dsp.m
Normal file
97
projects/HighSpeedExperiment_2024/offline_dsp/mpi_dsp.m
Normal file
@@ -0,0 +1,97 @@
|
||||
|
||||
% Set your folder path here
|
||||
folderPath = 'C:\Users\sioe\Documents\High_Speed_Measurement_2024\mpi_measurement\';
|
||||
|
||||
fileTimeStmp = 'testen20241028_163511';
|
||||
fileBody = [fileTimeStmp,'_PAM_4_R_336000000000_DB_1_I_atten_'];
|
||||
|
||||
fileBits = [folderPath,fileBody,'0_bits'];
|
||||
fileSymbols = [folderPath,fileBody,'0_symbols'];
|
||||
fileWareHouse = [folderPath,fileTimeStmp,'_wh'];
|
||||
|
||||
Bits = load(fileBits,"Bits");Bits = Bits.Bits;
|
||||
Symbols = load(fileSymbols);Symbols = Symbols.Symbols;
|
||||
wh = load(fileWareHouse);wh = wh.obj;
|
||||
M = wh.parameter.M.values(1);
|
||||
|
||||
cnt = 1;
|
||||
for i_atten = 24%flip([0:3:30,45])
|
||||
|
||||
fileRx = [folderPath,fileBody,num2str(i_atten),'_rx_signal'];
|
||||
S = load(fileRx);S = S.S;
|
||||
|
||||
Scpe_sig_raw = load([folderPath,fileBody,num2str(i_atten),'_raw_signal']);
|
||||
Scpe_sig_raw = Scpe_sig_raw.Scpe_sig_raw;
|
||||
|
||||
Scpe_sig_raw.spectrum("displayname",'Raw signal','fignum',80,'normalizeTo0dB',1);
|
||||
|
||||
eq_values = min(numel(S),8);
|
||||
Noi = cell(eq_values,1);
|
||||
EQ_vnle= cell(eq_values,1);
|
||||
EQ_ffe= cell(eq_values,1);
|
||||
|
||||
%ffe = EQ("Ne",[50,0,0],"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);
|
||||
vnle = EQ("Ne",[50,0,0],"Nb",[0,0,0],"training_length",4096*2,"training_loops",5,"dd_loops",5,"K",2,"DCmu",0.0,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",0,"ideal_dfe",1);
|
||||
|
||||
parfor s = 1:eq_values
|
||||
if 1
|
||||
%VNLE
|
||||
Scpe_sig_syncd = S{s};
|
||||
[EQ_vnle{s}] = vnle.process(Scpe_sig_syncd,Symbols);
|
||||
Noi{s} = EQ_vnle{s}-Symbols;
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_vnle{s});
|
||||
[~,~,ber_vnle(s),~] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
%VNLE + MLSE
|
||||
if 1
|
||||
Noi{s}.signal = Noi{s}.signal - mean(Noi{s}.signal);
|
||||
nc = 2;
|
||||
burg_coeff = arburg(Noi{s}.signal,nc);
|
||||
EQ_mlse = EQ_vnle{s}.filter(burg_coeff,1);
|
||||
|
||||
EQ_mlse = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_mlse);
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_mlse);
|
||||
[~,~,ber_vnle_mlse(s),~] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
end
|
||||
|
||||
if 1
|
||||
[~,s]=min(ber_vnle_mlse);
|
||||
nc = 2;
|
||||
burg_coeff = arburg(Noi{s}.signal,nc);
|
||||
Noi{s}.spectrum('displayname','Noise PSD','fignum',123);
|
||||
[h,w] = freqz(1,burg_coeff,length(Noi{s}),"whole",Noi{s}.fs);
|
||||
h = h/max(abs(h));
|
||||
hold on
|
||||
w_ = (w - Noi{s}.fs/2);
|
||||
plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',['', num2str(nc), ' coefficients for burg alg.']);
|
||||
end
|
||||
|
||||
disp(['VNLE EQ: BEST BER: ',sprintf('%.1E',min(ber_vnle)),' AVG BER: ',sprintf('%.1E',mean(ber_vnle)),' WORST:',sprintf('%.1E',max(ber_vnle)),'. Out of ',num2str(numel(ber_vnle))]);
|
||||
disp(['VNLE+MLSE EQ: BEST BER: ',sprintf('%.1E',min(ber_vnle_mlse)),' AVG BER: ',sprintf('%.1E',mean(ber_vnle_mlse)),' WORST:',sprintf('%.1E',max(ber_vnle_mlse)),'. Out of ',num2str(numel(ber_vnle_mlse))]);
|
||||
|
||||
vnle_result(cnt) = min(ber_vnle);
|
||||
mlse_result(cnt) = min(ber_vnle_mlse);
|
||||
cnt=cnt+1;
|
||||
end
|
||||
|
||||
|
||||
|
||||
i_atten = flip([0:3:30,45]);
|
||||
figure(90)
|
||||
plot(i_atten,mlse_result);
|
||||
% Continue with the rest of your plot settings
|
||||
title('MPI')
|
||||
yline(3.8e-3, 'DisplayName', 'HD-FEC', 'LineStyle', '--', 'HandleVisibility', 'off');
|
||||
xlabel('Bit Rate in GBps');
|
||||
ylabel('Attenuation of I Branch');
|
||||
set(gca, 'yscale', 'log');
|
||||
set(gca, 'Box', 'on');
|
||||
grid on;
|
||||
grid minor;
|
||||
legend('Interpreter', 'none');
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -1,6 +1,8 @@
|
||||
|
||||
|
||||
filename = "C:\Users\Silas\Nextcloud4\Dokumente\02_Ablage_Office\Lab_Data_24\bias_sweep\PAM4_10km_ffe__wh.mat";
|
||||
|
||||
filename = "C:\Users\sioe\Documents\High_Speed_Measurement_2024\bias_testing\PAM4_b2b_bias_sweep_20241023_130342_wh.mat";
|
||||
|
||||
a = load(filename);
|
||||
wh2 = a.obj;
|
||||
|
||||
@@ -9,13 +11,19 @@ m = wh2.getStoValue('m',wh2.parameter.vbias.values(1),wh2.parameter.awg_vpp.valu
|
||||
v_bias_vals = wh2.parameter.vbias.values;
|
||||
awg_vpp_vals = wh2.parameter.awg_vpp.values;
|
||||
|
||||
bers = [];
|
||||
ber_ffe= [];
|
||||
ber_mlse= [];
|
||||
rop_measured= [];
|
||||
pd_in_measured= [];
|
||||
|
||||
rop_measured = [];
|
||||
cnt = 0;
|
||||
for awg_vpp_cur = awg_vpp_vals
|
||||
cnt = cnt+1;
|
||||
bers(cnt,:) = wh2.getStoValue('ber',v_bias_vals,awg_vpp_cur);
|
||||
ber_ffe(cnt,:) = wh2.getStoValue('ber_ffe',v_bias_vals,awg_vpp_cur)';
|
||||
ber_mlse(cnt,:) = wh2.getStoValue('ber_mlse',v_bias_vals,awg_vpp_cur);
|
||||
rop_measured(cnt,:) = wh2.getStoValue('rop',v_bias_vals,awg_vpp_cur);
|
||||
pd_in_measured(cnt,:) = wh2.getStoValue('pd_in',v_bias_vals,awg_vpp_cur);
|
||||
end
|
||||
|
||||
[bestber,bestindex] = min(bers,[],'all');
|
||||
@@ -25,6 +33,23 @@ bestvbias=v_bias_vals(v_bias_pos);
|
||||
|
||||
disp(['Best Vpp: ',num2str(bestvbias),' V; Best Vpp AWG: ',num2str(bestawgvpp),' V' ])
|
||||
|
||||
|
||||
figure(100)
|
||||
hold on
|
||||
plot(v_bias_vals,ber_ffe,'DisplayName',['FFE only']);
|
||||
plot(v_bias_vals,ber_mlse,'DisplayName',['MLSE']);
|
||||
yline(3.8e-3, 'DisplayName', 'HD-FEC', 'LineStyle', '--', 'HandleVisibility', 'off');
|
||||
xlabel('V bias');
|
||||
ylabel('Bit Error Rate (BER)');
|
||||
title('Bit Error Rate vs. V bias');
|
||||
set(gca, 'yscale', 'log');
|
||||
set(gca, 'Box', 'on');
|
||||
grid on;
|
||||
grid minor;
|
||||
legend('Interpreter', 'none');
|
||||
|
||||
|
||||
|
||||
figure();
|
||||
sgtitle(['PAM ', num2str(m)])
|
||||
subplot1 = subplot(1,2,1);
|
||||
|
||||
BIN
projects/standard_system/400G_simulative_setup_meas.mat
Normal file
BIN
projects/standard_system/400G_simulative_setup_meas.mat
Normal file
Binary file not shown.
Reference in New Issue
Block a user