normal.m

To calculation the BER of BPSK over AWGN ang Rayleigh Fading channel.

function [n1,n2]=Normal(m,sgma)
if nargin==0
    m=0;
    sgma=1;
elseif nargin==1
    sgma=m;  
    m=0;
end
u=rand;                         % uniform random variable in (0,1)
z=sgma*(sqrt(2*log(1/(1-u))));   % rayleigh distributed random variable
u=rand;                          % another uniform distributed variable in (0,1)
n1=m+z*cos(2*pi*u);            
n2=m+z*sin(2*pi*u);