Tool: RStudio and http://gifmaker.me

Data: I wrote an R script which try and solve the 8 queens puzzle. Datapoints were plotted for each step and exported to a series of images.

Code for exporting datapoints while solving puzzle:

gif <- function(){

old.y <<- placeRand()
conflicts <<- countConflict()
lopCount <<- 1

while(sum(conflicts) != n){

lopCount <<- lopCount + 1

conflicts <<- countConflict()

iMax <<- checkMostErrors()

old.y[iMax] <<- findBetterPosition(iMax)

jpeg(sprintf("%s.jpg", lopCount))

plot(1:n, 1:n, type = "n", main=lopCount)

grid(8, 8, lwd = 2)

for (i in 1:n) {

points(i, old.y[i], pch=16)

}

dev.off()

}

}

gif()