SetDirectory["C:/cowan/teach/ph215"]

data  =  ReadList["input.txt",  {Number, Number}]

dp  =  ListPlot[data]

myfit  =  Fit[data,  {1,  x,  x^2},  x]

fp  =  Plot[myfit,  {x,  0,  6}]

Show[fp,  dp]