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

255 + 1

Get["cellular.m", 
      Path  ->  {"\N_L_Mathematica\Cell"}]

l = CenterSpot[{1}, 100];

r = NumberedRule[50];
ev = EvolveCA[l, r, 50];
ShowCA[ev]

Regola 110

r = NumberedRule[110];
ev = EvolveCA[l, r, 200];
ShowCA[ev]

BaseForm[110, 2]

la regola 110 non rispetta le simmetrie
a b c d b c d 0
0 1 1 0 1 1 1 0