Detecte y elimine puntos singulares

El polo de en es identificado y eliminado automáticamente cuando es graficado.

In[1]:=

Plot[1/x, {x, -3, 3}, ImageSize -> 400, PlotTheme -> "Frame"]

Out[1]=

De la misma forma los polos de Tan[x].

In[2]:=

Plot[Tan[x], {x, 0, 4 Pi}, ImageSize -> 400, PlotTheme -> "Frame"]

Out[2]=

Muestre las asíntonas correspondientes a los polos.

In[3]:=

{Plot[1/x, {x, -3, 3}, PlotTheme -> "Frame", ImageSize -> 250, ExclusionsStyle -> Directive[Gray, Dotted]], Plot[Tan[x], {x, 0, 4 Pi}, PlotTheme -> "Frame", ImageSize -> 250, ExclusionsStyle -> Directive[Gray, Dotted]]}

Out[3]=