wolfram-mathematica - 在 Mathematica 中查找两个 ListPlot 的交点

Question

我有两组离散数据，我用 Mathematica 中的 ListPlot 将它们绘制为两种不同的颜色（红色和蓝色）。我想找到这两者之间的交点（相应连续曲线的），即如图所示的点 A 和 B。

我尝试了“FindCluster”方法并跳来获取数据形成行的子集，但这效果不佳。

现在我总是使用“GetCoordinate”属性直接从图表中获取数字。如果有一种方法可以自动且更准确地进行操作，那就太好了。

Answer 1

我不确定这在您的情况下是否方便，但我有时让 Mathematica 插入点列表，然后求解交点：

   findGuesses[pointsTable1_, pointsTable2_] :=
     块[{interpolatingPolyF1, interpolatingPolyF2},
      插值PolyF1 =
       函数[{x}，评估[InterpolatingPolynomial[pointsTable1，x]]]；
      插值PolyF2 =
       函数[{x}，评估[InterpolatingPolynomial[pointsTable2，x]]]；
      (*打印[绘图[{interpolatingPolyF1[x],interpolatingPolyF2[x]},{x,0,2}]];*)
      {x, y} /。
       NSolve[{y == interpolatingPolyF1[x],
         y == interpolatingPolyF2[x]}, {x, y}, Reals]
      ]