Liebe Freundinnen und Freunde von Feiertagen am Sonntag, Das Original : https://twitter.com/page_eco/status/1421467285101846528Another fascinating mind-bending illusion. There is no yellow in the circle below (!). Instead, our brain very confidently fills the gap of the colour scheme.
by @AkiyoshiKitaoka Das Bild ist (lionel-page-2021-07-31.jpg) In[2]:= Clear[keinGelb]keinGelb = Import[FileNameJoin[{NotebookDirectory[], "test", "lionel-page-2021-07-31.jpg"}], "JPEG"]
schaut man einen Ausschnitt (keinGelb1.jpg) an
In[4]:= Clear[keinGelb1]
keinGelb1 = ImageTake[keinGelb, {320, 880}, {500, 800}]
ist schon weniger Gelb zu sehen, bei einem kleineren Ausschnitt
(keinGelb2.jpg) keins mehr:
In[6]:=Clear[keinGelb2]keinGelb2 = ImageTake[keinGelb, {320 + 230, 880 - 200}, {500 + 200, 800}]
Man kann die Aussage, dass kein Gelb verwendet wird, beweisen, indem man in einem 11 x 11 Auschnitt (keinGelb3.jpg)
In[8]:= Clear[keinGelb3]keinGelb3 = ImageTake[keinGelb, {320 + 230, 880 - 320}, {500 + 236, 800 - 54}]
In[10]:= ImageDimensions[keinGelb3]
Out[10]= {11, 11}
die Farbkanaldaten anschaut (keinGelb4.png)
In[11}:= ImageData[ImageTake[keinGelb, {320 + 230, 880 - 320}, {500 +
236, 800 - 54}]] // MatrixForm
Es gibt acht Spalten mit RGB {1., 1., 1.} und RGB {1., 1., 1.} ist Weiss:
Graphics[{RGBColor[1, 1, 1], Disk[]}]
Gruss
Udo.
lionel-page-2021-07-31.jpg
Description: JPEG image
keinGelb1.jpg
Description: JPEG image
keinGelb2.jpg
Description: JPEG image
keinGelb3.jpg
Description: JPEG image
keinGelb4.png
Description: PNG image
_______________________________________________ DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch http://www.mathematica.ch/mailman/listinfo/demug Archiv: http://www.mathematica.ch/archiv.html
