das Bild in Mathematica rekonstruieren

Question

Ich habe die Frage gestern und es scheint offensichtlich, dass einige Leute daran interessiert sind, da die Anzahl der upvotes. Aber es scheint nicht sehr nützlich zu sein, wie es ein Mathematica-Guru ausdrückt. Ich denke jedoch, dass die umgekehrte Frage recht nützlich ist, nämlich wie man das Originalbild in Mma rekonstruieren kann. Eine Antwort, die von ein Benutzer tatsächlich eine Bildbearbeitungssoftware verwendet und das Originalbild gut rekonstruiert. Es wäre toll zu wissen, wie man auf Kacheln aufteilen und einige Merkmale abgleichen. in Mma automatisch.

Ich danke Ihnen allen.

Answer 1

Auf halbem Weg dorthin, poste ich diese alte Frage, nur um zu sehen, ob jemand einen Versuch wagen will:

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