aalognormalpdf.m

Source Code for Adaptive Filtering Primer

function[y]=aalognormalpdf(m,s,N)
%function[yln]=aalognormalpdf(m,s,N)
%m=mean value;s=standard deviation;N=number of samples;
for i=1:N
    r1=rand;
    r2=rand;
    z(i)=sqrt(-2*log(r1))*cos(2*pi*r2);
end;
x=m+s*z;
y=exp(x);