KP1 - TK

SN = 10; % С/Ш = 16 дБ
n = 7;
k = 4;
Rb = 16; % Скорость по условия


% Ошибка на бит
pe = (1 - 0.999994)/2;

% Вероятность безошибочной передачи
Ppr = (1 - pe)^7;

% Вероятность ошибки декодирования
Posh = 7*pe^3*(1 - pe)^4 + 7*pe^4*(1 - pe)^3 + pe^7;

% Эффективная скорость
Reff = k/n * Ppr * Rb;

disp('Вероятность ошибки на бит');
disp(vpa(pe, 6));

disp('Вероятность безошибочной передачи');
disp(vpa(Ppr, 6));

disp('Вероятность необнаруженной ошибки');
disp(vpa(Posh, 16));

disp('Эффективная скорость (кбит/с)');
disp(vpa(Reff, 6));