lab2

clear all;
close all
clc

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

%% ФМ-8
N = 10^6; % число символов для оценки ПУ
ip = rand(1,N)>0.5; % формирование битового потока
ip1 = rand(1,N)>0.5;
ip2 = rand(1,N)>0.5;
ip3 = rand(1,N)>0.5;
s1 = (2*ip-1)*sqrt(3)/2-(sqrt(3)-1)/2*ip+(2*ip1-1)*j*sqrt(3)/2-(sqrt(3)-1)/2*ip1*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 = s1 + 10^(-Eb_N0_dB(ii)/20)*n;
% приемник с жесткими решениями
ipHat = real(y)>0;
% подсчет числа ошибок
nErr(ii) = size(find([ip- ipHat]),2);
end

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

% Построение графиков
close all; figure;
semilogy(Eb_N0_dB,theoryBer,'b.-','linewidth',2); hold on;
semilogy(Eb_N0_dB,simBer,'mx--','linewidth',2);
semilogy(Eb_N0_dB,simBer8,'r--','linewidth',2);
axis([0 10 10^-5 0.5]); grid on;
legend('Теория', 'ФМ-4','ФМ-8');
xlabel('Eb/No, дБ'); ylabel('BER (вероятность ошибки)');
title('Помехоустойчивость сигналов ФМ-4');