Mathematica에서 두 개의 ListPlot의 교차점을 찾습니다.

Question

Mathematica의 ListPlot에서 두 개의 별개 색상 (빨강 및 파랑)으로 플롯하는 두 세트의 이산 데이터가 있습니다. 나는이 두 점, 즉 그림과 같이 점 A와 점 B 사이의 교차점 (해당 연속적인 곡선의)을 찾고 싶습니다.

내가 'FindCluster'방법을 시도하고 데이터 라인을 형성의 하위 집합을 얻을 호핑 그러나 그것은 매우 잘 작동하지 않습니다 있습니다.

이제는 그래프에서 직접 숫자를 가져 오기 위해 항상 'GetCoordinate'속성을 사용합니다. 자동으로 더 정확하게 할 수있는 방법이 있으면 좋을 것입니다.

Answer 1

나는이 귀하의 경우 편리 할 것인지 모르겠지만, 가끔 티카 교차로에 대한 해결 다음 포인트의 목록 및 보간 수 있도록했습니다

 
    findGuesses[pointsTable1_, pointsTable2_] := 
    Block[{interpolatingPolyF1, interpolatingPolyF2}, 
     interpolatingPolyF1 = 
     Function[{x}, Evaluate[InterpolatingPolynomial[pointsTable1, x]]]; 
     interpolatingPolyF2 = 
     Function[{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] 
     ]