plot(tan(x),(x,-2*pi,2*pi),ymin=-10,ymax=10,detect_poles="show")