Holstein Model

Author

Eric W. Weisstein
October 26, 2005

This notebook downloaded from http://mathworld.wolfram.com/notebooks/CellularAutomata/HolsteinModel.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/HolsteinModel.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Animation

movie=With[{n=100,size=250},
ArrayPlot[#,PixelConstrained->True,Frame->False,ImageSize->sizer]&/@CellularAutomaton[{259648,{2,{{2,2,2},{2,1,2},{2,2,2}}},{1,1}},Table[Random[Integer],{size},{size}],n]
]

<<Utilities`GIF`

Export["holstein.gif",movie]//Timing