wolfram-mathematica - 有没有办法强制 ContourPlot 重新检查其递归算法每个阶段的所有点？

Question

感谢 this优秀解析Plot Yaroslav Bulatov 的算法，我现在明白为什么 Plot3D和 ContourPlot无法绘制具有中断和不连续性的平滑函数。

例如，在以下情况下，ContourPlot 根本无法绘制轮廓 x^2 + y^2 = 1:

ContourPlot[Abs[x^2 + y^2 - 1], {x, -1, 1}, {y, -1, 1}, Contours -> {0}]

这是因为该算法没有深入到 x^2 + y^2 = 1 附近的区域。它在初始阶段“丢弃”了这个区域，并没有尝试进一步研究它。增加 MaxRecursion在这个意义上什么都不做。甚至未记录的选项 Method -> {Refinement -> {ControlValue -> .01 \[Degree]}}没有帮助(但使 Plot3D 更平滑一点)。

上面的函数只是一个简单的例子。在现实生活中，我正在处理无法解析解决的非常复杂的隐式函数。

有没有办法获取 ContourPlot深入到靠近断裂点和不连续点的区域？

Answer 1

这些是标准的 Plots 。





以及 10^-20 处的轮廓



他们对我来说很清楚。

你期待更准确的东西吗？

编辑

如果您想使用 Contours->{0} 选项，您可以使用: