R-S coding, plot of BER vs SNR

% Reed-Solomon Errors

% with AWGN Channel

% Plot of BER vs SNR

clear all;
clc;
close all;

snr = 0:1:15;

n = 0.5; %over sampling rate
M = 4; % no. of symbols
k = log2(M); % no. of bits per symbol

Ebno = snr – 10*log10(k) + 10*log10(n);

% Theoritical performance without encoder
bit = berawgn(Ebno,‘psk’,M,‘diff’);

% msg length
K = 13;

% codeword length
N = (2^M)-1;

%Theoritical performance with RS encoder
berub = bercoding(Ebno,‘RS’,‘hard’,N,K);

% Plotting BER vs SNR
semilogy(snr,bit,‘r’);
hold on;
semilogy(snr,berub,‘g’);

grid on;
legend(‘No Encoder’,‘RS Encoder’);
xlabel(‘SNR’);
ylabel(‘BER’);
hold on;