Plot[{Tan[x], x Sin[x]}, {x, -8, 8}, MeshFunctions -> {Tan[#] - #
Sin[#] &}, Mesh -> {{0.0}}, MeshStyle -> Directive[Red,
PointSize[Large]]]
Just as the picture shows, there are some incorrect points around the intersection point.
$\begingroup$
$\endgroup$
0
Add a comment
|
1 Answer
$\begingroup$
$\endgroup$
When using MeshFunctions, it is often a good idea to reformulate your functions so that it is free of poles or other singularities:
Plot[{Tan[x], x Sin[x]}, {x, -8, 8},
MeshFunctions -> {Sin[#] - # Sin[2 #]/2 &}, Mesh -> {{0}},
MeshStyle -> Directive[Red, PointSize[Large]]]
Similar principles apply to the use of e.g. FindRoot[] for finding intersections.
answered Mar 6, 2018 at 8:13
J. M.'s eventual burnout♦J. M.'s eventual burnout
124k11 gold badges396 silver badges570 bronze badges