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