New answers tagged

2

Rotate ArrayPlot instead of Animate: Animate[Rotate[#, 180 Degree] & @ ArrayPlot[CellularAutomaton[n, {{1}, 0}, {40, All}]], {{n, 89}, 0, 255, 1}, AnimationRunning -> False] or use the option DataReversed -> {True, True} in ArrayPlot: Animate[ArrayPlot[CellularAutomaton[n, {{1}, 0}, {40, All}], DataReversed -> {True, True}], {{n, 89}, ...


Top 50 recent answers are included