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