fit again ;-))

["Heiko Bierwald" <exziton@XXXXXXX.com>]

hallo,
kann man dieses problem irgendwie beheben ?

Needs["Statistics`NonlinearFit`"]
data = Table[ {x, 20 Sin[3 x] + 10 Exp[0.2 x] + 10 Random[]}, {x, 0, 
2Pi,0.01 Pi}];
fn = a Sin[ b x] + c;
lsg = NonlinearFit[data, fn, x, {a, b, c }]
Show[ ListPlot[data], Plot[lsg, {x, 0, 2 Pi}]] ;

und kann man daten aus dem programm "origin" nach mathematica importieren 
???

gruss,
heiko



_________________________________________________________________
MSN Hotmail  -  Absolut kostenfrei! Der weltweit größte E-Mail-Anbieter im 
Netz:  http://www.msn.de/hotmail