*
* %LogNormalParms(mean,sd)
* returns a 2-vector with the parameters for the underlying Normal to
* achieve the given mean and standard deviation for a log normal.
*
* Revision Schedule:
*  04/2010 Written by Tom Doan, Estima.
*
function %LogNormalParms mean sd
type vect[real] %LogNormalParms
type real mean
type real sd
*
local real omega
compute omega=((sd/mean)^2+1)
compute %LogNormalParms=||log(mean)-.5*log(omega),sqrt(log(omega))||
end

