Mathematica画两函数交点图

我们在做图的时候，有时需要在图中标出两条曲线相交的点的位置，这一篇文章就说一下如何使用Mathmatica来实现这个效果。

原理

原理部分也是很简单的，使用函数MeshFunctions来达到在指定位置绘制网格，我们可以通过纯函数的方式指定在两个函数相减为0的地方绘制。然后点的样式我们是通过MeshStyle这个函数来实现的，其实就是修改网格的一些属性。

下面我们看一下代码部分。

代码实现

我们下面来看两个例子，如何画出两曲线相交出的交点来。

• 这一个是函数Sin[x]和函数x在范围0到6Pi之间的交点。

Plot[{Sin[x], 1/x}, {x, 0, 6 Pi}, Mesh -> {{0.}}, 
 MeshFunctions -> Function[x, 1/x - Sin[x]], 
 MeshStyle -> Directive[PointSize[0.03], Red]
 ]

• 这一个是函数Sin[x]和函数Cos[x]在范围0到6Pi之间的交点。

Plot[{Sin[x], Cos[x]}, {x, 0, 6 Pi}, Mesh -> {{0.}}, 
 MeshFunctions -> {Sin[#] - Cos[#] &}, 
 MeshStyle -> Directive[PointSize[0.03], Red]
 ]