New answers tagged

1

pts = {{-3, 0}, {-2, 4, 0}, {-1, 0}, {1, 2, 0}, {3, 0, 0}, {5, 1}, {6, 0}, {8, -2, 0}, {10, 0}}; poly = InterpolatingPolynomial[pts, x]; Plot[ poly, {x, -3, 10}, PlotRange -> All, Epilog -> {Red, PointSize[0.02], Point@pts[[All, ;; 2]]} ]


Top 50 recent answers are included