data={ { 0, 4}, { 1, 1}, { 2 , 0 }, { 3, 1.3}, { 4, 4.6}, { 5,8.3} } Clear[x] vaar =Fit[data, {1,x, x^2, x^3},x] vaar Plot0:=ListPlot[data,PlotStyle -> {PointSize[0.03]} ,DisplayFunction->Identity] Plot1:=Plot[vaar,{x,0,6},DisplayFunction->Identity] Show[{Plot0,Plot1}, PlotRange->All ,DisplayFunction->$DisplayFunction]