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 |