*
* %UniformParms(mean,sd)
* returns a 2-vector with the two parameters (lower and upper bounds)
* for a uniform distribution with the given mean and standard deviation.
*
* Revision Schedule:
*  07/2009 Written by Tom Doan, Estima.
*
function %UniformParms mean sd
type vect[real] %UniformParms
type real mean
type real sd
*
local real temp
compute temp=sqrt(3)*sd
compute %UniformParms=||mean-temp,mean+temp||
end

