Plot[D[0.65 tanh(Sqrt((t+560)/3946)) t,t],{t,0,10000}]