symulacje

##########################################################################################
###                                                                                        Symulacja gry w życie                                                                             ###
##########################################################################################

library(simecol)
conway <- new("gridModel",main = function(time, init, parms)
{

x <- init
nb <- eightneighbours(x)
surviv <- (x > 0 & nb)
gener <- (x == 0 & nb)
x <- (surviv + gener) > 0
return(x)

},
parms = list(srv = c(2, 3), gen = 3),
times = 1:50,
init = matrix(round(runif(1000)), ncol = 40),
solver = "iteration")
plot(sim(conway))