Plot[D[0.565 tanh(Sqrt((t+560)/2184)) t,t],{t,0,6000}]