Plot[D[0.565 tanh(Sqrt((t+144)/7200)) t,t],{t,0,10000}]