awgn_and_rayleighfading_ber_analysis.m

代码为QPSK半分析方法计算误码率

%plot the theoretic BER of bpsk transmission scheme under AWGN
clear all;
clc;
ebn01=0:1:8;
temp=10.^(ebn01/10);
ber_qpsk_awgn=0.5.*erfc(sqrt(temp));
ebn02=0:1:15;
temp=10.^(ebn02/10);
ber_qpsk_fading=0.5.*(1-1./(sqrt(1+1./temp)));
figure(1)
semilogy(ebn01,ber_qpsk_awgn,'r-',ebn02,ber_qpsk_fading,'r.-');
xlabel('Eb/N0(dB)');
ylabel('BER');
title('qpsk-performance of BER');
grid on;
hold on;
%******************************************
for index=1:length(ebn01)
    [pb,ps]=QPSK_awgn( ebn01(index) );
    ber1(index)=pb;
    ser1(index)=ps;
end
semilogy(ebn01,ber1,'bo');
hold on;
%******************************************
for index=1:length(ebn02)
    [pb,ps]=QPSK_fading( ebn02(index) );
    ber2(index)=pb;
    ser2(index)=ps;
end
semilogy(ebn02,ber2,'bs');
hold off;
%******************************************