bpsk_fading.m

关于通信基本原理的仿真

%%%%% BPSK 仿真实例 %%%%%%%%%%%%
clear all;
EbN0dB=0:5:35;%设定信噪比
errLimit=50;
N=100;
for ii=1:length(EbN0dB)
errCount=0;
totalN=0;
sigma2(ii)=1/(2*(10^(EbN0dB(ii)/10)));
while errCount<errLimit
    source=rand(1,N)>0.5;
    trans=1-2*source;
    h=abs(sqrt(1/2)*(randn(1,N)+j*randn(1,N)));
    receiver=trans.*h+sqrt(sigma2(ii))*randn(1,N);
    demodata=receiver<0;
    temp=sum(abs(source-demodata));
    errCount=errCount+temp;
    totalN=totalN+N;
end
ber(ii)=errCount/totalN;
end
ber
semilogy(EbN0dB,ber,'-o');