Retas Paralelas - Ilusões de Ótica

segunda-feira, 17 de junho de 20130 comentários


Acredite! Todas as linhas horizontais nesta imagem são paralelas!


Kohske Takahashi, que trabalha na University of Tokyo's Research Center for Advanced Science and Technology, utilizou o R para criar várias ilusões de ótica!

Abaixo confira o simples código R necessário para criar esta ilusão de ótica!
_________________________________


library(grid) library(plyr)

rs <- expand.grid(x = seq(0, 1, 1/10), y = seq(0, 1, 1/10)) grid.rect(rs$x, rs$y, 1/10/2, 1/10/2, gp = gpar(fill = "black", col = NA)) grid.rect(rs$x + 1/10/4, rs$y + 1/10/2, 1/10/2, 1/10/2, gp = gpar(fill = "black", col = NA)) ls <- expand.grid(x = 0:1, y = seq(0, 1, 1/20) - 1/20/2) grid.polyline(ls$x, ls$y, id = gl(nrow(ls)/2, 2), gp = gpar(col = "grey50", lwd = 1))

_________________________________

Participe também! Caso você conheça alguma outra ilusão de ótica e o seu respectivo código no R ou SAS, entre em contato conosco e faremos um post com ela e lhe creditaremos!
Compartilhe :
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Estatisti.co - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger