标记点之间的交叉点标记

Question

首先，我想为新手问题道歉。 我刚刚开始使用mathematica，我有2个简单的图。我想要做的是让Mathematica自动找到交叉点，标记它们并向我显示坐标。 我搜索了这个论坛，有很多类似的问题，但它们对我来说太先进了。 有人可以解释我怎么能以最简单的方式做到这一点？

Answer 1

解决平等问题。使用replacement获取积分值：points = {x, x^2} /. sol同样适用。偏移标签并在epilog中设置为文本。

sol = Solve[x^2 == x + 2, x];
points = {x, x + 2} /. sol;
offset = Map[# + {0, 3} &, points];
Plot[{x^2, x + 2}, {x, -6, 6},
 Epilog -> {Thread[Text[points, offset]],
   Blue, PointSize[0.02], Point[points]}]