CellularAutomaton's Plot Range

Question

I want to control the plot range of CellularAutomaton to show both left and right sides when using rule 60.

Currently I have this:

But I want to have something like this:

Code:

 Manipulate[
 Graphics[ArrayPlot[CellularAutomaton[60, {{1}, 0}, t]], 
 PlotRange -> {{-100, 100}, {0, 100}}], {t, 0, 30, 1}]

Kuba · Accepted Answer · 2017-01-13 11:27:29Z

4

Manipulate[
 Graphics[ArrayPlot[CellularAutomaton[60, {{1}, 0}, {t, All}]], 
  PlotRange -> {{-100, 100}, {0, 100}}], {t, 0, 30, 1}]

answered Jan 13 '17 at 11:27

Kuba♦

123k12 gold badges222 silver badges579 bronze badges

add a comment |

Community · Accepted Answer · 2017-04-13 12:55:55Z

4

I'd do:

Manipulate[
    ArrayPlot[PadLeft[#, 2 (t + 1)] & /@ CellularAutomaton[60, {{1}, 0}, t], Mesh -> True],
  {t, 0, 30, 1}]

(because I didn't look into the docs like Kuba).

Community♦

1

answered Jan 13 '17 at 11:26

corey979

21.9k6 gold badges44 silver badges83 bronze badges

$\begingroup$ Wow, great solution. BTW, do you have an idea how to eliminate the wobbling in the middle? $\endgroup$ – xtt Jan 13 '17 at 11:29
$\begingroup$ That's just a .gif I made to show it here; the Manipulate looks ok. $\endgroup$ – corey979 Jan 13 '17 at 11:47

add a comment |

2 Answers 2