Cel3.ma

Altre regole tra le 256 possibili, scelte tra quelle con la forma 

a b c d b e d 0, quindi con {0,0,0} ->0 sempre e alcune simmetrie


1 1 1   1 1 0   1 0 1   1 0 0   0 1 1   0 1 0   0 0 1   0 0 0
-------   -------   -------   -------   -------   -------   -------   --------
    a         b         c          d         b          e          d         0

Provare 50 94 54 104 (!) 126

2^^11111111 + 1  (* +1 per ricordare lo 0 *)

Needs["Examples`CellularAutomata`"]

l=CenterSpot[{1},100];

r=NumberedRule[50];

ev=EvolveCA[l,r,50];

ShowCA[ev]