Interpolating Polynomial

Manipulate[Plot[Evaluate[InterpolatingPolynomial[SortBy[pts,#[[1]]&]//.{left___,{x1_,y1_},{x1_,y2_},right___}->{left,{x1-(10^(-4)),y1},{x1,y2},right},x]],{x,0,1},PlotRange->{-1,1},Frame->True,FrameTicks->None,Filling->Axis,FillingStyle->LightBlue,ImageSize->450],{{pts,Table[{x, x Sin[9x]},{x,0,1,0.2}]},{0,-1},{1,1},Locator,LocatorAutoCreate->{1,∞}}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Interpolating Polynomial" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/InterpolatingPolynomial/

Contributed by: Stephen Wolfram

A full-function Wolfram Mathematica 6 system is required to edit this notebook.
GET WOLFRAM MATHEMATICA 6 »

© The Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »