Excluir asíntotas en Mathematica

Seguido es necesario graficar funciones con discontinuidades esenciales, y en Mathematica eso seguido significa ver las líneas verticales en los puntos de discontinuidad, por ejemplo, al introducir el comando

Plot[Tan[x],{x,-2Pi,2Pi}, PlotStyle -> Thick]

uno obtiene

Bueno, pues uno se deshace de estas líneas, o en general de cualquier punto, con la función Exclusions[ ] de la cual puedes leer detalles aquí o en la misma sección de ayuda de Mathematica. El uso del comando es bastante sencillo, por ejemplo, con la línea

Plot[Tan[x],{x,-2Pi,2Pi}, PlotStyle -> Thick, Exclusions -> {Cos[x] == 0}]

obtenemos ya el gráfico deseado excluyendo aquellos puntos en los que cos(x)=0, i.e. en los que la función no está definida

De manera análoga para funciones con saltos como Floor[ ] o HeavisideTheta[ ] en las que Mathematica no muestra las líneas verticales, puede escribirse, por ejemplo

Plot[Floor[x], {x, 0, 10}, PlotStyle -> Thick, Exclusions -> None]

para obtenerlas de vuelta. El comando puede ser de utilidad en diversas situaciones, yo en particular he notado su utilidad al visualizar las soluciones que llevan a los estados de energía permitidos para una función de onda cuántica unidimensional, sin las estorbosas asíntotas de unas funciones cotangente y tangente (por eso el nombre de la entrada, particularmente para excluir asíntotas), y la diferencia es sustancial, uno pasa de visualizar algo como esto

a algo como esto

pero bueno, en Mathematica las posibilidades parecen ser inagotables, por lo que muy probablemente te llegue a ser útil esta función en diversas situaciones.