search
LoginSignup
1

More than 5 years have passed since last update.

posted at

updated at

ポッゲンドルフ錯視

library(grid)
library(jpeg)

r1 = readJPEG("20161201_face.jpg")

png("sakuad2016120201.png", 800, 400)

yy = 0.8
yd = 0.1
pushViewport(viewport(0.25, 0.5, 0.5, 1, xscale = c(-1, 1), yscale = c(-1, 1)))
grid.lines(c(-0.8, 0), c(yy, 0), default.units = "native", gp = gpar(col="black", lwd = 3))
grid.lines(c(0, 0.8), c(0, -yy), default.units = "native", gp = gpar(col="red", lwd = 3))
grid.lines(c(0, 0.8), c(0-yd, -yy-yd), default.units = "native", gp = gpar(col="green", lwd = 3))
grid.lines(c(0, 0.8), c(0+yd, -yy+yd), default.units = "native", gp = gpar(col="blue", lwd = 3))
grid.raster(r1, 0, 0, 0.75, 1.5, default.units = "native")
popViewport()

pushViewport(viewport(0.75, 0.5, 0.5, 1, xscale = c(-1, 1), yscale = c(-1, 1)))
grid.raster(r1, 0, 0, 0.75, 1.5, default.units = "native")
grid.lines(c(-0.8, 0), c(yy, 0), default.units = "native", gp = gpar(col="black", lwd = 3))
grid.lines(c(0, 0.8), c(0, -yy), default.units = "native", gp = gpar(col="red", lwd = 3))
grid.lines(c(0, 0.8), c(0-yd, -yy-yd), default.units = "native", gp = gpar(col="green", lwd = 3))
grid.lines(c(0, 0.8), c(0+yd, -yy+yd), default.units = "native", gp = gpar(col="blue", lwd = 3))
popViewport()

dev.off()

sakuad2016120201.png

左側を見て下さい。株式会社ホクソエム代表取締役のご尊顔で線が隠れています。
左の黒い線は、右の赤・緑・青のどの線とつながって見えますか?

多くの人は、「青」とつながっているように見えるんじゃないでしょうか?
実は、右側を見てもらうとわかるように、真ん中の赤い線とつながっています。

黒が赤へ・・・。

これはポッゲンドルフ錯視というものです。
実際のところ、何故この錯視が起きるのかは完全にはわかっていません(直接的には角度の過大視が原因という説が濃厚ですが、なぜ角度が過大視されるのか考えるとまた謎は深まります。もしかしたらある程度わかっているかもしれませんが)。

というか、多くの錯視は原因が不明です。

人間の認識の仕組みは、それくらい謎に満ちているということですね。

株式会社ホクソエムのホームページです。 http://hoxo-m.com/

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
What you can do with signing up
1