Plot[x/60 - x^2/15000, {x, 0, 100}]