So I'm trying to generate an interpolation function from a bode plot (log-log plot) by extracting the graph data using mathematica. I've got to the point where I was able to isolate only the curve I am interested in (black/white image), and generate a list of points from there. However, my list has a few y-values for each x-value, and so the interpolation function does not work. I want to average these values and compress them into a single point.
My list is of the form
exampleList={{10, 100}, {10, 1000}, {15, 200} ... }
and what I want is
newList={{10, 550}, {15, 200} ... }
where 550 is the arithmetic mean of 100 and 1000.
I'm a C programmer and I could write the whole thing with a couple of Do[] and If[]'s, but I'm trying to learn how to use Mathematica, not C.