3
$\begingroup$

There is a nice website on popular Economics with stylish picture.

Import["http://www.economistsdoitwithmodels.com/wp-content/uploads/2009/06/ediwm_3_5x5postcardfront_outlines-400x280.jpg"]

I'm not that experienced in image recognition, so I wonder if there is a simple way to reconstruct the picture in Mathematica.

enter image description here

It would be nice to have all lines as separate list (of functions).

Text on the picture is not necessary. Accurate color rendering is not important. Scale may be larger.

Thanks for helping.

$\endgroup$
4
  • $\begingroup$ We'd love to help, but what have you tried so far? Where did you get stuck? $\endgroup$
    – MarcoB
    Feb 11, 2016 at 20:56
  • $\begingroup$ @MarcoB, I've stuck at the very begining, as I can only imagine how to draw it in image editor. Most methods as Binarize give something, that I cannot proceed. May be just a tip, which function to use to separete lines by colors and covert them to lists of data. $\endgroup$
    – garej
    Feb 11, 2016 at 21:08
  • $\begingroup$ Related: recovering-data-points-from-an-image $\endgroup$ Feb 11, 2016 at 21:12
  • $\begingroup$ @SjoerdC.deVries, I saw that post but what if lines closely intertwined. I mean, how to split the image to apply technique, suggested in the related question? $\endgroup$
    – garej
    Feb 11, 2016 at 21:18

1 Answer 1

6
$\begingroup$

Separating the lines can be done using DominantColors. The following is almost a straight copy from the documentation:

res = DominantColors[img, 25, {"CoverageImage", "Color"}]

Mathematica graphics

Multicolumn[ImageMultiply @@@ res, Appearance -> "Horizontal"]

Mathematica graphics

After this (and perhaps after using somewhat more dominant colors, 50 or so, and playing with the MinColorDistance option, setting it to 0 or close to 0) you can use the methods in the Q&A I referenced in the comment above.

$\endgroup$
2
  • 2
    $\begingroup$ @garej btw, if you may also be interested in using this $\endgroup$ Feb 11, 2016 at 22:12
  • $\begingroup$ @egwenesedai, that is funny, I'll take a look. $\endgroup$
    – garej
    Feb 11, 2016 at 22:15

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.