在Mathematica中重建圖像

我昨天發佈了the question，似乎很明顯，有些人對upvotes的數量感興趣。但它似乎並不是很有用，正如一些Mathematica專家所說的那樣。但是，我認爲相反的問題是非常有用的，即如何重建Mma中的原始圖像。 a user給出的一個答案實際上使用了圖像處理軟件，並在重建原始圖片方面做了不錯的工作。知道如何將拆分爲瓦片並使用某些功能匹配將會非常棒。在Mma自動。在Mathematica中重建圖像

謝謝大家。

來源

2011-06-08 Qiang Li

你想關閉這個問題？你原來的問題已經回答了。 – 2011-07-16 13:49:10

半路那裏，張貼在這個老問題只是爲了看看，如果有人想給它一個嘗試：

l = [email protected]"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 = [email protected]@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 = [email protected][ ImageMultiply[ip, ipMsft], 6] // ImageAdjust; 
ImageSubtract[l8, GradientFilter[l8, 1]]

enter image description here

來源

2011-09-17 23:11:10

在Mathematica中重建圖像

回答

相關問題