Geek asks and answers

Recover image in Mathematica

I posted a question yesterday , and it looks like some people are interested in counting. But, it seems, this is not very useful, as some Guru of Mathematics put it. However, I think the converse question is quite useful, i.e. How to restore the original image in Mma. One answer given by the user actually used image processing software and did a decent job of restoring the original image. It would be great to know how to divide into tiles and use some correspondence of functions. in Mma automatically.

Thanks to everyone.

+3
source share
1 answer

, , , - :

l = Import@"http://i.stack.imgur.com/R3xte.jpg";
l1 = Binarize[GradientFilter[MeanShiftFilter[l, 3, .01, MaxIterations -> 10], 3] 
     // ImageAdjust, .1];
l2 = Erosion[Dilation[l1, 20], 20];
l3 = ImageData@ColorNegate@l2;
n = 1; While[l3[[1 ;; n, 1 ;; n]] == Array[1 &, {n, n}], n++];
ip = ImagePartition[l, n][[1, 1]];
ipMsft = MeanShiftFilter[ip, 3, .1, MaxIterations -> 100];
l8 = ColorNegate@GradientFilter[ ImageMultiply[ip, ipMsft], 6] // ImageAdjust;
ImageSubtract[l8, GradientFilter[l8, 1]]

enter image description here

0

More articles:


All Articles