simulation.m

BER of BPSK Modulation In AWGN Channel

clear
echo on
SNRinDB1=0:0.4:8;
SNRinDB2=0:0.05:8;
for i=1:length(SNRinDB1);
    Pb=PaRano1dddd(SNRinDB1(i));  
    SMLT_Bit_Error_Rate(i)=Pb;
end;
for i=1:length(SNRinDB2);
    SNR=exp(SNRinDB2(i)*log(10)/10);
    Theo_err_bit_rate(i)=0.5*erfc(sqrt(SNR));
end;
semilogy(SNRinDB1,SMLT_Bit_Error_Rate,'*');
hold on;
semilogy(SNRinDB2,Theo_err_bit_rate,'r');
xlabel('Eb/No');ylabel('BER');
legend('Bit Error Rate of Simulation','Theory Error Rate');
echo off