Reply to comment

Wolfram rule-based cellular automata in Windows Batch

Cellular automata

One-dimensional elementary cellular automata are very simple. You just got a single row of cells which have one of two states: On or Off (0 or 1, living or dead, whatever you want to call it), so they can be nicely represented by a simple two-color bitmap.

States in cellular automata change according to the neighbourhood of a cell in the previous (global) state. Let's say you're a living cell (On, 1) and your neighbours in both directions are dead (Off, 0). Suppose you also have a table that states that your state in exactly this case changes to dead (might happen, maybe you just were too lonely to exist, don't blame me). But in another configuration your left neighbour might still be living and in that case you get to live on. Or in yet another configuration you are a dead cell and regardless what your neighbours are you change state to living.

State transitions

Such a table essentially needs only a few things: State of a cell, state of all neighbour cells (two in this case) and the state of the cell in the following generation. We can visualize this as follows:

Tabular representation of a one-dimensional cellular automaton

In the top row we have a cell with two neighbours, one left, one right, so three cells each. The bottom row gives the following state for each configuration. As you may have noticed, there are only eight possible configurations. And we can impose an order on them as I have done here. And the relevant part, once that order is established is simply a string of eight zeros and ones—so essentially eight bits. We can simply write this rule as a number. What wonderful way of shortening things. This numbering was conceived by Stephen Wolfram, a British mathematician and thus it's called Wolfram code or a Wolfram rule.

The rule pictured above is rule 30.

Display

So we now know that such a cellular automaton might be described by a single number and that it can change states. What good is that?

Well, we might display a certain state of the automaton as a series of either black or white boxes:

A single generation from the rule 30 cellular automaton

and then we might display each of these states below the previous one:

Image representation of several generations of Rule 30

et voila, we got a nice picture. Slightly chaotic, but that's usual for rule 30 and we got some nice recurring triangle formations in there.

So the point of all that was to generate a weird-looking image. Now for the fun part of this. Programming such a beast.

The code

It isn't exactly complicated to do this, so lets start at the top:

Rem width of the area
Set width=81
Rem height of the area
Set height=40

We obviously need some control over how much is calculated and rendered. I put a single cell with state 1 in the center of the first row (initial state) so it's advisable to choose an uneven width because many patterns fan out to both sides (as seen above) and then they reach the left and right edge simultaneuosly. Height might be chose for a similar reason, since as the pattern fans out and reaches the sides it gets meaningless pretty quickly.

Rem rule can be given via commandline, if not, just ask for it
Set rule=%1
If%1Neq "" GoTo dont_ask_rule
:ask_rule
Set /p rule=Rule?
:dont_ask_rule
If %rule% LssGoTo ask_rule
If %rule% Gtr 255 GoTo ask_rule

If the rule is given as the first parameter we only ask for it if it lies outside the permitted range (0–255), else we ask anyway until a correct rule is given.

Call :dissect_rule

Following that I wrote a simple subroutine which dissects the numerical rule into its eight parts:

:dissect_rule
For /l %%i In (0,1,7) Do Set /a wolfram_%%i=^(rule% ^>^> %%i^) ^& 1
GoTo :EOF

So after that we have eight variables, named <cmd>wolfram_x</cmd> with <cmd>x</cmd> being a number from 0 to 7 which hold the successor states for each configuration.

Call :init_field

We then initialize the area in which we store the states of each cell for each generation:

:init_field
For /l %%r In (1,1,%height%) Do (
    For /l %%c In (1,1,%width%) Do Set field_%%r_%%c=0
)
Set /a halfwidth=width/2
Set field1_%halfwid­th%=1
GoTo :EOF

Basically we just initialize everything with zero and add a single one in the center of the first generation.

We have a problem with this approach, however, since when states are computed they need a neighbourhood. But how does the neighbourhood look for the first and last cells in each row? At first I simply put another cell to the left and right of the row, containing a zero. This works fine for most rules and we leave it as that for now. How one would implement this I leave as an exercise for the reader.

We might need a subroutine to display the whole area:

:show_field
For /l %%r In (1,1,%height%) Do Call :show_field_row %%r
Goto :EOF
:show_field_row
Set line=
For /l %%c In (1,1,%width%) Do If !field_%<span class=„re2“>1_%%­c!==1 (Set line=!line!X) Else (Set line=!line! )
Echo.!line!
GoTo :EOF

As you can see, that are actually two subroutines. They come in handy later.

What is still missing, however, is the calculation of successor states. So let's do that now.

:compute_row
Rem %1 is the current row
For /l %%c In (1,1,%width%) Do Call :compute_row_fi­eld %%c %1
Call :show_field_row %1
GoTo :EOF

Nothing fancy here, we just delegate the computation of a single cell to another subroutine. As you may note we display the calculated row immediately after we calculated it, this makes the watching experience while the batch file runs a bit less boring as we see a new line every few seconds (yes it is that slow).

:compute_row_fi­eld
Rem %1 is the field, %2 the current row
Set /a oldrow=%2 – 1
Call :get_case %oldrow% %1
Set field_%2_%1=!wol­fram_%<span class=„re2“>ca­se%!
GoTo :EOF
:get_case
Rem %1 is the row above the one currently calculated, %2 is the current field
Rem left and right neighbours
Set /a l=%2 – 1
Set /a r=%2 + 1
Set /a case=^(!field_%<span class=„re2“>1_%%! ^<^< 2^) + ^(!field_%<span class=„re2“>1_%2! ^<^< 1^) + ^(!field_%<span class=„re2“>1_%%!^)
GoTo :EOF

Here we calculate the new state for a given cell, by using another helper subroutine which looks up the specific case from the table. We make use of the fact that the configuration of a cell and its neighbours are essentially three-bit numbers and the table is laid out in such a way here that we can access it simply by converting the configuration into a number between 0 and 7. The code for that looks a little ugly, since lots of escaping is needed (I escaped the parentheses just out of fear they might break something, as they often do when nesting structures).

But that was it, essentially. Running the batch without arguments produces the following prompt:

\CMD\cellular_au­tomaton>wolfram­.cmd
Rule? _

entering, say, 54 in there, yields the following picture:

Rule? 54
                                       X
                                      XXX
                                     X   X
                                    XXX XXX
                                   X   X   X
                                  XXX XXX XXX
                                 X   X   X   X
                                XXX XXX XXX XXX
                               X   X   X   X   X
                              XXX XXX XXX XXX XXX
                             X   X   X   X   X   X
                            XXX XXX XXX XXX XXX XXX
                           X   X   X   X   X   X   X
                          XXX XXX XXX XXX XXX XXX XXX
                         X   X   X   X   X   X   X   X
                        XXX XXX XXX XXX XXX XXX XXX XXX
                       X   X   X   X   X   X   X   X   X
                      XXX XXX XXX XXX XXX XXX XXX XXX XXX
                     X   X   X   X   X   X   X   X   X   X
                    XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX
                   X   X   X   X   X   X   X   X   X   X   X
                  XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX
                 X   X   X   X   X   X   X   X   X   X   X   X
                XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX
               X   X   X   X   X   X   X   X   X   X   X   X   X
              XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX
             X   X   X   X   X   X   X   X   X   X   X   X   X   X
            XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX
           X   X   X   X   X   X   X   X   X   X   X   X   X   X   X
          XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX
         X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X
        XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX
       X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X
      XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX
     X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X
    XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX
   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X
  XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX
 X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X   X
XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX

The actual source code is a bit longer, since I offer an option how the sides of the area are handled (all zero, all one, wraparound and copy, the last of which is now the default which seems the most sensible to me—rules like 169 look very different when calculated with the edges being zero).

I am now working on SVG export from within the same batch file and I hope I found all major bugs by now. But the first working version was just 54 lines long. I think, had I been using Java instead (which was the other choice here), I would have needed significantly more.

UPDATE (2008–12–26 16:21): SVG export is now done and works as it should. At the moment I am mis-using the terminal server in the uni to compute all 256 rules simultaneously:

257 instances of cmd … I remember times when even more than 50 calculators were too much …
AttachmentSize
Batch program to compute cellular automata2.98 KB

Reply

The content of this field is kept private and will not be shown publicly.