Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: algorithm to generate 1/f noise

  • To: mathgroup at smc.vnet.net
  • Subject: [mg22122] Re: algorithm to generate 1/f noise
  • From: Roland Franzius <Roland.Franzius at uos.de>
  • Date: Wed, 16 Feb 2000 02:34:38 -0500 (EST)
  • Organization: RRZN - Newsserver Test
  • References: <8889s2$c5o@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi David,

do you think of something like this?

SektralDensity[k_, dk_] :=   Log[1 + dk/k]

Plot[SpektralDensity[k, 0.1], {k, 100, 2000}]

aTrial = Table[Random[Real, {-p[k, 0.1], p[k, 0.1]}], {k, 100, 2000,
0.1}];

ListPlot[aTrial]


functionBase[t_] = Cos[Table[ 2 Pi k t, {k, 100, 2000, 0.1}]];


f[t_] := aTrial . functionBase[t];

ListPlot[Table[f[t], {t, 0, 1, 0.01}], PlotJoined -> True, PlotRange ->
All]



have fun (and noise) 
roland



"David E. Burmaster" schrieb:
> 
> Hi
> 
> Can anyone point me towards a good algorithm or package to generate 1/f
> noise in a time series using Mathematica??
> 
> Pointers to books and articles (using Mathematica) also appreciated!
> 
> many thanks, and
> best wishes
> Dave
> 
> ++++++++++++++++++++++++++++++
> David E. Burmaster, Ph.D.
> Alceon Corporation
> POBox 382669
> Harvard Square Station
> Cambridge, MA 02238-2669
> 
> Voice   617-864-4300
> Fax     617-864-9954
> 
> Web     http://www.Alceon.com
> Email   deb at Alceon.com
> 
> +++++++++++++++++++++++++++++++

--

Roland Franzius

  +++ exactly <<n>> lines of this message have value <<FALSE>> +++


  • Prev by Date: Re: algorithm to generate 1/f noise
  • Next by Date: getting radial data into a cartesian grid
  • Previous by thread: Re: algorithm to generate 1/f noise
  • Next by thread: Re: algorithm to generate 1/f noise