CellularAutomaton-package {CellularAutomaton} | R Documentation |
This package is an object-oriented implementation of one-dimensional cellular automata. It supports many of the features offered by Mathematica, including elementary rules, user-defined rules, radii, user-defined seeding, and plotting.
Package: | CellularAutomaton |
Type: | Package |
Version: | 1.0 |
Date: | 2007-11-16 |
License: | GPL |
John Hughes
Maintainer: John Hughes <jph264@psu.edu>
http://reference.wolfram.com/mathematica/tutorial/CellularAutomata.html
ca = CellularAutomaton(t = 100) # Evolve Rule 30 for 100 steps. k = 2, r = 1, and the seed # is a single black cell on a white background. Each row will # have length 2rt + 1 = 201. ca$plot() # Have a look. # Evolve Rule 110 for 100 steps. k = 2, r = 1, and the seed is 001000. Each row will have the # same length as the seed because -1 was given as the background. ca = CellularAutomaton(n = 110, t = 100, seed = c(0, 0, 1, 0, 0, 0), bg = -1) ca$plot(col = c("white", "darkblue")) # Plot it using Penn State colors. :-)