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$
  • $\begingroup$ We'd love to help, but what have you tried so far? Where did you get stuck? $\endgroup$ – MarcoB Feb 11 '16 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 '16 at 21:08
  • $\begingroup$ Related: recovering-data-points-from-an-image $\endgroup$ – Sjoerd C. de Vries Feb 11 '16 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 '16 at 21:18
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
    $\begingroup$ @garej btw, if you may also be interested in using this $\endgroup$ – egwene sedai Feb 11 '16 at 22:12
  • $\begingroup$ @egwenesedai, that is funny, I'll take a look. $\endgroup$ – garej Feb 11 '16 at 22:15

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

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