D[E^Sin[Sqrt[x]]/Log[ArcCos[x]/Cot[x]], {x}]