Code for Deliverable 05
This commit is contained in:
Silas Oettinghaus
@@ -136,7 +136,7 @@ classdef FFE_DCremoval < handle
|
||||
%Update the dc estimation every n-th symbol. This is a
|
||||
%trivial implementation of parallel EQ´s where the
|
||||
%errors are not apparent in every step. See Silas OFC
|
||||
%2023 "MPI mitigation adaptive DC removal"
|
||||
%2023 "MPI mitigation adaptive DC removal
|
||||
if mod(symbol,length(e_dc_buffer)) == 0
|
||||
e_dc_buffer(1) = e_dc_est - obj.mu_dc * err(symbol);
|
||||
e_dc_buffer = circshift(e_dc_buffer,1);
|
||||
|
||||
@@ -129,7 +129,7 @@ classdef FFE_FFDCAVG < handle
|
||||
for epoch = 1 : epochs
|
||||
symbol = 0;
|
||||
|
||||
err_buffer = zeros(numel(obj.constellation),90);
|
||||
err_buffer = zeros(numel(obj.constellation),112);
|
||||
dc_err = zeros(numel(obj.constellation),1);
|
||||
dc_sto = NaN(numel(obj.constellation),N);
|
||||
|
||||
|
||||
269
Classes/04_DSP/MRDS_coding.m
Normal file
269
Classes/04_DSP/MRDS_coding.m
Normal file
@@ -0,0 +1,269 @@
|
||||
classdef MRDS_coding
|
||||
%MRDS implementation according to:
|
||||
|
||||
% Optical Multi-Path Interference Mitigation for PAM4-IMDD Systems Using Balanced Coding
|
||||
% Journal of Lightwave Technology; 2024
|
||||
|
||||
properties(Access=public)
|
||||
|
||||
blocklength
|
||||
delta
|
||||
end
|
||||
|
||||
methods (Access=public)
|
||||
function obj = MRDS_coding(options)
|
||||
%NAME Construct an instance of this class
|
||||
% Detailed explanation goes here
|
||||
|
||||
arguments
|
||||
options.blocklength = 8;
|
||||
end
|
||||
|
||||
%
|
||||
fn = fieldnames(options);
|
||||
for n = 1:numel(fn)
|
||||
try
|
||||
obj.(fn{n}) = options.(fn{n});
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
|
||||
end
|
||||
|
||||
function process(~)
|
||||
error("MRDS_coding has no process function. Use .encode(signal) and .dc_remove(signal) and .decode(signal)");
|
||||
end
|
||||
|
||||
function signalclass_out = encode(obj,signalclass_in)
|
||||
|
||||
data_in = signalclass_in.signal';
|
||||
|
||||
if mean(unique(data_in)) < 0.01 % --> check for bipolar
|
||||
data_in = int32(data_in.*sqrt(5));
|
||||
data_in = double(data_in);
|
||||
else % unipolar
|
||||
data_in = int32(data_in.*sqrt(5)*2-3); % make bipolar [-3, -1, 1, 3]
|
||||
data_in = double(data_in);
|
||||
end
|
||||
|
||||
data_out = obj.mrds_encoding(data_in, obj.blocklength);
|
||||
data_out = data_out./sqrt(5); % normalized to Power=1
|
||||
|
||||
signalclass_in.signal = data_out';
|
||||
|
||||
% append to logbook
|
||||
lbdesc = ['MRDS Coded'];
|
||||
signalclass_in = signalclass_in.logbookentry(lbdesc);
|
||||
|
||||
% write to output
|
||||
signalclass_out = signalclass_in;
|
||||
|
||||
end
|
||||
|
||||
function signalclass_out = decode(obj,signalclass_in)
|
||||
|
||||
data_in = signalclass_in.signal';
|
||||
|
||||
if mean(unique(data_in)) < 0.01 % --> check for bipolar
|
||||
data_in = int32(data_in.*sqrt(5));
|
||||
data_in = double(data_in);
|
||||
else % unipolar
|
||||
data_in = int32(data_in.*sqrt(5)*2-3); % make bipolar [-3, -1, 1, 3]
|
||||
data_in = double(data_in);
|
||||
end
|
||||
|
||||
data_oh = obj.oh_decider(data_in, obj.blocklength); % decider for overhead
|
||||
|
||||
data_out = obj.mrds_decoding(data_oh, obj.blocklength);
|
||||
data_out = data_out./sqrt(5); % normalized to Power=1
|
||||
|
||||
signalclass_in.signal = data_out';
|
||||
|
||||
% append to logbook
|
||||
lbdesc = ['MRDS Coded'];
|
||||
signalclass_in = signalclass_in.logbookentry(lbdesc);
|
||||
|
||||
% write to output
|
||||
signalclass_out = signalclass_in;
|
||||
|
||||
end
|
||||
|
||||
|
||||
function signalclass_out = dc_remove(obj,signalclass_in,options)
|
||||
|
||||
arguments
|
||||
obj
|
||||
signalclass_in
|
||||
options.oversampling_factor = 1;
|
||||
end
|
||||
|
||||
|
||||
signalclass_in.signal = obj.dcr(signalclass_in.signal, obj.blocklength, options.oversampling_factor);
|
||||
|
||||
% append to logbook
|
||||
lbdesc = ['MRDS DC Removed'];
|
||||
signalclass_in = signalclass_in.logbookentry(lbdesc);
|
||||
|
||||
% write to output
|
||||
signalclass_out = signalclass_in;
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
methods (Access=private)
|
||||
% Cant be seen from outside! So put all your functions here that can/
|
||||
% shall not be called from outside
|
||||
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% Function 1 - encoding
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
function [data_out] = mrds_encoding(~,data_in, blocklength)
|
||||
% data_in: bipolar PAM4 sequence with levels [-3, -1, 1, 3]
|
||||
% with length power of two
|
||||
% blocklength: power of two <= length of data_in
|
||||
|
||||
oh_length = log2(blocklength);
|
||||
data_out = zeros(1,length(data_in)+length(data_in)/blocklength*oh_length);
|
||||
l = 0;
|
||||
|
||||
for j = 1:blocklength:length(data_in)
|
||||
|
||||
data = data_in(j:j+blocklength-1);
|
||||
|
||||
z_N = zeros(1,blocklength); % RDS
|
||||
z_rds = 0;
|
||||
for i = 1:blocklength
|
||||
z_rds = z_rds + data(i);
|
||||
z_N(i) = z_rds;
|
||||
end
|
||||
|
||||
z = z_rds/2; % find inversion point k
|
||||
k = find(z_N == z);
|
||||
[~, index] = min(abs(blocklength/2 - k));
|
||||
k = k(index);
|
||||
if isempty(k) == 1
|
||||
k = blocklength;
|
||||
end
|
||||
|
||||
if k == blocklength
|
||||
overhead = ones(1,oh_length)*3;
|
||||
else
|
||||
overhead = (decimalToBinaryVector(k-1,log2(blocklength))-0.5)*6; % calculate OH
|
||||
data(k+1:end) = data(k+1:end)*(-1); % invert
|
||||
end
|
||||
|
||||
data_oh = [data overhead];
|
||||
data_out(l*(blocklength+oh_length)+1:(l+1)*(blocklength+oh_length)) = data_oh;
|
||||
l = l+1;
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% Function 2 - decoding
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
function [data_out] = mrds_decoding(~,data_in, blocklength)
|
||||
|
||||
oh_length = log2(blocklength);
|
||||
data_out = zeros(1,length(data_in)-length(data_in)/(blocklength+oh_length)*oh_length);
|
||||
l = 1;
|
||||
|
||||
for j = 1:(blocklength+oh_length):length(data_in)
|
||||
|
||||
data = data_in(j:j+blocklength+oh_length-1);
|
||||
|
||||
overhead = data(blocklength+1:end)/6+0.5;
|
||||
k = binaryVectorToDecimal(overhead)+1;
|
||||
|
||||
if k == blocklength
|
||||
data = data(1:blocklength);
|
||||
else
|
||||
data = data(1:blocklength);
|
||||
data(k+1:end) = data(k+1:end)*(-1); % invert
|
||||
end
|
||||
|
||||
data_out(l:l+blocklength-1) = data;
|
||||
l = l+blocklength;
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% Function 3 - decider for overhead values
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
function [data_out] = oh_decider(~,data_in, blocklength)
|
||||
|
||||
oh_length = log2(blocklength);
|
||||
threshold = 0;
|
||||
data_out = data_in;
|
||||
|
||||
for j = 1:length(data_in)/(blocklength+oh_length)
|
||||
for k = 1:oh_length
|
||||
if data_in(j*blocklength+(j-1)*oh_length+k) >= threshold
|
||||
data_out(j*blocklength+(j-1)*oh_length+k) = 3;
|
||||
else
|
||||
data_out(j*blocklength+(j-1)*oh_length+k) = -3;
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% Function 4 - matched DC removal (DCR)
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
function [data_out] = dcr(~,data_in, blocklength, oversampling_factor)
|
||||
|
||||
oh_length = log2(blocklength);
|
||||
|
||||
winlength = blocklength+oh_length;
|
||||
|
||||
if oversampling_factor > 1
|
||||
winlength = winlength*oversampling_factor;
|
||||
end
|
||||
|
||||
for j = 1:winlength:length(data_in)
|
||||
|
||||
try
|
||||
|
||||
data = data_in(j:j+winlength-1);
|
||||
|
||||
rmean = mean(data);
|
||||
|
||||
data_out(j:j+winlength-1) = data - rmean;
|
||||
|
||||
catch
|
||||
|
||||
if j+winlength > length(data_in)
|
||||
data = data_in(j:length(data_in));
|
||||
else
|
||||
error('indice problem.')
|
||||
end
|
||||
|
||||
rmean = mean(data);
|
||||
|
||||
data_out(j:length(data_in)) = data - rmean;
|
||||
|
||||
end
|
||||
|
||||
|
||||
|
||||
end
|
||||
|
||||
data_out = data_out';
|
||||
|
||||
end
|
||||
|
||||
|
||||
|
||||
end
|
||||
end
|
||||
@@ -3,6 +3,9 @@ classdef VNLE < handle
|
||||
% 1) Training mode (stable performance when you use NLMS)
|
||||
% 2) Decision directed mode
|
||||
|
||||
% Eq = VNLE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",[0.0004 0.0005 0.0006],"mu_tr",0,"order",[25,2,2],"sps",2,"decide",1);
|
||||
% Somehow it is not possible to use only 1 nonlinear order
|
||||
|
||||
properties
|
||||
sps % usually 2
|
||||
order
|
||||
|
||||
Reference in New Issue
Block a user