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