Plot[{x-Tan[x]}/Tan[x], {x,0,Pi/8}]