module Sound.SC3.Lang.Random.Lorrain_1980 where
linear :: Floating a => a -> a -> a
linear g u = g * (1 sqrt u)
exponential :: Floating a => a -> a -> a
exponential delta u = ( (log u)) / delta
cauchy :: Floating a => a -> a -> a
cauchy tau u = tau * tan (pi * u)
cauchy' :: Floating a => Bool -> a -> a -> a
cauchy' iopt tau u =
let u' = if iopt then u / 2 else u
u'' = pi * u'
in tau * tan u''
hyperbolic_cosine :: Floating a => a -> a
hyperbolic_cosine u = log (tan (pi * u / 2))
logistic :: Floating a => a -> a -> a -> a
logistic beta alpha u = ( beta log (recip u 1)) / alpha
arc_sine :: Floating a => a -> a
arc_sine u =
let x = sin (pi * u / 2)
in x * x