Last commit after 400G Lab Measurement
This commit is contained in:
Silas Labor Zizou
@@ -1,6 +1,6 @@
|
||||
|
||||
folderpath = 'C:\Users\sioe\Documents\High_Speed_Measurement_2024\mpi_measurement\';
|
||||
experiment_name = 'testen';
|
||||
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];
|
||||
@@ -16,10 +16,10 @@ pd_in_set = 8; %VOA 2 -> PD in
|
||||
random_key = 0;
|
||||
|
||||
params = struct;
|
||||
params.M = [8];
|
||||
params.bitrate = [336].*1e9;%[90:60:480].*1e9;%[300:30:480].*1e9;
|
||||
params.duobinary = [0];
|
||||
params.interference_atten = [45];
|
||||
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);
|
||||
|
||||
@@ -38,7 +38,7 @@ wh.addStorage("s_power");
|
||||
wh.addStorage("i_power");
|
||||
wh.addStorage("sir");
|
||||
|
||||
|
||||
wh.addStorage("filename");
|
||||
wh.addStorage("m");
|
||||
|
||||
wh.addStorage("dcs");
|
||||
@@ -66,37 +66,13 @@ estimatedTotalTime = 0;
|
||||
|
||||
for M = wh.parameter.M.values
|
||||
|
||||
|
||||
dcs = DC_supply("active",[1,0],"voltage",[2.3, 0]);
|
||||
|
||||
if M == 4
|
||||
|
||||
v_bias_for_pam = 2.3;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 1;
|
||||
|
||||
elseif M == 6
|
||||
%pause(7*60); %wait 30 minutes for stable bias
|
||||
v_bias_for_pam=2.3;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
pulsef = 0;
|
||||
|
||||
elseif M == 8
|
||||
|
||||
v_bias_for_pam=2.6;
|
||||
dcs.set("voltage",[v_bias_for_pam, 0]);
|
||||
disp('waiting...');
|
||||
%pause(5*60); %wait 5 minutes for stable bias
|
||||
pulsef = 0;
|
||||
|
||||
end
|
||||
|
||||
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;
|
||||
@@ -106,13 +82,50 @@ for M = wh.parameter.M.values
|
||||
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;
|
||||
@@ -121,13 +134,23 @@ for M = wh.parameter.M.values
|
||||
db_precode = db_coding_approach || db_channel_approach;
|
||||
if M == 4
|
||||
pulsef=1;
|
||||
precomp_amp_max = -38;
|
||||
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
|
||||
|
||||
@@ -161,24 +184,23 @@ for M = wh.parameter.M.values
|
||||
end
|
||||
|
||||
%%%%% Resample to DAC rate %%%%%%
|
||||
Digi_sig = Digi_sig.resample("fs_out",AWG.fdac);
|
||||
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;
|
||||
% 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",10000000,"removeDC",1);
|
||||
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
|
||||
% scopeAutoScale = 0; %until is set to 1 in next db change and then bitrate
|
||||
|
||||
%%%%% Loop Preps
|
||||
iterationStartTime = tic;
|
||||
@@ -204,35 +226,34 @@ for M = wh.parameter.M.values
|
||||
|
||||
%%%%% AWG --> Scope %%%%%%
|
||||
[~,Scpe_sig_raw,~,D] = A2S.process("signal2",Digi_sig,"waitUntilClick",0);
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
% 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);
|
||||
|
||||
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']);
|
||||
% 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");
|
||||
save([folderpath,experiment_name,loop_name,'_raw_signal'],"Scpe_sig_raw");
|
||||
|
||||
|
||||
%%%%% EQUALIZE %%%%%%
|
||||
% set to minus one not zero not avoid confusion if BER is acutally zero
|
||||
@@ -244,7 +265,6 @@ for M = wh.parameter.M.values
|
||||
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 %%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
@@ -256,29 +276,9 @@ for M = wh.parameter.M.values
|
||||
EQ_ffe= cell(eq_values,1);
|
||||
|
||||
parfor s = 1:eq_values
|
||||
|
||||
if 0
|
||||
%FFE LINEAR
|
||||
Scpe_sig_syncd = S{s};
|
||||
[EQ_ffe{s}] = ffe.process(Scpe_sig_syncd,Symbols);
|
||||
Noi{s} = EQ_ffe{s}-Symbols;
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_ffe{s});
|
||||
[~,~,ber_ffe(s),~] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
if 0
|
||||
%FFE + MLSE
|
||||
nc = 2;
|
||||
burg_coeff = arburg(Noi{s}.signal,nc);
|
||||
EQ_ffe{s} = EQ_ffe{s}.filter(burg_coeff,1);
|
||||
|
||||
EQ_mlse = MLSE("DIR",burg_coeff,"duobinary_output",0,"M",M,"trellis_states",PAMmapper(M,0).levels).process(EQ_ffe{s});
|
||||
Rx_bits = PAMmapper(M,0).demap(EQ_mlse);
|
||||
[~,~,ber_ffe_mlse(s),~] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
|
||||
end
|
||||
|
||||
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;
|
||||
@@ -288,6 +288,7 @@ for M = wh.parameter.M.values
|
||||
|
||||
%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);
|
||||
@@ -298,29 +299,50 @@ for M = wh.parameter.M.values
|
||||
end
|
||||
end
|
||||
|
||||
if 0
|
||||
nc=1;
|
||||
Noi{1}.spectrum('displayname',['Noise; SIR:',sprintf('%.2f',sir)],'fignum',40,'normalizeTo0dB',1);
|
||||
burg_coeff = arburg(Noi{1}.signal,nc);
|
||||
[h,w] = freqz(1,burg_coeff,length(Noi{1}),"whole",Noi{1}.fs);
|
||||
|
||||
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{1}.fs/2);
|
||||
plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',[num2str(nc), ' burg; SIR:',sprintf('%.2f',sir)]);
|
||||
drawnow;
|
||||
w_ = (w - Noi{s}.fs/2);
|
||||
plot(w_.*1e-9,20*log10(fftshift(h)),'DisplayName',['', num2str(nc), ' coefficients for burg alg.']);
|
||||
end
|
||||
|
||||
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))]);
|
||||
|
||||
|
||||
% 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.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
|
||||
|
||||
@@ -346,24 +368,88 @@ for M = wh.parameter.M.values
|
||||
|
||||
end
|
||||
|
||||
if 0
|
||||
Noi{1}.spectrum('displayname',['Noise; SIR:',sprintf('%.2f',sir)],'fignum',40,'normalizeTo0dB',1);
|
||||
|
||||
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{1}.spectrum('displayname',['EQ; SIR:',sprintf('%.2f',sir)],'fignum',40,'normalizeTo0dB',1);
|
||||
EQ_sig{1}.signal = EQ_sig{1}.signal-mean(EQ_sig{1}.signal);
|
||||
|
||||
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')
|
||||
% 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);
|
||||
@@ -378,6 +464,8 @@ for M = wh.parameter.M.values
|
||||
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);
|
||||
@@ -401,14 +489,11 @@ for M = wh.parameter.M.values
|
||||
loopcnt, looptotal, sum(iterationTimes(1:loopcnt))/60, averageTimePerIteration, estimatedTimeRemaining/60 ));
|
||||
|
||||
wh.save([folderpath,experiment_name,'_wh']);
|
||||
|
||||
showCurrentMeasurement('SIR', sir, 'I Att', interference_atten,'BER V', min(ber_vnle),'BER M',min(ber_vnle_mlse),'BER DB',min(ber_db),'Fsym',fsym.*1e-9, 'ROP', rop, 'PAM',M);
|
||||
|
||||
|
||||
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
close(hWaitbar);
|
||||
|
||||
Reference in New Issue
Block a user