特異曲線の検出と削除

単位円に沿ったの特異点は，プロットの際に自動的に削除される．

In[1]:=

Plot3D[1/(1 - x^2 - y^2), {x, y} \[Element] Disk[{0, 0}, 2], PlotTheme -> "Marketing", BoxRatios -> {1, 1, 1}, ClippingStyle -> None]

Out[1]=