Обнаружение и удаление особых кривых
Особенность для единичной окружности автоматически удалена в процессе её чертежа.
In[1]:=
![Click for copyable input](assets.ru/detect-and-remove-singular-curves/In_62.png)
Plot3D[1/(1 - x^2 - y^2), {x, y} \[Element] Disk[{0, 0}, 2],
PlotTheme -> "Marketing", BoxRatios -> {1, 1, 1},
ClippingStyle -> None]
Out[1]=
![](assets.ru/detect-and-remove-singular-curves/O_48.png)