Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: NonlinearFit works not so good

  • To: mathgroup at
  • Subject: [mg49612] Re: [mg49566] NonlinearFit works not so good
  • From: DrBob <drbob at>
  • Date: Sat, 24 Jul 2004 03:48:23 -0400 (EDT)
  • References: <>
  • Reply-to: drbob at
  • Sender: owner-wri-mathgroup at

The second line of code should be

data = Cases[Graphics[%], Line[x___] :> x, Infinity];


On Fri, 23 Jul 2004 06:00:40 -0400 (EDT), Daohua Song <ds2081 at> wrote:

> Dear group,
>       I find the NonlinearFit give an answer far away from the truth; Here
> is an example:
>      Plot[100 Sin[3 x+1]+2,{x,0,5}];
> data=Cases[Graphics[%],Line[x___]?x,Infinity];
> <<Statistics`NonlinearFit`
> NonlinearFit[data//First,A Sin[B x+C]+D,{x},{A,B,C,D}];
> Plot[%,{x,0,5}]
> ListPlot[data//First]
>      If i chop the +2 from above, it works fine. but The whole thing gives
> bad fit again if you change {x,0,5}->{x,0,10}
>      So NonlinearFit also is not stable!
>      I hope it should be improved
> Daohua

DrBob at

  • Prev by Date: Functions of Functions
  • Next by Date: AW: Fundamental theorem problem
  • Previous by thread: NonlinearFit works not so good
  • Next by thread: Re: NonlinearFit works not so good