58 lines
1.5 KiB
Matlab
58 lines
1.5 KiB
Matlab
function [bits,errors,ber,errorIndice] = calc_ber(data_in,data_ref,options)
|
|
|
|
arguments(Input)
|
|
data_in;
|
|
data_ref;
|
|
options.skip_front = 0;
|
|
options.skip_end = 0;
|
|
options.returnErrorLocation = 0;
|
|
end
|
|
options.skip_end = abs(options.skip_end);
|
|
options.skip_front = abs(options.skip_front);
|
|
|
|
bits = 0;
|
|
errors= 0;
|
|
ber= 0;
|
|
errorIndice= [];
|
|
|
|
% trim sequence to given start; stop. trim reference if signal is shorter
|
|
[data_in,data_ref]=trimseq(data_in,data_ref,options.skip_front,options.skip_end);
|
|
|
|
if length(data_ref) == length(data_in)
|
|
|
|
bits = 0;
|
|
bits = bits+numel(data_in(:,options.skip_front+1:end));
|
|
|
|
try
|
|
if options.returnErrorLocation == 0
|
|
errors = sum( data_in ~= data_ref,"all" );
|
|
else
|
|
errorIndice = sum(data_in ~= data_ref,1);
|
|
errors = sum(errorIndice ,"all" );
|
|
[~,errorIndice] = find(errorIndice==1);
|
|
end
|
|
|
|
catch
|
|
warning('BER calculation not optimal: Arrays have incompatible sizes for this operation.')
|
|
errors = NaN;
|
|
end
|
|
|
|
% Determine BER
|
|
ber = sum(errors)/sum(bits);
|
|
|
|
else
|
|
errormsg('Sequence length does not match');
|
|
end
|
|
|
|
function [data_,reference_]=trimseq(data,reference,skipstart,skip_end)
|
|
|
|
data_ = logical(data(skipstart+1:end-skip_end,:))';
|
|
|
|
delta_bits = length(reference) - length(data);
|
|
|
|
skip_end = max(skip_end,delta_bits);
|
|
reference_ = logical(reference(skipstart+1:end-skip_end,:))';
|
|
|
|
end
|
|
|
|
end |