Как рассчитать расстояние между метками на картинке выше в виде пикселей на wolfram mathematica?

Question

Как рассчитать расстояние между метками на картинке выше в виде пикселей на wolfram mathematica?

Answer 1

pts = x /. Solve[{Sin[x] == 0, 10 <= x <= 20}, x];

plot = Show[Plot[Sin[x], {x, 10, 20}],
   ListPlot[Transpose[{pts, ConstantArray[0, Length[pts]]}],
    PlotStyle -> {Red, PointSize[0.01]}]];

partitions = Partition[Union[Last /@
     Position[ImageData[plot], {1., 0., 0., 1.}, Infinity]], 2, 1];

xpos = Append[First /@ Select[partitions, #[[2]] - #[[1]] > 1 &],
   partitions[[-1, -1]]];

Differences[xpos]

{103, 104}

Первая пара точек находится на расстоянии 103 пикселей, а следующая пара - на расстоянии 104 пикселей.