dieuchebpskawgn.m

bpsk in Rayleigh fading

%==========Chom sao tin hieu thu BPSK tren kenh AWGN======
%dieu che BPSk voi nhieu AWGN
%================================================
function dieucheBPSKAWGN
clear;
load exBPSKp1_Res; %lay ket qua tu bai dieucheQPSK
Es = var(S); % nang luong ky hieu
Eb = Es/1; %nang luong m?t bit BPSK mot bit nen chia 1
SNR_db = 10; % gia su ty so tin hieu tren nhieu la 6 db
N_0 = Eb/10^(SNR_db/10); % doi SNR db sang gia tri
N = sqrt(N_0/2)*(randn(size(S))+j*randn(size(S))); % mo phong nhieu 
R = S + N;  %tin hieu truyen qua kenh bi tac dong boi nhieu cong
plot(R,'.');
hold on;
t = 0:0.01:2*pi;
plot(exp(j*t),'r--');
legend('Tin hieu thu BPSK');
axis([-2 2 -2 2])
xlabel('\phi(t)','FontSize',15,'color','B');
ylabel('S_m','FontSize',15,'color','B');
title('Chom sao tin hieu thu BPSK tren kenh AWGN','FontName','Times New Roman','FontSize',14,'color','B')
hold off;