Re: damped oscilations data fit
- To: mathgroup at smc.vnet.net
- Subject: [mg70528] Re: damped oscilations data fit
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Thu, 19 Oct 2006 03:21:34 -0400 (EDT)
- Organization: Uni Leipzig
- References: <eh4ntl$7sb$1@smc.vnet.net>
Hi,
model = Exp[-l*t]*Sin[w*t + phi] + c;
ff = FindFit[N[data], model, {{l, 1/1000}, {w,
1/400}, {phi, 0}, {c, 60}}, t]
Plot[Evaluate[model /. ff], {t, 0, 1014},
PlotRange -> All,
Epilog -> {Point /@ data}]
Regards
Jens
"Miroslav Hý?a" <mirek.hyza at gmail.com> schrieb im
Newsbeitrag news:eh4ntl$7sb$1 at smc.vnet.net...
| hello,
| I have one question about data manipulation in
mathematica.
| I've got set of experimental data. Data describe
damped oscillation. My question is following:
|
| How can I fit these data?
| I would like to get formula of function which
will approximately describe my data and plot this
function.
|
| my data list:
| {{0, 54}, {120, 56.5}, {230, 56}, {305, 54},
{340, 53}, {360, 52.7}, {378, 52.5}, {405, 52.5},
{443, 53}, {480, 53.5}, {510, 54}, {540, 54.7},
{570, 54.4}, {602, 56}, {643,56.5}, {660, 56.5},
{685, 56.25}, {706, 56}, {727, 55.25}, {743,
55.5}, {756, 55.25}, {775, 55}, {787, 54.75},
{799, 54.5}, {814, 54.25}, {828, 54}, {845,
53.75}, {858, 53.5}, {877, 53.25}, {894, 53},
{923, 52}, {951, 53}, {983, 53.5}, {1014, 54}}
|
| Have anyone an idea?
| I'm mathematica beginner therefore I'll be
grateful for any suggestion.
| Thanks
| <<mira
|