在Mathematica中重建图像

Question

我昨天发布了这个问题，看起来一些人对于点赞数量很感兴趣。但是，正如一些数学高手所说，这似乎并不是非常有用的。然而，我认为反向问题则相当有用，即如何在Mma中重建原始图像。其中一个回答由一个用户给出，实际上使用了图像处理软件，并且在重建原始图片方面做得相当好。知道如何在Mma中自动拆分瓷砖并使用一些特征匹配将会非常好。

感谢大家。

- Qiang Li

---

您是否想关闭此问题？您的原始问题已经得到解答。 - Matthias Odisio

Answer 1

已经过了一半，发帖子来看看是否有人想尝试一下：

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]]

- Dr. belisarius