Why am I getting some extra intersection points?
Manipulate[b = 2 r + 1;
Show[p1 =
ContourPlot[{x^2 + (y - r)^2 == r^2, x/12 + y/b == 1}, {x, -20,
20}, {y, -20, 20}, Axes -> True, Frame -> False,
AspectRatio -> 1, PerformanceGoal -> "Goal"],
Graphics[{PointSize[Large], Red,
Point@Graphics`Mesh`FindIntersections[p1]}]], {{r, 4,
"Radius"}, -10, 10, 0.01}]
Why is this not plotting the right
Obviously, this should not have intersection in the pic above.
FindIntersections
changes from time to time, and several users would not base important code on it. $\endgroup$