(* *) (* Numerical Mathematics and Computing, Fifth Edition *) (* Ward Cheney & David Kincaid *) (* Brooks/Cole Publ. Co. *) (* (c) 2004 *) (* No warranties implied or expressed. *) (* File: np_ls_fit *) (* nonpolynomial least-squares example *) data = {{0.24, 0.23}, {0.65, -0.26}, {0.95, -1.10}, {1.24, -0.45}, {1.73, 0.27}, {2.01, 0.10}, {2.23, -0.29}, {2.52, 0.24}, {2.77, 0.56}, {2.99, 1.00}} plotdata = ListPlot[data,PlotStyle->PointSize[0.02]] Fit[data, {Log[x], Cos[x], Exp[x]}, x] plotcurve = Plot[%, {x, 0.0, 3.0}] Show[plotdata, plotcurve]