Plot[{Tan[x],x},{x,0,30}]