Re: Moving average / smoothing data
- To: mathgroup at smc.vnet.net
- Subject: [mg64074] Re: Moving average / smoothing data
- From: "Borut Levart" <BoLe79 at gmail.com>
- Date: Tue, 31 Jan 2006 01:14:20 -0500 (EST)
- References: <drk45d$stj$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Would fit do any good?
pt = {#, 1.5*Sin[#] + Random[Real, {-.5, .5}]} & /@ Range[0, 20, .1];
ft = FindFit[pt, a Sin[b x + c], {a, b, c}, x];
DisplayTogether[{
Plot[a Sin[b x + c] /. ft, {x, 0, 20}],
ListPlot[pt]}]
Bye
Borut Levart