# Fitting a spline to data with FindFit?

I am trying to find a function that fits my almost linear data. A high order polynomial model has too much residual. So I was hoping to use Mathematica to fit splines to the curve.

This is what I would like to see in an example.

• FindFit with a spline function
• How to get model stats like what LinearModelFit provides.
• How to dump the spline terms and control points so I can implement in "C"

I can then use the cubic spline on my embedded platform.

So can I get a symbolic representation of this function so I can implement it?

You can get the sample data here

• can we have a sample of your data? is it only y-values or {x,y} pairs? Full data would be much better. And do you need the fit curve to pass exactly through all points or just reflect on general trend? Sep 11, 2012 at 23:14
• The function just needs to reflect a trend. I added a link to the data. It is just {x,y} pairs. Sep 11, 2012 at 23:29
• Are you sure they are {x,y} and not {y,x}? I mean: the integers are y values? Sep 12, 2012 at 0:21
• You might like to have a look at BSplineCurve: reference.wolfram.com/mathematica/ref/… Sep 12, 2012 at 18:32
• @witkamp yes, it's strange that these examples are on the BSplineCurve documentation page rather than the one for BSplineBasis. To get the goodness-of-fit statistics you can probably use BSplineBasis with LinearModelFit rather than constructing the design matrix manually as shown in the example. I'd have posted an answer except I wasn't sure if that was what you were looking for and haven't used splines for anything before, so I have no real familiarity with them. Please feel free to self-answer if you like. Sep 14, 2012 at 1:04

data={{......}};


Find the model:

model = Fit[data, x^# & /@ Range[0, 10], x]

20.2513 + 43.3389 x - 0.208411 x^2 + 0.193888 x^3 - 0.0341689 x^4 +
0.00281455 x^5 - 0.000131003 x^6 + 3.64629*10^-6 x^7 -
6.01724*10^-8 x^8 + 5.43205*10^-10 x^9 - 2.06702*10^-12 x^10


Verify it is more or less correct:

Show[ListPlot[data, PlotStyle -> Directive[PointSize[.02], Opacity[.02], Red]],
Plot[model, {x, -7, 55}, PlotStyle -> Thickness[.005]],
Frame -> True, Axes -> False, ImageSize -> 500] The blue line inside is your model. Red line is your data points blended together (too many of them) with applied opacity. I've chosen so many polynomial terms to take in account well little bent at the beginning. You can play with number of polynomial terms.

CForm[model]

20.251253486790134 + 43.33892854755122*x - 0.20841104603541305*Power(x,2) +
0.19388822209706186*Power(x,3) - 0.03416888859439315*Power(x,4) +
0.0028145533596680857*Power(x,5) - 0.0001310033312242676*Power(x,6) +
3.646291289683582e-6*Power(x,7) - 6.017238075935027e-8*Power(x,8) +
5.432049184033492e-10*Power(x,9) - 2.0670190082996488e-12*Power(x,10)

• Just in case this works much better for the left "tail" f[x_]:=24.9*x + 2.206*x*Sin@x + x^2*Sin@x + Tan[0.2407*x] - 5.611*x^2 Sep 12, 2012 at 0:11
• If you're expecting to be doing high-order polynomial fits, I would recommend using LinearModelFit[], taking one basis function at a time, and monitoring the value of "AdjustedRSquared" to guard against overfitting (or use the fancier methods, such as cross-validation). Sep 12, 2012 at 1:35
• @belisarius Ahh, what's the name of the program you used to get this expression? The one that fits models of different complexity to the data... Sep 12, 2012 at 8:50
• @Ajasja, Eureqa? Sep 12, 2012 at 10:43
• The residuals for the 12th order polynomial are too high. That is why I would like to fit a SPLINE to the curve. Also this needs to be implemented on an embedded platform with software FP. Sep 12, 2012 at 17:14