Input := fPlot = Plot[{afit[t],bfit[t],cfit[t]},{t,0,200}]
Output = -Graphics-
Input := Show[alldataPlot,fPlot]
