1# Copyright Oticon A/S 2018
2# SPDX-License-Identifier: Apache-2.0
3
4function [] = BER_test()
5%script to test the BER calculation of the C model (test_ber.c)
6
7  load ../src/test/BER.txt
8  SNR = BER(:,1);
9  BER = BER(:,2);
10
11  BER_2 = digital_ber(SNR);
12  figure(1); clf;
13  semilogy(SNR,BER,'r'); hold on;
14  semilogy(SNR,BER_2,'b'); grid on;
15  ylim([10^-8 1]);
16end
17