function bit_stats_noise(a, y, C, n_max)
%  Schätzung der Datenbits aus den verrauschten Abtastwerten: a_en =
%  wenn(y_i>C,1,0)
y_get(1,8) = 0;
y_i(1,8) = 0;
for i = 1:8
    y_i(i) = y(i*200+1);
    if y(i*200+1) > C
        y_get(i) = 1;
    else y_get(i) = 0;
    end
end

%  Zum Vergleich sind hier die gesendeten Datenbits a[i], die verrauschten
%  Abtastwerte y[i] am Ausgang des Empfängers sowie die geschätzten
%  Datenbits a[en,i] angegeben --> auf Command Window
disp('n_max:')
disp(n_max)
disp('die gesendeten Datenbits a[i]:')
disp(a)
disp('die verrauschten Abtastwerte y[i]:')
disp(y_i)
disp('die geschätzten Datenbits a_en[i]:')
disp(y_get)

%  Anzahl der fehlerhaften Datenbits
%  Experimentieren Sie mit verschiedenen Rausch-Stärken(Parameter n_max)
%  und untersuchen Sie die Abtastwerte y[i].
%  Beachten Sie die Anzahl der fehlerhaften Datenbits.
error2 = 0;
for i = 1:8
    error2 = error2 + abs(y_get(i) - a(i));
end
disp('Anzahl der fehlerhaften Datenbits (mit Rauschen):')
disp(error2)
end