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

Question

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



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

现在我总是使用 'GetCoordinate' 属性直接从图中获取数字。有一种方法可以自动且更准确地执行此操作会很好。

Answer 1

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

findGuesses[pointsTable1_, pointsTable2_] :=
块[{interpolatingPolyF1, interpolatingPolyF2},
插值PolyF1 =
函数[{x}, Evaluate[InterpolatingPolynomial[pointsTable1, x]]];
插值PolyF2 =
函数[{x}, Evaluate[InterpolatingPolynomial[pointsTable2, x]]];
(*Print[Plot[{interpolatingPolyF1[x],interpolatingPolyF2[x]},{x,0,2}]];*)
{x, y}/。
NSolve[{y == interpolatingPolyF1[x],
y == interpolatingPolyF2[x]}, {x, y}, Reals]
]