Plot[E^(Tan[x])+Sec[x] - Log[Cot[x]]- Csc[x], {x, -10, 10}]