User Portlet
| Discussions |
|---|
| Here are a few I looked at. ArrayPlot[CellularAutomaton[{Mod[Total[#]^2, 10] &, {}, 1}, {{1}, 0}, 100]] ![enter image description here][1] ArrayPlot@ CellularAutomaton[{Mod[Total[#] + RandomInteger[{0, 1}],4] /. {0 -> 0, 1 ->... |