Détectez et supprimez des points singulières
Le pôle de à
est automatiquement identifié et supprimé t est lors du traçage.
In[1]:=

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

De même pour les pôles de Tan[x].
In[2]:=

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

Affichez les asymptotes correspondants aux pôles.
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]=
