----------------------------------------------------------------------------- -- | -- Module : Numeric.Random.Spectrum.Brown -- Copyright : (c) Matthew Donadio 2003 -- License : GPL -- -- Maintainer : m.p.donadio@ieee.org -- Stability : experimental -- Portability : portable -- -- Function for brown noise, which is integrated white noise -- ----------------------------------------------------------------------------- module Numeric.Random.Spectrum.Brown (brown) where brown :: [Double] -- ^ noise -> [Double] -- ^ brown noise brown :: [Double] -> [Double] brown = forall a. (a -> a -> a) -> [a] -> [a] scanl1 forall a. Num a => a -> a -> a (+)