Input := fitPlot = Plot[u[t],{t,0,200}, AxesLabel->{"Mass of Rock", "% saying mass > 100 g"}]
Output = -Graphics-
And plot this best fitting function
And plot this best fitting function
