Plot[d/dt[1-Exp[-17240*t]*Cos[12500*t]],{t,-0.0001,0.0004}