dlognorm

DLOGNORM  The log-normal density function
 
          f = dlognorm(x,lambda,zeta)

0001 function f = dlognorm(x,lambda,zeta)
0002 %DLOGNORM  The log-normal density function
0003 %
0004 %          f = dlognorm(x,lambda,zeta)
0005 
0006 %       Copyright (c) Halfdan Grage, Anders Holtsberg
0007 
0008 if any(any(zeta<=0))
0009    error('Parameter zeta is wrong')
0010 end
0011 
0012 neg = find(x <= 0);
0013 [n1,n2] = size(neg);
0014 x(neg) = ones(n1,n2);
0015 f = dnorm(log(x),lambda,zeta)./x;
0016 f(neg) = zeros(n1,n2);