Wolfram mathematica Mathematica中RegionPlot中角点渲染的改进

我正在使用

RegionPlot

来显示两个变量中的线性不等式系统，以帮助我找到它们都可以满足的参数值，或者如果不存在任何参数值，让它们感觉到为什么。但当我绘制它们时，

RegionPlot

实际上是在偷工减料。如何获得由线性不等式限定的更精确的区域图？

下面是一个简单的示例（实际代码要复杂得多）：

RegionPlot[{y>0&&x>0&&x-y>0，
y<.1&&x<.1&&x-y<.1}，{x，-10,10}，{y，-10,10}]

输出绘图

在本例中，Mathematica切断了第一个象限区域的左下角四分之一，这使其看起来好像两个区域不相交。但他们确实如此

我考虑过但拒绝的事情：

使用FindInstance查找区域的交点。到目前为止，

FindInstance

未能找到任何交点，但我不确定这是否是由于参数值的特定选择。更重要的是，如果没有交叉点，我希望通过使用参数（通过

操纵

）了解哪些条件可能相互矛盾

更改图形的比例。在我的实际代码中，有几个这样的相交区域，我希望在一个图上看到它们。因此，我真的希望在给定绘图比例的情况下改进角点渲染

---

问题在于，RegionPlot对一些初始点进行采样，然后对有变化的区域进行细化，以通过对未变化的区域进行采样，在不影响性能的情况下改进绘图。在这种情况下，我认为它缺少核心细节

RegionPlot[{y > 0 && x > 0 && x - y > 0, 
  y < .1 && x < .1 && x - y < .1}, {x, -10, 10}, {y, -10, 10}, 
 PlotPoints -> 100]

RegionPlot[{y > 0 && x > 0 && x - y > 0, 
  y < .1 && x < .1 && x - y < .1}, {x, -10, 10}, {y, -10, 10}, 
 MaxRecursion-> 6]

尝试增加MaxRecursion选项或使用PlotPoints的初始点数，例如，这两个示例将提供良好的结果，但性能将受到影响。我认为哪一个更好将取决于实际情况

RegionPlot[{y > 0 && x > 0 && x - y > 0, 
  y < .1 && x < .1 && x - y < .1}, {x, -10, 10}, {y, -10, 10}, 
 PlotPoints -> 100]

RegionPlot[{y > 0 && x > 0 && x - y > 0, 
  y < .1 && x < .1 && x - y < .1}, {x, -10, 10}, {y, -10, 10}, 
 MaxRecursion-> 6]

RegionPlot[{y>0&&x>0&&x-y>0，
y<.1&&x<.1&&x-y<.1}，{x，-10,10}，{y，-10,10}，
绘图点->100]
区域图[{y>0&&x>0&&x-y>0，
y<.1&&x<.1&&x-y<.1}，{x，-10,10}，{y，-10,10}，
最大递归->6]