bpskawgn.m

bpsk in Rayleigh fading

%====BER tren kenh AWRN dieu che BPSK==== ===
% save voi ten fle "BPSKAWGN.m"
%BPSK tren kenh truyen vo tuyen AWGN
%======== =========================
clear all;
x = round(rand(1,60000)); %Tao chuoi bit ngau nhie
%dieu che BPSK
for i = 1: 1: length(x)
    if x(i) == 0 
         S(i) = exp(j*0*pi); 
     elseif x(i) == 1
         S(i) = exp(j*pi);
     end
end

SNR_db = 0:1:8;     %ty so tin hieu tren nhieu
for i = 1:length(SNR_db)
    c(i) = chaBPSK(SNR_db(i),S,x); %so bit loi tuong ung voi cac gia tri SNR_db
end

BEP = c/length(x); %ty le loi bit
semilogy(SNR_db,BEP,'--')
%axis([0 8 10^(-4) 10^(-1)]);
%grid on
title('BER tren kenh AWRN dieu che BPSK','FontName','Times New Roman','FontSize',13,'color','B')
xlabel('Eb/No(dB)--->','FontName','Times New Roman','FontSize',11,'color','B');
ylabel('BER','FontName','Times New Roman','FontSize',11,'color','B');
legend('BER')%chu thich dung ve
save BPSKAWGN_Res c BEP %se su dung o bai MPSKAWGN