Обнаружение и удаление особых кривых
Особенность 
для единичной окружности автоматически удалена в процессе её чертежа.
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]=
