rabota1try1

close all
clear all
clc
N = 10^6; % число символов для оценки ПУ
ip = rand(1,N)>0.5; % формирование битового потока
s = 2*ip-1; % отображение битов в символы ФМ-2

% формирование АБГШ
n = 1/sqrt(2)*[randn(1,N) + j*randn(1,N)];
Eb_N0_dB = [0:10]; % диапазон значений ОСШ

for ii = 1:length(Eb_N0_dB) % цикл по ОСШ
% добавление АБГШ
y = s + 10^(-Eb_N0_dB(ii)/20)*n;
% приемник с жесткими решениями
ipHat = real(y)>0;
% подсчет числа ошибок
nErr(ii) = size(find([ip- ipHat]),2);
end

simBer = nErr/N; % BER (модель)
theoryBer = 0.5*erfc(sqrt(10.^(Eb_N0_dB/10))); % BER (теория)
% Построение графиков
close all; figure;
semilogy(Eb_N0_dB,theoryBer,'b.-','linewidth',2); hold on;
semilogy(Eb_N0_dB,simBer,'mx--','linewidth',2);
axis([0 10 10^-5 0.5]); grid on;

xlabel('Eb/No, дБ'); ylabel('BER (вероятность ошибки)');
title('Помехоустойчивость сигналов ФМ-2 в канале с АБГШ');

%%% ФМ-2И
N = 10^6; % число символов для оценки ПУ
ip = rand(1,N)>0.5; % формирование битового потока
s = (2*ip-1)*j; % отображение битов в символы ФМ-2

% формирование АБГШ
n = 1/sqrt(2)*[randn(1,N) + j*randn(1,N)];
Eb_N0_dB = [0:10]; % диапазон значений ОСШ

for ii = 1:length(Eb_N0_dB) % цикл по ОСШ
% добавление АБГШ
y = s + (10^(-Eb_N0_dB(ii)/20)*n)*j;
% приемник с жесткими решениями
ipHat = imag(y)>0;
% подсчет числа ошибок
nErr(ii) = size(find([ip- ipHat]),2);
end

simBer = nErr/N; % BER (модель)

semilogy(Eb_N0_dB,simBer,'r--','linewidth',2);


%%% АМ-2
N = 10^6; % число символов для оценки ПУ
ip = rand(1,N)>0.5; % формирование битового потока
f = ip+1;
s = f-1; % отображение битов в символы ФМ-2

% формирование АБГШ
n = 1/sqrt(2)*[randn(1,N) + j*randn(1,N)];
Eb_N0_dB = [0:10]; % диапазон значений ОСШ

for ii = 1:length(Eb_N0_dB) % цикл по ОСШ
% добавление АБГШ
y = s + 10^(-Eb_N0_dB(ii)/20)*n;
% приемник с жесткими решениями
ipHat = real(y)>0.5;
% подсчет числа ошибок
nErr(ii) = size(find([ip- ipHat]),2);
end

simBer = nErr/N; % BER (модель)

semilogy(Eb_N0_dB,simBer,'g--','linewidth',2);
legend('Теория', 'ФМ-2','ФМ-2И','АМ-2');