在 Mathematica 中重建图像

【问题标题】：reconstruct the image in Mathematica在 Mathematica 中重建图像
【发布时间】：2011-09-11 05:21:09
【问题描述】：

我昨天发布了the question，显然有些人对赞成票的数量感兴趣。但正如一些 Mathematica 大师所说，它似乎不是很有用。但是，我认为反向问题非常有用，即如何在 Mma 中重建原始图像。 a user给出的一个答案实际上使用了图像处理软件，并且在重建原始图片方面做得不错。很高兴知道如何在图块上分割并使用一些特征匹配。自动在 Mma 中。

谢谢大家。

【问题讨论】：

您想结束这个问题吗？您原来的问题现已得到解答。

标签： image-processing wolfram-mathematica

【解决方案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]]

【讨论】：