Definitions

Statistics package (to generate random noise)

<<Statistics`NormalDistribution`

Gaussian distributed random noise

r[s_:.1] := Random[NormalDistribution[0, s]]

Gaussian function

f[x_, μ_, σ_] := Exp[(-(x - μ)^2)/(σ^2)]


Created by Mathematica  (September 29, 2003)