Add new functions

Functions/Metrics/calc_ber.m

@@ -0,0 +1,52 @@
+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);
+
+assert((options.skip_end+options.skip_front)<length(data_in),"You can not skip more bits than overall length of data! Set skip_front or skip_end to lower value or check data_in");
+
+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 = numel(data_in(:,options.skip_front+1:end));
+
+    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~=0);
+        errorIndice = errorIndice+options.skip_front;
+    end
+
+    % Determine BER
+    ber = sum(errors)/sum(bits);
+
+else
+    error('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 = delta_bits + skip_end;
+
+        reference_ = logical(reference(skipstart+1:end-skip_end,:))';
+
+    end
+
+end