检测和移除奇点
绘图时自动识别并移除 在
处的极点.
In[1]:=
![Click for copyable input](assets.zh/detect-and-remove-singular-points/In_58.png)
Plot[1/x, {x, -3, 3}, ImageSize -> 400, PlotTheme -> "Frame"]
Out[1]=
![](assets.zh/detect-and-remove-singular-points/O_43.png)
Tan[x] 的极点也一样.
In[2]:=
![Click for copyable input](assets.zh/detect-and-remove-singular-points/In_59.png)
Plot[Tan[x], {x, 0, 4 Pi}, ImageSize -> 400, PlotTheme -> "Frame"]
Out[2]=
![](assets.zh/detect-and-remove-singular-points/O_44.png)
显示与极点对应的渐近线.
In[3]:=
![Click for copyable input](assets.zh/detect-and-remove-singular-points/In_60.png)
{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]=
![](assets.zh/detect-and-remove-singular-points/O_45.png)