art.m

BER OF OFDM USING BPSK FOR 10 TAP RAYLEIGH FADING CHANNEL

% 1. Generate data
M = 4;
noofdatapoints = 64;
input = randsrc(1,noofdatapoints, 0:M-1);
figure(1)
stem(input);
grid on; 
xlabel('Data'); 
ylabel('Amplitude');
title('Input')
% 2. Modulation
messagetx = pskmod(input, M);
scatterplot(messagetx);
y = awgn(messagetx,10,'measured'); % Add white Gaussian noise.
plot(noofdatapoints,messagetx,noofdatapoints,y) % Plot both signals.
legend('qpsk signal','Signal with AWGN');
% 3. Serial to Parallel
parallelmoddata = reshape(y,8,8);
% 4. 64-point IFFT
ofdmmsg = ifft(parallelmoddata);
% 5. Parallel to serial
ofdmmsgtx = reshape(ofdmmsg, 1,64);
figure(3)
plot(real(ofdmmsgtx));
grid on;
title('Real part of OFDM signal')
figure(4)
plot(imag(ofdmmsgtx));
grid on;
%   ---------------------
%   B:  Receiver End
%   ---------------------

%   1. Serial to Parallel
ofdmmsgrx = reshape(ofdmmsgtx, 8,8);

%   2. 64-point FFT
msgrx = fft(ofdmmsgrx);

%   3. Parallel to serial
msgrxser = reshape(msgrx, 1, 64);

%   4. Demodulation
msgdemod = pskdemod(msgrxser, M);
figure(5)
stem(msgdemod); 
grid on;
title('Output')