Para que copien, peguen y disfruten: addenda
Ayer dejé publicadas unas cuantas líneas de R y la promesa de contar de qué iba la cosa. Adelantando acontecimientos, he recibido comentarios públicos y privados al respecto que en esta entrada trataré de contestar.
El código era, una vez mínimamente desofuscado (no quería dar demasiadas pistas):
vertice.x <- c(0,1,2) # 1
vertice.y <- c(0,1,0) # 2
muestra <- sample( 1:3, 100000, replace = T ) # 3
iter <- function( ini, v ){ # 4
out <- rep( ini, length(v) ) # 5
for( i in 2:length(v) )
out[i] <- ( out[i-1] + v[i] ) / 2 # 6
out
}
plot( iter( runif(1), v.x[ muestra ] ),
iter( runif(1), v.y[ muestra ] ), pch = "." )
He aquí lo que hace: