parano1dddd.m

BER of BPSK Modulation In AWGN Channel

function Pb=PaRano1dddd(SNRinDB)
%This Function result in Bit Error Rate
N=2000;     %Number of symbols
SNR=10^(SNRinDB/10);
Eb=SNR;
sgma=1;
S0=Eb;S1=-Eb;
biterrors=0;
for i=1:N,
    temp=rand;
    if(temp<0.5),
        source(i)=0;
    else
        source(i)=1;
    end;
end;
for i=1:N
        n=normrnd(0,sgma);
        if (source(i)==0),
            r=S0+n;
        else
            r=S1+n;
        end;
        C0=dot(r,S0); 
        C1=dot(r,S1);
        Cmax=max(C0,C1);
        if (Cmax==C0),
            judgement=0;
        else
            judgement=1;
        end;
        if (judgement~=source(i)),
            biterrors=biterrors+1;
        end;
    end;
     Pb=biterrors/N;