RE: fit

["Wolf, Hartmut" <Hartmut.Wolf@XXXXXXX.com>]

>-----Original Message-----
>From: Heiko Bierwald [mailto:exziton@XXXXXXX.com]
>Sent: Thursday, March 13, 2003 10:09 AM
>To: dmug@XXXXXXX.ch
>Subject: fit
>
>
>
>
>
>
>
>
>hallo ,
>ich möchte durch eine liste von werten eine funktion 
>vorgegebener gestalt erstellen.
>mathemathica soll nur die koeffizienten bestimmen.
>hier ein beispiel :
>
>Needs["Statistics`NonlinearFit`"]
>ft = Table[N[1 + 2 Exp[-x/3] + 10 Random[]], {x, 100}];
>fn = a + b Exp[-x c]
>c = NonlinearFit[ft, fn, x, {a, b, c}]
>
>
>
>mathematica zeigt als ergebnis :5.83426+3.56798*exp[-x*0.18...]
>ist als ergebnis also unbrauchbar.
>ich bräuchte auch noch eine annäherung an eine gauskurve.
>
>ich habe mathemathica 4.1 (mit version 2.0 soll es angeblich noch 
>funktioniert haben )
>
>danke im vorraus,
>heiko
>

Heiko,

ich habe auch 4.1 und bei mir geht...

ft = Table[N[1 + 2 Exp[-x/3] + .5 Random[]], {x, 100}];
dataplot = 
  ListPlot[ft, PlotRange -> All, PlotStyle -> {PointSize[.015], Hue[.7]}]

Clear[a, b, c]
fn = a + b Exp[-x c]

fitted = NonlinearFit[ft, fn, x, {a, b, c}]
1.2524275432131258 + 2.126753991863166 E^(0.34308077916070356*x)

fitplot = Plot[fitted, {x, 1, 100}, PlotRange -> All]

Show[fitplot, dataplot]

...ganz gut. 
In deinem Fall scheint es mehr um 
die Regel GarbageIn -> GarbageOut zu gehen!

--
Gruß, Hartmut